Gracias cancun
estoy probando también tu código, por favor indicame en parte del código debo poner la ruta
del programa para que se ejecute, es que estoy muy nuevo en esto de programación...
Código Delphi
[-]function Ejecutar(Programa:String;Esperar:Boolean=True):Boolean;
var ProcInfo:TProcessInformation;
Info:TStartupInfo;
begin
FillChar(Info,SizeOF(Info),0);
Info.cb:=SizeOf(Info);
Info.dwFlags:=STARTF_USESHOWWINDOW;
Info.wShowWindow:=SW_SHOWNORMAL;
Result:=CreateProcess(nil,PChar(Programa),nil,nil,False,0,nil,nil,Info,ProcInfo);
if Esperar then
while WaitForSingleObject(ProcInfo.hProcess,100)=Wait_TimeOut do
begin
Application.ProcessMessages;
if Application.Terminated then Break;
end;
end;
Un saludo para ti de nuevo...