WinExec(PChar('command.com /c del C:\doc\*.* '),SW_SHOW); 開視窗問USER是否刪除,給它一個 Y 值 如何自動載入給它一個 Y 值 ? 測式過: WinExec(PChar('command.com /c del/q C:\doc\*.* '),SW_SHOW); /q 無效 ?

Hi chubby,    

procedure TForm1.Button1Click(Sender: TObject);
begin
  WinExec(PChar('command.com /c echo Y | del C:\dos\*.* '),SW_SHOW);
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

引言: Hi chubby,

procedure TForm1.Button1Click(Sender: TObject);
begin
  WinExec(PChar('command.com /c echo Y | del C:\dos\*.* '),SW_SHOW);
end;

可以了 謝謝 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ---------------------------------- < face="Verdana, Arial, Helvetica">

引言: Hi chubby,

procedure TForm1.Button1Click(Sender: TObject);
begin
  WinExec(PChar('command.com /c echo Y | del C:\dos\*.* '),SW_SHOW);
end;

非常感謝 謝謝 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ---------------------------------- < face="Verdana, Arial, Helvetica">

非常感謝 謝謝