Cara Membuka Recycle Bin Windows dengan Delphi

Cara Membuka Recycle Bin Windows dengan Delphi - Bahasa pemrograman delphi sangat begitu mudah untuk dikembangkan, seperti dalam kasus membuat aplikasi pembuka recycle bin windows. Mereka dengan tingkat seperti itu dengan mudah dan cepat menciptakan berbagai macam aplikasi.

Untuk mempelajari setiap bahasa pemrograman terutama Delphi tidaklah segampang membalikkan telapak tangan, harus tekun dan jangan pernah menyerah bila progam aplikasi pada tahap pembuatan sedang mengalami error.

Terkait : Tahap - tahap membuat software aplikasi dengan delphi 7.

Salah satu contoh sederhananya adalah untuk membuka recycle bin windows, simak caranya berikut ini

Cara Membuka Recycle Bin Windows dengan Delphi

1. Buka Delphi dan buat sebuah Project baru,
2. Buat komponen sBitButton dan letakkan di Form. (bila belum memakai aplhaskin pakai BitButton default delphi)
3. Kemudian tekan F12 untuk menambahkan kode program dibawah ini pada USES

ActiveX, ShlObj, ShellApi

4. Setelah itu tuliskan kode script ini tepat dibawah implementation

procedure FreePidl(pidl: PItemIDList);

var 

  allocator: IMalloc;

begin

  if Succeeded(shlobj.SHGetMalloc(allocator)) then 

  begin

    allocator.Free(pidl);

    {$IFDEF VER90}

    allocator.Release;

    {$ENDIF}

  end;

end;

5. Isi sbitbutton1 dengan cara dobel klik tombol tersebut dan isikan kodenya seperti dibawah ini

procedure TForm1.sButton1Click(Sender: TObject);

var

  exInfo: TShellExecuteInfo;

begin

  // initialize all fields to 0

  FillChar(exInfo, SizeOf(exInfo), 0);

  with exInfo do

  begin

    cbSize := SizeOf(exInfo); // required!

    fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_IDLIST;

    Wnd := Handle;

    nShow := SW_SHOWNORMAL;

    lpVerb := 'open';

    ShGetSpecialFolderLocation(Handle, CSIDL_BITBUCKET, PItemIDLIst(lpIDList));

  end;

  ShellExecuteEx(@exInfo);

  FreePIDL(exinfo.lpIDList);

end;

6. Simpan dan jalankan

Demikian Cara Membuka Recycle Bin Windows dengan Delphi, dengan bahasa pemrograman semoga dapat bermanfaat bagi anda.