「最近使ったファイル」の追加・削除          <TOP>

「最近使ったファイル」リストの追加と削除を実行します。

SHAddToRecentDocs ｢最近使ったファイル｣のリストにショートカットを追加

　

例では、C:\FBASIC\Bin\README.TXTを「最近使ったファイル」リストに追加及び削除した状態を示しています。

 

 

　

'================================================================
'= 「最近使ったファイル」の追加・削除
'=    (SHAddToRecentDocs.bas)
'================================================================
#include "Windows.bi"

'「最近使ったファイル」のリストにショートカットを追加
Declare Sub Api_SHAddToRecentDocs Lib "shell32" Alias "SHAddToRecentDocs" (ByVal uFlags&, pv As Any)

#define SHARD_PIDL &H1
#define SHARD_PATH &H2

Var Shared Text1 As Object
Var Shared Button1 As Object
Var Shared Button2 As Object

Text1.Attach GetDlgItem("Text1") : Text1.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14
Button2.Attach GetDlgItem("Button2") : Button2.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var sPath As String

    sPath = "C:\FBASIC63\Bin\README.TXT"
    Api_SHAddToRecentDocs SHARD_PATH, sPath
End Sub

'================================================================
'=
'================================================================
Declare Sub Button2_on edecl ()
Sub Button2_on()

    Api_SHAddToRecentDocs SHARD_PATH, ByVal 0 
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End