بسم الله الرحمن الرحيم
والصلاة السلام على سيدنا محمد وعلى آله وصحبه أجمعين
اللهم وفقنا الى الخير
فتح أي برنامج أو مجلد بـدلفي
فتح أي برنامج أو مجلد بـدلفي خمسة
// استدعاء الوحدة الخاصة بهذه الدوال التي سوف نستعملها فيما بعد أو لاحقا
uses
ShellApi;
/ / الاجراء ات
procedure TForm1.Button1Click(Sender: TObject);
begin
// فتح المفكرة
ShellExecute(Handle, 'open', 'Notepad.exe', '', nil, SW_SHOW);
{
تستطيع فتح أي مجلد أو برنامج أموقع
}
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// فتح المفكرة
WinExec('Notepad.exe', SW_SHOW);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
// فتح المفكرة و تحميل ملف نصي
ShellExecute(Handle, 'open', 'notepad', 'اسم الملف ومساره بالكامل'
, nil, SW_SHOW);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
// فتح ملف نصي
ShellExecute(Handle, 'open', 'اسم الملف ومساره بالكامل'
, nil, nil, SW_SHOW);
end;