طيباوي ابو علي1
2014-12-21, 10:10
بسم الله الرحمن الرحيم
والصلاة السلام على سيدنا محمد وعلى آله وصحبه أجمعين
اللهم وفقنا الى الخير
فتح أي برنامج أو مجلد بـدلفي
فتح أي برنامج أو مجلد بـدلفي خمسة
استدعاء الوحدة الخاصة بهذه الدوال التي سوف نستعملها فيما بعد أو لاحقا
uses
****lapi; //djelfa
/ / الاجراء ات
procedure TForm1.Button1Click(Sender: TObject); //djelfa
begin
// فتح المفكرة
****lExecute(Handle, 'open', 'Notepad.exe', '', nil, SW_SHOW); //djelfa
{
تستطيع فتح أي مجلد أو برنامج أموقع
}
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// فتح المفكرة
WinExec('Notepad.exe', SW_SHOW);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
// فتح المفكرة و تحميل ملف نصي
****lExecute(Handle, 'open', 'notepad', 'اسم الملف ومساره بالكامل' , nil, SW_SHOW);
end;
procedure TForm1.Button4Click(Sender: TObject); //djelfa
begin
// فتح ملف نصي****lExecute(Handle, 'open', 'اسم الملف ومساره بالكامل'
, nil, nil, SW_SHOW);
end; //djelfa
uses
****lAppi; //djelfa
procedure TForm1.Button1Click(Sender: TObject); //djelfa
begin
****lExecute(Handle, 'open', 'Notepad.exe', '', nil, SW_SHOW); //djelfa
end; //djelfa
procedure TForm1.Button2Click(Sender: TObject); //djelfa
begin
WinExec('Notepad.exe', SW_SHOW); //djelfa
end; //djelfa
procedure TForm1.Button3Click(Sender: TObject); //djelfa
begin
****lExecute(Handle, 'open', 'notepad', 'اسم الملف ومساره بالكامل'
, nil, SW_SHOW);
end; //djelfa
procedure TForm1.Button4Click(Sender: TObject); //djelfa
begin
****lExecute(Handle, 'open', 'اسم الملف ومساره بالكامل'
, nil, nil, SW_SHOW);
end; //djelfa
مــــــــــــلاحــــــــــــــــــــــــــــــظـــ ــــــــــــــة مهمة
اثناء وضع هذا الموضوع حدث تحويل كلمة "شــــــــــــــــــــــال" الى نجوم أي أس أش أو أل أل
تبديل نجوم بهذه الحروف حسب ترتيب
أي
1 = s
2 =h
3 =e
4 =l
5 = l
Execute
والصلاة السلام على سيدنا محمد وعلى آله وصحبه أجمعين
اللهم وفقنا الى الخير
فتح أي برنامج أو مجلد بـدلفي
فتح أي برنامج أو مجلد بـدلفي خمسة
استدعاء الوحدة الخاصة بهذه الدوال التي سوف نستعملها فيما بعد أو لاحقا
uses
****lapi; //djelfa
/ / الاجراء ات
procedure TForm1.Button1Click(Sender: TObject); //djelfa
begin
// فتح المفكرة
****lExecute(Handle, 'open', 'Notepad.exe', '', nil, SW_SHOW); //djelfa
{
تستطيع فتح أي مجلد أو برنامج أموقع
}
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// فتح المفكرة
WinExec('Notepad.exe', SW_SHOW);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
// فتح المفكرة و تحميل ملف نصي
****lExecute(Handle, 'open', 'notepad', 'اسم الملف ومساره بالكامل' , nil, SW_SHOW);
end;
procedure TForm1.Button4Click(Sender: TObject); //djelfa
begin
// فتح ملف نصي****lExecute(Handle, 'open', 'اسم الملف ومساره بالكامل'
, nil, nil, SW_SHOW);
end; //djelfa
uses
****lAppi; //djelfa
procedure TForm1.Button1Click(Sender: TObject); //djelfa
begin
****lExecute(Handle, 'open', 'Notepad.exe', '', nil, SW_SHOW); //djelfa
end; //djelfa
procedure TForm1.Button2Click(Sender: TObject); //djelfa
begin
WinExec('Notepad.exe', SW_SHOW); //djelfa
end; //djelfa
procedure TForm1.Button3Click(Sender: TObject); //djelfa
begin
****lExecute(Handle, 'open', 'notepad', 'اسم الملف ومساره بالكامل'
, nil, SW_SHOW);
end; //djelfa
procedure TForm1.Button4Click(Sender: TObject); //djelfa
begin
****lExecute(Handle, 'open', 'اسم الملف ومساره بالكامل'
, nil, nil, SW_SHOW);
end; //djelfa
مــــــــــــلاحــــــــــــــــــــــــــــــظـــ ــــــــــــــة مهمة
اثناء وضع هذا الموضوع حدث تحويل كلمة "شــــــــــــــــــــــال" الى نجوم أي أس أش أو أل أل
تبديل نجوم بهذه الحروف حسب ترتيب
أي
1 = s
2 =h
3 =e
4 =l
5 = l
Execute