SHChangeNotify( SHChangeNotify( SHCNE_Delete, SHCNF_PATH | SHCNF_FLUSHNOWAIT, TEXT ("C:\\WINDOWS"), NULL );稍为修改成为delphi代码: uses ShlObj; SHChangeNotify( SHCNE_Delete, SHCNF_PATH or SHCNF_FLUSHNOWAIT, pchar('C:\\WINDOWS'),{转换一下} nil );
uses
ShlObj;
procedure TForm1.Button1Click(Sender: TObject);
begin
SHChangeNotify(SHCNE_ASSOCCHANGED,
SHCNF_IDLIST,
nil,
nil); //刷新
end;
|
SHChangeNotify
最新推荐文章于 2022-02-06 10:19:06 发布