CreateProcess [D7, WinXP]
oren_yastreb © (2010-11-29 19:29:00)
Испоьзую функцию 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:00) [1]
> oren_yastreb (29.11.10 19:29)
> .? Предполагаю что эти кнопки можно убрать при помощи
параметра
> StartupInfo. но незнаю как.
Предположение неверно.
--
Regards, LVT.
Наверх 
ЧАТ |
Орешник |
|
