اجرای دستورات cmd

[djscsi]

چه طوری میشه برنامه ای نوشت کا مثل cmd همون دستورات رو بدی و اونا رو اجرا کنه
ممنون

[SYNDROME]

چه طوری میشه برنامه ای نوشت کا مثل cmd همون دستورات رو بدی و اونا رو اجرا کنه
ممنون

برای اجرا دستورات در Run از دستور Winexec استفاده کنید.
کلمه فوق را در سایت جستجو کنید.
موفق باشید

[B-Vedadian]

winexec یک تابع منسوخ هستش، CreateProcess بجای اون باید استفاده بشه.

در ضمن، برای کاری که شما میخواید، دستورش اینه

cmd.exe /c  «دستور مورد نظر» 

و واسه دلفی

var

  pi: TProcessInformation;

  si: TStartupInfo;

  cmd_command: String;

.

.

.

fillMemory(@si, sizeof(si),0);

si.cb := sizeof( si );



CreateProcess(

    'cmd.exe',

    PChar('/c ' + cmd_command),

    nil, nil, false,

    NORMAL_PRIORITY_CLASS, nil, nil,

    si, pi );



CloseHandle( pi.hProcess );

CloseHandle( pi.hThread );

برنامه رو بصورت کنسول درست کنی، خروجی دستورات تو همون کنسول برنامه خودت نمایش داده میشه.

[djscsi]

ممنون ولی در مورد کد دومی بیشتر تو ضیح میدی
دستورات از کجا گرفته میشه ؟به جای cmd_command دستورات قرار می گیره؟ایا به جای اون میشه نوشت edit1.text ?

[B-Vedadian]

کد کامل رو که ننوشتم - هر چند همين بخش کد هم مستقلا قابل اجراست فقط بايد قبلش به cmd_command مقدار بدي. جواب سؤال دومت بله هست. جواب سؤال آخرت رو هم يک نگاه کوچک به کد بندازي ميگيري.

کد هر چند کار ميکنه ولي در مورد کنسول اشتباه کردم يه نمونه برنامه ميذارم. وقتي دستور vedadian و يا islam رو وارد کنيد، برنامه من جواب ميده و اگه دستور ديگه اي بديد، مثل اينه که تو خط فرمان cmd.exe اجرا کنيدش (مثلا dir)

program Project2;



{$APPTYPE CONSOLE}



uses

  Windows, SysUtils;



var

  pi: TProcessInformation;

  si: TStartupInfo;

  cmd_command: String;

  cp: THandle;

begin

  fillMemory(@si, sizeof(si),0);

  si.cb := sizeof( si );

  cp := GetCurrentProcess;

  if not DuplicateHandle(cp, STD_INPUT_HANDLE, cp, @si.hStdInput, 0, True, DUPLICATE_SAME_ACCESS) then

    Exit;

  if not DuplicateHandle(cp, STD_OUTPUT_HANDLE, cp, @si.hStdOutput, 0, True, DUPLICATE_SAME_ACCESS) then

    Exit;

  if not DuplicateHandle(cp, STD_ERROR_HANDLE, cp, @si.hStdError, 0, True, DUPLICATE_SAME_ACCESS) then

    Exit;

  si.dwFlags := STARTF_USESTDHANDLES;

  while LowerCase(cmd_command) <> 'exit' do

  begin

    if LowerCase(cmd_command) = 'vedadian' then

      writeln('Please pray for him...')

    else if LowerCase(cmd_command) = 'islam' then

      writeln('Precious gift of God to mankind.')

    else

    begin

      CreateProcess(

            nil,

            PChar('cmd.exe /c ' + cmd_command),

            nil, nil, True,

            NORMAL_PRIORITY_CLASS, nil, nil,

            si, pi );

      WaitForSingleObject(pi.hProcess, 2000);

      CloseHandle( pi.hProcess );

      CloseHandle( pi.hThread );

    end;

    readln(cmd_command);

  end;

end.

[djscsi]

ممنون ولی اینو نمیشه کاریش کرد که تحت consol نباشه مثلا همه نوشته ها تو یه memo بیاد و دستورات هم تو همون memo نوشته بشه
ممنون

[B-Vedadian]

قبلا در مورد این توضیح دادم
https://barnamenevis.org/showpo...3&postcount=10

[djscsi]

ممنون ولی برای همه دستورات اجرا نمیشه
مثلا cd
ممنون میشم کمک کنی
در مورد اینم یه توضیحی میدی
CreateProcess(
nil,
PChar('cmd.exe /c ' + cmd_command),
nil, nil, True,
NORMAL_PRIORITY_CLASS, nil, nil,
si, pi );
به ویژه اینجاش cmd.exe /c

[B-Vedadian]

يعني چي که اجرا نميشه! دستور cd که خروجي به کنسول نداره.

در مورد CreateProcess، بايد بگم يک دستور API ويندوز براي اجراي فايل هستش. فايل cmd.exe رابط ويندوزهاي 2000 و XP براي خط فرمان داسه (command prompt). پارامتر c به cmd.exe ميگه که پارامتر بعدي رو اجرا کنه، و بلا فاصله بعد اجرا برگرده.

[djscsi]

منظورم دستور cd.. یا cd\ هست
شما این کارو بکن ببین میشه یا نه مثلا به دستور cd\ به ریشه drive برو و یه dir اجرا کن ببین رفته یا نه اگه رفته باشه باید الان نام پوشه هایی که تو drive هست رو بنویسه

[djscsi]

منظورم دستور cd.. یا cd\ هست
شما این کارو بکن ببین میشه یا نه مثلا به دستور cd\ به ریشه drive برو و یه dir اجرا کن ببین رفته یا نه اگه رفته باشه باید الان نام پوشه هایی که تو drive هست رو بنویسه