Ver Mensaje Individual
  #4  
Antiguo 03-06-2008
Avatar de Gambito
Gambito Gambito is offline
Miembro
 
Registrado: jul 2006
Posts: 10
Reputación: 0
Gambito Va por buen camino
Hola, Pues para evitar el uso intensivo de la CPU, modifique la funcion que realiza el llamado a aplicaciones externas, para que no se quede esperando a que la nueva aplicacion termine. la funcion quedo asi.

Código Delphi [-]
 
function ExecuteApp ( sbApp, sbParameters, sbDir : String):boolean;
var
  SEInfo: TShellExecuteInfo;
//  ExitCode: DWORD;
begin
  FillChar(SEInfo, SizeOf(SEInfo), 0);
  SEInfo.cbSize := SizeOf(TShellExecuteInfo);
  with SEInfo do begin
    fMask        := SEE_MASK_NOCLOSEPROCESS;
    Wnd          := Application.Handle;
    lpFile       := PChar(sbApp);
    lpParameters := PChar(sbParameters);
    lpDirectory  := PChar(sbDir);
    nShow        := SW_SHOWNORMAL;
  end;
  Result := ShellExecuteEx(@SEInfo);

end;

Pero aun con este cambio no se soluciono el problema, aun se seguia presentando el problema de "OUT OF SYSTEM RESOURCES".
Responder Con Cita