الانتقال الى المشاركة

Primary: Sky Slate Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate Marble
Secondary: Sky Slate Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate Marble
Pattern: Blank Waves Squares Notes Sharp Wood Rockface Leather Honey Vertical Triangles
مرحبا بك في منتديات ابن خلدون التعليمية

أهلا وسهلا بك زائرنا الكريم، و يشرفنا أن تقوم بالتسجيل إذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه.


تسجيل الدخول التسجيل الآن



صورة

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


  • لا تستطيع كتابة موضوع جديد
  • من فضلك قم بتسجيل دخولك لتتمكن من الرد
لا توجد ردود على هذا الموضوع

#1
غير متصل   sabre

sabre

    Advanced Member

  • الأعضاء
  • Pip Pip Pip
  • 42 المشاركات
  • البلد: Country Flag

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

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

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

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


:D

دلفي تعليم

http://delph.forumalgerie.net

 





عدد المتواجدون الآن فى الموضوع : 0

0 الأعضاء, 0 الزوار, 0 الأعضاء المجهولين