Tutorial Delphi

Dalam belajar bahasa pemrograman komputer utamanya keluarga pascal (delphi) selain latihan membangun sebuah aplikasi atau projek sendiri hal yang banyak saya lakukan adalah dengan mempelajari trik-trik yang ada di internet. saya kira menghafal coding memang pelu tapi bukan itu intinya karena jika kita berlatih secara continoue maka secara otomatis coding akan mudah kita hafal.

Procedure KosongkanBakSampah;
Const
SHERB_NOCONFIRMATION = $00000001;
SHERB_NOPROGRESSUI = $00000002;
SHERB_NOSOUND = $00000004;

Type
TSHEmptyRecycleBin = function (Wnd : HWND; pszRootPath : PChar; dwFlags : DWORD) : HRESULT; stdcall ;

Var
SHEmptyRecycleBin : TSHEmptyRecycleBin;
LibHandle : THandle;

Begin
LibHandle := LoadLibrary(PChar('Shell32.dll')) ;

if LibHandle <> 0 then
  begin
  @SHEmptyRecycleBin := GetProcAddress(LibHandle, 'SHEmptyRecycleBinA');
  end
  else
    begin
      MessageDlg('GAGAL !', mtError, [mbOK], 0);
      Exit;
    end;

  if @SHEmptyRecycleBin <> nil then
      SHEmptyRecycleBin(Application.Handle, nil, SHERB_NOCONFIRMATION or SHERB_NOPROGRESSUI or SHERB_NOSOUND);
      FreeLibrary(LibHandle);
      @SHEmptyRecycleBin := nil ;
end;

Untuk menggunakannya, anda hanya perlu memanggil nama procedurenya pada event yang anda kehendaki untuk melakukan proses penghapusan recycle bin. Selamat mencoba. :)