Cita:
Empezado por chuli17
...
Lo que quisiera es que pare despues de ExecuteProcess, asta que la ventana sea visible, nose si me e esplicado bien, aber si alguien me puede tirar alguna ayudilla e intentado varias cosas y nada... Muchas gracias desde ya.
|
Hola chuli17.
Si no te entendí mal, pareciera que el problema lo tenes en la función
ExecuteProcess. Proba escribiéndola de este modo:
Código Delphi
[-]
function ExecuteProcess(aName : string): Boolean;
var
sInfo: TStartupInfo;
pInfo : TProcessInformation;
begin
ZeroMemory(@sInfo,SizeOf(TStartupInfo));
ZeroMemory(@pInfo, SizeOf(TProcessInformation));
sInfo.cb := SizeOf(TStartupInfo);
Result:= CreateProcess(nil,PChar(aName),nil,nil,False,
CREATE_NEW_PROCESS_GROUP+NORMAL_PRIORITY_CLASS,nil,nil,sInfo,pInfo);
if Result then
WaitForSingleObject(pInfo.hProcess,INFINITE);
CloseHandle(pInfo.hProcess);
CloseHandle(pInfo.hThread);
end;
Un ejemplo de llamada:
Código Delphi
[-]
const
APPNAME = 'C:\JUEGOS\ETC_ETC\GameLauncher.exe';
begin
if not ExecuteProcess(APPNAME) then
raise Exception.Create('Error al intentar ejecutar ' + ExtractFileName(APPNAME));
end;
Saludos.