//SHEmptyRecycleBin関数をインポートする
Function SHEmptyRecycleBin(nHandle : hwnd;
pszRootPath : String; dwFlags : Integer): Integer ; stdcall;
external 'shell32.dll' name 'SHEmptyRecycleBinA';
procedure TForm1.Button1Click(Sender: TObject);
begin
//ごみ箱を空にする
SHEmptyRecycleBin(Handle,'',0)
end;
end.
|