پاسخ:

توسط تابع ShellExecute در یونیت ShellAPI به این طریق:

ShellExecute (Handle,'Explore','PathName',nil,nil,SW_SHOWNORMAL)    hamin

یه Buttonروی فرم بذار و در رویداد کلیک مربوط به اون کد زیر را امتحان کن

PFN Code

---

procedure TForm1.Button1Click(Sender: TObject);
var s:String;
begin
    GetDir(0,s);{این کد مسیر دایرکتوری جاری رو میگیره}
    WinExec(s+'\sample directory\samplle Application.exe'); {برنامه موجود درمسیر  پوشه جاری رو اجرا میکنه }
end;