Membuka Folder Dengan Delphi

Bagaimana Cara Membuka Folder dengan Delphi ? Silahkan Simak Coding'y :

...................................

implementation
uses
  ShellApi;

{$R *.dfm}
procedure ShowFolder(strFolder: string);
begin
  ShellExecute(Application.Handle,PChar('explore'),PChar(strFolder),nil,nil,SW_SHOWNORMAL);
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  strFolder = 'C:\Program Files';
begin
  ShowFolder(strFolder);
end; 

Sumber

Posted by Antas Delphi on - Rating: 4.5

Title : Membuka Folder Dengan Delphi
Description : Bagaimana Cara Membuka Folder dengan Delphi ? Silahkan Simak Coding'y : ................................... implementation uses Shel...