小弟想用DELPHI 執行外部指令 cacls.exe 去更改檔案的權限 ShellExecute(handle,'open','cacls.exe','C:\DELPHI/*.* /T /G administrators:F',nil,SW_ShowNormal); 但每次一執行到這一行, 就會出現dos 視窗 問我 您是否確定 (Y/N)? 如何改成自動執行, 而不需要再確認呢?

//使用下列方法吧,我測試可以成功 //不過此程式仍有一些缺點 //假如前景視窗抓不正確,可能會有問題 procedure TForm1.Button1Click(Sender: TObject); var Ha:THandle; begin ShellExecute(handle,'open','cacls.exe','C:\BEGDB\*.* /T /G administrators:F',nil,SW_ShowNormal); sleep(200);//此行不可省略,否則會有問題 Ha:=GetForegroundWindow; SendMessage(Ha,WM_CHAR,Ord('Y'),0); SendMessage(Ha,WM_CHAR,Integer(#13),0); SendMessage(Ha,WM_CHAR,Integer(#10),0); end;

这样就可以了    ShellExecute(handle,'open','cacls.exe','C:\DELPHI/*.* /T /G administrators:F|y',nil,SW_ShowNormal);

謝謝sos_admin 但是.. 系統是不會問您是否確定 (Y/N)? 但是指令也沒有執行    

引言: 小弟想用DELPHI 執行外部指令 cacls.exe 去更改檔案的權限 ShellExecute(handle,'open','cacls.exe','C:\DELPHI/*.* /T /G administrators:F',nil,SW_ShowNormal); 但每次一執行到這一行, 就會出現dos 視窗 問我 您是否確定 (Y/N)? 如何改成自動執行, 而不需要再確認呢?

will 兄：    我想这是可以的，可能是您的dos命令的语法参数有误吧 附

謝謝TIM兄 但真的不行 小弟反覆在Windows 2000 的Dos 命令列及Delphi下式 在DOS 命令列下用 cacls.exe C:\MYDRIECT/*.* /T /G  administrators:F 系統會出現  您是否確定 (Y/N)? 指令會執行成功  但在Delphi中用 ShellExecute(handle,'open',PCHAR('cacls.exe'),PCHAR('C:\DELPHI/*.* /E /G administrators:F|y'),nil,SW_NORMAL);    只會看到Dos 命令列閃一下 但沒有任何作用    

引言: will 兄： 我想这是可以的，可能是您的dos命令的语法参数有误吧 附>< face="Verdana, Arial, Helvetica">

这样做： 1、建立一个c:\1.txt文件，内容如下： y    2、调用如下： ShellExecute(handle,'open','cacls.exe','C:\temp/*.* /T /G administrators:F〈c:\1.txt',nil,SW_ShowNormal);    这个可以，我试验过。您可以将这个语法在dos下test一下< >< > 發表人 - sos_admin 於 2003/08/07 08:03:37