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

من طرف **salme** السبت يناير 21, 2017 5:19 pm

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

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

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

// استدعاء الوحدة الخاصة بهذه الدوال التي سوف نستعملها فيما بعد أو لاحقا
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;

المصدر دلفي تعليم
delph.forumalgerie.net