CreateProcess

← →
oren_yastreb (2010-11-29 19:29) [0]

Испоьзую функцию WinExecAndWait32 для запуска приложения Lame.exe(кодирование в mp3). Окно приложение появляется. Как сделать чтобы CreateProcess запускал приложение Lame.exe , и в окно отображалось без кнопок Закрыть, Свернуть..? Предполагаю что эти кнопки можно убрать при помощи параметра StartupInfo. но незнаю как.

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;
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;
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 }

else begin
WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
end;
end;

← →
Leonid Troyanovsky © (2010-11-29 21:04) [1]

> oren_yastreb (29.11.10 19:29)

> .? Предполагаю что эти кнопки можно убрать при помощи параметра
> StartupInfo. но незнаю как.

Предположение неверно.

--
Regards, LVT.

CreateProcess Найти похожие ветки