Buka File Lewat Aplikasi Delphi

Buka FIle Lewat Aplikasi Delphi.

Tambahkan Uses ShellAPI

procedure TForm1.Button1Click(Sender: TObject);<br /> var<br /> NamaFile :  string;<br /> begin<br /> NamaFile := 'C:\coba.txt';<br /> ShellExecute (Application.Handle, nil, 'explorer',<br />PChar ('/ select, "'+NamaFile+'" '), nil, SW_SHOWNORMAL);<br /> end;