Советы по Delphi

       

указатель на атрибуты безопасности процесса


function WinExecAndWait32(FileName:String; Visibility : integer):integer;varzAppName:array[0..512] of char;zCurDir:array[0..255] of char;WorkDir:String;StartupInfo:TStartupInfo;ProcessInfo:TProcessInformation;
beginStrPCopy(zAppName,FileName);GetDir(0,WorkDir);StrPCopy(zCurDir,WorkDir);FillChar(StartupInfo,Sizeof(StartupInfo),#0);StartupInfo.cb := Sizeof(StartupInfo);StartupInfo.dwFlags := STARTF_USESHOWWINDOW;StartupInfo.wShowWindow := Visibility;if not CreateProcess(nil,zAppName, { указатель на строку с командной строкой }nil, { указатель на атрибуты безопасности процесса }nil, { указатель на атрибуты безопасности потока }false, { флаг дескриптора предка }CREATE_NEW_CONSOLE or { флаги создания }NORMAL_PRIORITY_CLASS,nil, { указатель на новый блок среды }nil, { указатель на имя текущего каталога }StartupInfo, { указатель на STARTUPINFO }ProcessInfo) then Result := -1 { указатель на PROCESS_INF }elsebeginWaitforSingleObject(ProcessInfo.hProcess,INFINITE);GetExitCodeProcess(ProcessInfo.hProcess,Result);end;end;
- Pat Ritchey [000919]


Содержание раздела