FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
WinExecAndWait32
Tengo esta funcion en delphi 7
function WinExecAndWait32(FileName:String; Visibility:integer):integer; var zAppName:array[0..512] of char; zCurDir:array[0..255] of char; WorkDir:String; StartupInfo:TStartupInfo; ProcessInfo:TProcessInformation; Resultado,exitCode: DWord; begin StrPCopy(zAppName,FileName); GetDir(0,WorkDir); StrPCopy(zCurDir,WorkDir); FillChar(StartupInfo,Sizeof(StartupInfo),#0); StartupInfo.cb := Sizeof(StartupInfo); StartupInfo.dwFlags := STARTF_USESHOWWINDOW; StartupInfo.wShowWindow := Visibility; CreateProcess(nil, zAppName, { pointer to command line string } nil, { pointer to process security attributes} nil, { pointer to thread security attributes} false, { handle inheritance flag } CREATE_NEW_CONSOLE or { creation flags } NORMAL_PRIORITY_CLASS, nil, { pointer to new environment block } nil, { pointer to current directory name } StartupInfo, { pointer to STARTUPINFO } ProcessInfo); {Espera a que termine la ejecucion} {Wait until execution finish} repeat exitCode := WaitForSingleObject( ProcessInfo.hProcess,1000); Application.ProcessMessages; until (exitCode <> WAIT_TIMEOUT); GetExitCodeProcess(ProcessInfo.hProcess,Resultado); //MessageBeep(0); CloseHandle(ProcessInfo.hProcess ); Result:=Resultado; end; la vi en TMania y la implemente en mi programa, el problema es que corre bien en Windows XP pero no quiere funcionar en W98 o W2K, alguna sugerencia para este problema. Gracias. |
#2
|
||||
|
||||
Por lo menos podrías explicarnos qué se supone que hace la función y en qué consiste el no funcionar. Así tendrás más posibilidades de obtener ayuda.
// Saludos |
#3
|
||||
|
||||
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
|
|
|