كيفيه كتابه اوامر dos بدلفي

[php3man]

بسم الله الرحمن الرحيم
كيفيه كتابه اوامر بالدوس عن طريق الدلفي ؟
مثال اذا ما أردنا تتفيذ امر
net user delphi4arab /add
لاضافه يوزر جديد في الويندوز كيفيه تطبيق ذلك

[kachwahed]

السلام عليكم
باستخدام WinExec مثل:

كود :

WinExec('cmd /k ver',SW_SHOW)

او ShellExecute من ShellAPI مثل:

كود :

ShellExecute(0, 'open','cmd',PChar('/k ver'),'',SW_NORMAL);

لهذه الأخيرة أضف ShellAPI في Uses.

[php3man]

بسم الله الرحمن الرحيم

تم تصحيح الخطأ
كان عندي الخطأ

كود :

ShellExecute(0, 'open','cmd',PChar('ver'),'',SW_NORMAL);

لم اكتب k/

كود :

ShellExecute(0, 'open','cmd',PChar('/k ver'),'',SW_NORMAL);

[kachwahed]

لم اكتب k/

تلك Argument لتطبيق Cmd وتعني تنفيذ أوامر مع إبقاء واجهة Console مفتوحة
ألق نظرة على بقية الـ Arguments أكتب في سطر الأوامر:

كود :

cmd /?

مثال آخر:

كود :

WinExec('cmd /c copy *.exe d:',SW_HIDE)

بالتوفيق.

[mourad39]

اذا ارت الحصول على النتائج النصية لتنفيذ أوامر الدوس فما عليك سوى زيارة هذا الموضوع
http://www.delphi4arab.net/forum/showthr...p?tid=2731