فتح أي برنامج أو مجلد بـدلفي
صفحة 1 من اصل 1 • شاطر
فتح أي برنامج أو مجلد بـدلفي
| |||
بِسْمِ اللّهِ الرَّحْمـَنِ الرَّحِيمِ الْحَمْدُ للّهِ رَبِّ الْعَالَمِينَ الرَّحْمـنِ الرَّحِيمِ مَـالِكِ يَوْمِ الدِّينِ إِيَّاكَ نَعْبُدُ وإِيَّاكَ نَسْتَعِينُ اهدِنَــــا الصِّرَاطَ المُستَقِيمَ صِرَاطَ الَّذِينَ أَنعَمتَ عَلَيهِمْ غَيرِ المَغضُوبِ عَلَيهِمْ وَلاَ الضَّالِّينَ |
اللهم وفقنا الى الخير
فتح أي برنامج أو مجلد بـدلفي
فتح أي برنامج أو مجلد بـدلفي خمسة
// استدعاء الوحدة الخاصة بهذه الدوال التي سوف نستعملها فيما بعد أو لاحقا
// الاجراء ات
- الكود:
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
مواضيع مماثلة
» برنامج بسيط
» برنامج التحميل من يوتيوب بكل الجودات
» برنامج حساب الغاز والكهربة
» برنامج صانع الاكواد delphi
» برنامج اهم 30 سؤال باللغه الانجليزيه مترجمين
» برنامج التحميل من يوتيوب بكل الجودات
» برنامج حساب الغاز والكهربة
» برنامج صانع الاكواد delphi
» برنامج اهم 30 سؤال باللغه الانجليزيه مترجمين
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى