بسم الله الرحمن الرحيم
والصلاة السلام على سيدنا محمد وعلى آله وصحبه أجمعين
اللهم وفقنا الى الخير

فتح أي برنامج أو مجلد بـدلفي

فتح أي برنامج أو مجلد بـدلفي خمسة

// استدعاء الوحدة الخاصة بهذه الدوال التي سوف نستعملها فيما بعد أو لاحقا

In the name of of Allah the Merciful
Peace and prayer be upon our master Muhammad and his family and companions
Oh God, help us to goodness

Open any program or folder

Open any program or folder

// Call the Special Unit for these functions that will use it later or later
uses

Code:
[align=left]uses
ShellApi;

/ / الاجراء ات
procedure TForm1.Button1Click(Sender: TObject);
begin
// فتح المفكرة    open noteped
ShellExecute(Handle, 'open', 'Notepad.exe', '', nil, SW_SHOW);
{
تستطيع فتح أي مجلد أو برنامج أو موقع
You can open any folder, program or site
}
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// فتح المفكرة   open noteped
WinExec('Notepad.exe', SW_SHOW);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
// فتح المفكرة و تحميل ملف نصي  Open Notepad and download a text file
ShellExecute(Handle, 'open', 'notepad', 'اسم الملف ومساره بالكامل'
, nil, SW_SHOW);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
// فتح ملف نصي
ShellExecute(Handle, 'open', 'اسم الملف ومساره بالكامل'
, nil, nil, SW_SHOW);
end;[/align]