![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#3
|
||||
|
||||
|
Out Of System Resources.!!
Hola a tod@s.
Mi problema es el siguiente, por si alguien se anima a ayudarme. Mi herramientas de trabajo son las siguientes: Delphi 7, SO Win XP Prof SP2. Portatil Dell Core 2 Duo 2Ghz, 2GB en RAM Mi sistema tiene una Form Principal que arma el menu ( opciones disponibles para ser usadas por el usuario) en un TreeView, de acuerdo a los permisos del usuario que esta conectado al sistema. Cuando el usuario da clic sobre un nodo del arbol (TreeeView) inmediatamente se realiza el llamado a un programa ejecutable ( .exe) que representa la opcion indicada por el usuario. El llamado al ejecutable lo estoy haciendo de la siguiente manera Código Delphi [-]function ExecuteApp ( sbApp, sbParameters, sbDir : String):boolean; var SEInfo: TShellExecuteInfo; ExitCode: DWORD; begin Result := False; 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; if ShellExecuteEx(@SEInfo) then begin repeat Application.ProcessMessages; GetExitCodeProcess(SEInfo.hProcess, ExitCode); until (ExitCode <> STILL_ACTIVE) or Application.Terminated; end else Result := False; end; he detectado que cuando se hace el llamado a un ejecutable, mi sistema automaticamente incrementa el uso de la CPU al 50%, en mi equipo no tengo inconveniente, pero en equipos con menos capacidades ( procesador, cpu, memoria, etc) el uso de la CPU llega hasta el 99% ó 100%. ![]() en algunas ocaciones se presenta mucho este error "Out Of System Resources.!!" ![]() no estoy seguro si es por el uso intensivo de la CPU, pero he provado diferentes alternativas y lo unico que me queda por solucionar es este inconveniente. De antemano Muchas gracias por sus aportes. ![]() |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Delphi resources | Delfino | Noticias | 0 | 20-02-2007 10:57:08 |
| utilizar Libc.system() | guachinpon | Lazarus, FreePascal, Kylix, etc. | 0 | 21-06-2006 00:46:55 |
| System Error 127 | Kafu | Firebird e Interbase | 0 | 14-04-2004 17:07:35 |
| driver not known to system? | maruenda | Varios | 0 | 25-03-2004 15:25:30 |
| system menu / icons | tango01 | OOP | 3 | 06-01-2004 16:15:59 |
|