منتدى متعدد المهام

منتدى متعدد المهام في عدة مجالات
 
الرئيسية  البوابةالبوابة  التسجيلالتسجيل  دخولدخول  

شاطر | 
 

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
ben taib allaa



عدد المساهمات : 64
نقاط : 182
تاريخ التسجيل : 28/04/2015
الموقع : http://delph.forumalgerie.net

مُساهمةموضوع: فتح أي برنامج أو مجلد بـدلفي   الخميس أكتوبر 20, 2016 7:09 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;
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://delph.forumalgerie.net
sabire



عدد المساهمات : 75
نقاط : 77
تاريخ التسجيل : 30/09/2016

مُساهمةموضوع: رد: فتح أي برنامج أو مجلد بـدلفي   الإثنين أكتوبر 24, 2016 5:12 pm

بارك الله فيكم
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
فتح أي برنامج أو مجلد بـدلفي
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى متعدد المهام :: منتديات عالم الحواسيب الشخصية :: تعلم البرمجة باللغة الدلفي-
انتقل الى: