Tenho duas funções que criam um arquivo bat
e o executa, mas simplesmente não estou conseguindo criar o processo (CreateProcess
retorna False
) e não consigo identificar o erro.
Eu uso o Windows 7, de 64 bits. Devo mudar algum parâmetro na função WinExecAndWait32
? Como debugar o CreateProcess
?
Obs.: A mesma função funcionava no XE5.
Essa é a função que cria o arquivo bat
, o executa, e depois o deleta:
function AddDeleteServico(comando: string): boolean;
var
txt: TextFile;
dir: string;
ret: boolean;
begin
ret:=False;
try
dir:=ExtractFilePath(Application.ExeName);
AssignFile(txt, dir + 'meu.bat');
Rewrite(txt);
Write(txt,comando);
CloseFile(txt);
if WinExecAndWait32(dir + 'meu.bat',dir,SW_ShowNormal) = 0 then
ret:=True;
DeleteFile(PChar(dir + 'meu.bat'));
finally
AddDeleteServico:=ret;
end;
end;
Essa é a função que cria o processo:
**EDIÇÃO:**Após a ajuda dos colegas ela a função ficou assim:
function WinExecAndWait32(ExeName: string; CmdLineArgs: string = '';
ShowWindow: boolean = True; WaitForFinish: boolean = False): integer;
var
StartInfo: TStartupInfo;
ProcInfo: TProcessInformation;
begin
FillChar(StartInfo,SizeOf(TStartupInfo),#0);
FillChar(ProcInfo,SizeOf(TProcessInformation),#0);
StartInfo.cb := SizeOf(TStartupInfo);
if not(ShowWindow) then begin
StartInfo.dwFlags := STARTF_USESHOWWINDOW;
StartInfo.wShowWindow := SW_HIDE;
end;
CreateProcess(nil,PChar(ExeName + ' ' + CmdLineArgs),nil,nil,False,
CREATE_NEW_PROCESS_GROUP + NORMAL_PRIORITY_CLASS,nil,nil,StartInfo,
ProcInfo);
Result := ProcInfo.dwProcessId;
if WaitForFinish then begin
WaitForSingleObject(ProcInfo.hProcess,Infinite);
end;
CloseHandle(ProcInfo.hProcess);
CloseHandle(ProcInfo.hThread);
end;
CloseHandle(ProcessInfo.hProcess);``CloseHandle(ProcessInfo.hThread);