|
Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming! |
⤷ Empty RecycleBin
Try something like this.
procedure TForm1.Button1Click(Sender: TObject);
type
TEmptyBin=function(Wnd: hWnd; LpctStr: PChar; DWord: Word): Integer; stdcall;
var
MyHandle: THandle;
RecBin: TEmptyBin;
begin
MyHandle:=LoadLibrary('Shell32.dll');
@RecBin:=GetProcAddress(MyHandle, 'SHEmptyRecycleBinA');
RecBin(Application.Handle, '', 0);
FreeLibrary(MyHandle);
@RecBin:=nil;
end;
- Related components
- TFileSearch
- TFolderMonitor
- TFileVersion
-
More for developers
