سؤال : هل من الممكن إستعمال أوامر الدوس في دالفي

لا افهم كلمة ملف دفعى

ضيف فى uses : shellapi

var
X:String;
begin
  X:= Format('/k %s', ['del F:\autorun.*']);
  ShellExecute(Handle, 'open', PChar('command.com'), Pchar(X), nil, sw_show);

جرب وبالتوفيق

السلام عليكم...

سبقني الأخ Swift بينما كنت أجهز الرد:

و للتوضيح فقط فإن الملف Command.com هو الملف التنفيذي المحتوي على الأوامر الداخلية للنظام DOS و هو يدعم بارامترين اختياريين هما K/ الذي يبقي نافذة DOS مفتوحة بعد تنفيذ الأمر، و C/ الذي يغلق نافذة DOS بعد تنفيذ الأمر.

أما الملفات الدفعية (Batch Files) فهي ملفات نصية تحتوي على واحد أو أكثر من أوامر DOS. و امتداد هذه الملفات هو bat.

نرجو الاستفادة و السلام.

اظافة الى ماقاله اخواني najy_zl و Swift هناك ملاحظة و خاصة عند التعامل مع ال ShellExecute فانت لايمكنك توقع الاخطاء التي يمكن ان تحدث في جهاز الزبون و خاصة انك تتعامل مع ملافات النظام .

ولهذا يمكنك الاستنجاد بال System Errors Throwing .

اذا يمكن استعمال ذلك على النحو التالي :

var
Errorcode: integer; // ---> System Error Code 
begin 
Errorcode :=ShellExecute(0, 'open', 'Command.com', '/C del F:\autorun.*', nil, SW_NORMAL);
case Errorcode of
2:showmessage('file not found');
3:showmessage('path not found');
5:showmessage('access denied');
8:showmessage('not enough memory');
32:showmessage('dynamic-link library not found');
26:showmessage('sharing violation');
27:showmessage('filename association incomplete or invalid');
28:showmessage('DDE request timed out');
29:showmessage('DDE transaction failed');
30:showmessage('DDE busy');
31:showmessage('no application associated with the given filename extension');
end;
end;

ويمكنك استعمال ال Error Formating باستعمال رقم الخطاء مباشرة .

و الله الموفق .

ملاحظة مهمة اخي الكريم neo_protect :

اذا كنت بصدد برمجة تطبيق يحذف ملفات من مثل ال Autorun files ...... فانصحك بعدم استعمال هذه الطريقة لانه يمكنك حذف ملفات لايجب عليك حذفها الا باستعمال ال System Queue operations و الا سوف يحدث مايسمى بال System Crash .... اذا احذر .

و الله المستعان

<div align="right">السلام عليكــم ورحمـة الله وبركاتــه

شكرا للجميع على العبور