Ver Mensaje Individual
  #5  
Antiguo 23-05-2007
Avatar de maxid
maxid maxid is offline
Miembro
 
Registrado: ene 2006
Posts: 38
Reputación: 0
maxid Va por buen camino
winexec ya caducó

La funcion winexec esta por compatibilidad y es una rutina para 16b, lo que tenes que hacer es crear un proceso.
usando la funcion createprocess
con esto ejecuta y te devuelbe el handle, lo que te sirve para seguirlo, eliminar el procesos o lo que se te ocurra hacer con el..


Function EjecutarProceso(FileName:TFileName;Parametros:String):THandle;
var
procinfo:TProcessInformation;
info:tstartupinfo;
begin
fillchar(info,sizeof(info),0);
info.cb:= sizeof(info);
info.dwflags:= STARTF_USESHOWWINDOW;
info.wShowWindow:= SW_SHOWNORMAL;
If not CreateProcess(nil,
Pchar(filename +' '+Parametros)
,nil,nil,false,0,nil,nil,info,procinfo) then
raise Exception.Create('no se puede crear el proceso');
Result:= procinfo.hProcess;
end;
__________________
Maestro no solo es el que conoce sino el que comparte lo que sabe.
Responder Con Cita