اجرای یک برنامه تحت داس

[masoode]

سلام
من می خواهم یک برنامه تحت dos را که دارای پارامترهای ورودی است را در دلفی اجرا کنم. بعد از اتمام کار اولا به برنامه دلفی یک جوری اعلام کند کارش تمام شده و ثانیا خود به خود پس از اجرا بسته شود
البته با winexec این کار را کرده ام ولی قسمت اول نیازم براورده نشد

[nassim_20]

دوست عزیز من دقیقا مشکل شما را متوجه نشدم ولی اینقدر می دانم که برای اجرای فایل در محیط داس باید زمانیکه فرم جدید ایجاد می کنی به جای گزینه Application گزینه Console Application را انتخاب کنی (در قسمت Other) و در این صفحه مثل پاسکال برنامه نویسی کنی
موفق باشی :flower:

[phantasm]

من می خواهم یک برنامه تحت dos را که دارای پارامترهای ورودی است را در دلفی اجرا کنم.

چه برنامه ای رو؟

[masoode]

سلام
برنامه مورد نظر من با این خط فرمان اجرا می شه
asm51.exe c:\aa.asm
و
oh.exe c:\aa.obj
همان طور که قبلا گفتم می خوام برنامه ام این رو صدا بزنه و بعد از خاتمه اجرای اون برگرده به برنامه اصلی

[phantasm]

بعد از اتمام کار اولا به برنامه دلفی یک جوری اعلام کند کارش تمام شده

تابع winexec یه خروجی عددی داره٬ که اگه عدد بزرگتر از 31 تولید کنه یعنی تابع با موفقیت عمل مورد نظر رو انجام داده.

[MSK]

procedure RunAndWaitShell(Executable,parameters:stri  ng ;Visibility:integer); 

  var 

     Info:TShellExecuteInfo; 

     pInfo:PShellExecuteInfo; 

     exitCode:DWord; 

  begin 

     {Pointer to Info} 

     pInfo:=@Info; 

     {Fill info} 

     with Info do 

     begin 

      cbSize:=SizeOf(Info); 

      fMask:=SEE_MASK_NOCLOSEPROCESS; 

      wnd:=application.Handle; 

      lpVerb:=nil; 

      lpFile:=PChar(Executable); 

      {Executable parameters} 

      lpParameters:=Pchar(parameters+#0); 

      lpDirectory:=nil; 

      nShow:=Visibility; 

      hInstApp:=0; 

     end; 

     {Execute} 

     ShellExecuteEx(pInfo); 



     {Wait to finish} 

     repeat 

      exitCode := WaitForSingleObject(Info.hProcess,500); 

      Application.ProcessMessages; 

     until (exitCode <> WAIT_TIMEOUT); 

  end; 

سپس در برنامه این را مینویسی:

RunAndWaitShell( 

My Program Path, 

'My Parameters,Sw_ShowNormal); 

[masoode]

با تشکر از دوستان :gift:
آیا این زیر برنامه احتیاج به استفاده از unit خاصی نداره؟

[m_reza]

باید Shellapi را در قسمت uses اضافه کنید