批處理直接用記事本寫bat就可以了,用不到delphi……汗
B. 急!如何使用Delphi調用執行DOS批處理文件!
我使用以下方法,但發現執行後,進程中多一個WinoldAPP,退出程序也不消失請各位大蝦指教!function
ExecuteFile(const
FileName,
Params,
DefaultDir:
string;
ShowCmd:
Integer):
THandle;var
zFileName,
zParams,
zDir:
array[0..79]
of
Char;begin
Result
:=
ShellExecute(Application.MainForm.Handle,
nil,
StrPCopy(zFileName,
FileName),
StrPCopy(zParams,
Params),
StrPCopy(zDir,
DefaultDir),
ShowCmd);end;ExecuteFile('pBar.bat','0','PBar.bat',0);
C. 用Delphi,如何將一個a.bat批處理改成a.exe文件大俠求助啊主要是用來不讓別人看到a.bat裡面的代碼。
內嵌 cmd.exe /c a.bat
D. 求教Delphi各個版本的批處理寫法!
delphi的命令行編譯工具是dcc32.exe,可以執行dcc32
/?看看幫助。
E. delphi 執行 批處理文件怎樣能不出現那個黑框
可以,你把bat文件轉換成exe文件執行,轉的時候勾選不顯示運行框哪一項
F. delphi如何獲取批處理當前執行狀況
舉例來說吧,比如想把ipconfig執行結果寫到一個stringlist里。
var
mylist:TStringList;
begin
WinExec('cmd.exe /c ipconfig>c:\myfile.txt',SW_HIDE);
Sleep(1000); //必須要的,看命令需要的時間
mylist:=TStringList.Create;
mylist.loadfromfile('c:\myfile.txt');
ShowMessage(mylist.Text);
end;
G. 批處理翻譯成delphi,應該怎麼寫呢
上面的批處理寫成一個delphi函數。解決方案 »保存為a.bat在delphi中調用WinExec('你的路徑\a.bat', SW_HIDE);如果和可執行文件在同一.
H. 如何在Delphi里執行批處理文件
打開記事本 寫入多行命令 然後保存為.bat 文件即可 比如這是一個很簡單的批處理的原文 c:\abc\*.* d:\abc del c:\abc\*.* ren d:\abc\*.jpg *.gif 運行這個批處理文件時 就會將上面三個命令同時執行
I. Delphi調用bat時,如何在bat執行完成後結束這個Delphi程序
那就用下面這個函數來執行你的bat吧。
functionWinExecAndWait32(FileName:String;Visibility:integer):DWORD;
var
zAppName:array[0..512]ofchar;
zCurDir:array[0..255]ofchar;
WorkDir:String;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
begin
StrPCopy(zAppName,FileName);
GetDir(0,WorkDir);
StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb:=Sizeof(StartupInfo);
StartupInfo.dwFlags:=STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow:=Visibility;
ifnotCreateProcess(
nil,
zAppName,{pointertocommandlinestring}
nil,{}
nil,{}
false,{handleinheritanceflag}
CREATE_NEW_CONSOLEor{creationflags}
NORMAL_PRIORITY_CLASS,
nil,{pointertonewenvironmentblock}
nil,{pointertocurrentdirectoryname}
StartupInfo,{pointertoSTARTUPINFO}
ProcessInfo{pointertoPROCESS_INF}
)
thenResult:=$FFFFFFFFelsebegin
WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess,Result);
end;
end;
J. 怎樣用delphi進行有條件的批處理
先createprocess一個進程,然後用waitforsingleobject函數等待執行完後繼續執行你自己的代碼