27-07-2017, 09:13 PM
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
استعملت هده الطريقة و لكنها لم تمشي معي ربما لم افهم جيدا الكود
اولا قمت بانشاء ملف اسمه gest.bat و يختوي بداخله على ingstart وقمت بالاتصال به عن طريق الدالفي ولكن لم يقوم بتنفيد ingstart
السلام عليكم و رحمة الله و بركاته
استعملت هده الطريقة و لكنها لم تمشي معي ربما لم افهم جيدا الكود
اولا قمت بانشاء ملف اسمه gest.bat و يختوي بداخله على ingstart وقمت بالاتصال به عن طريق الدالفي ولكن لم يقوم بتنفيد ingstart
كود :
procedure TFG.FormActivate(Sender: TObject);
begin
ShellExecute(Application.Handle,
'Open',
PChar(GetEnvironmentVariable('ComSpec')),
'/K C:\Gestion\Gest.bat',
'C:\Gestion\',
SW_SHOW);
end;
بكاء العين يفضح وبكاء القلب يذبح والبكاء من خشيه الله يربح اللهم اجعلنا ممن يبكى من خشيتك

