не работает функция запуска из CreateProcess

[beegl]

добрый день, .. подскажите, какие параметры не верны, .. (запуск игры из рабочего стола FULLSCREEN)

function RunMyApp(my_app : string; my_wait : bool) : bool;
  var
    si : TStartupInfo;
    pi : TProcessInformation;
  begin
    Result := false;
    try
      ZeroMemory(@si,SizeOf(si));
      si.cb := SizeOf(si);
      si.dwFlags := STARTF_RUNFULLSCREEN;
      si.wShowWindow := SW_SHOWDEFAULT;
      if CreateProcess(nil,PChar(my_app),nil,nil,False,0,nil,nil,si,pi)=true then Result := true;
      try CloseHandle(pi.hThread); except ; end;
      if my_wait = true then WaitForSingleObject(pi.hProcess, INFINITE);
      try CloseHandle(pi.hProcess); except ; end;
    except
      Result := false;;
    end;
  end;

[Serge_Bliznykov]

не знаю, как насчёт параметров CreateProcess, но мне не нравится логика с my_wait

Это что получается, если я укажу my_wait := false, то
выполнится CreateProcess и сразу же выполнится CloseHandle(pi.hProcess) ?
а на процессе это никак не отразиться?


ну и это.
не надо делать масло более масляным:

Сообщение от beegl

if CreateProcess(nil,PChar(my_app),nil,nil,False,0,nil,nil,si,pi)=true then Result := true;

Result :=  CreateProcess(nil,PChar(my_app),nil,nil,False,0,nil,nil,si,pi);

[beegl]

Сообщение от Serge_Bliznykov

не надо делать масло более масляным:

а как тогда запустить, .. ShellExecute, WinExeс не хочет

[Alex11223]

Сообщение от Serge_Bliznykov

а на процессе это никак не отразиться?

нет.

Я правда не понял зачем там try except, в WinAPI нет исключений.

Сообщение от beegl

а как тогда запустить

Причем тут эта цитата?

Вы не поняли о чем там речь.

[beegl]

Сообщение от Alex11223

Вы не поняли о чем там речь.

ShellExecute(Application.Handle, PChar('open'), PChar('C:\Program Files\Grand Theft Auto - San Andreas\gta_sa.exe'), nil, nil, SW_MAXIMIZE);

процесс:

function KillTask(ExeFileName: String): Integer;
var
   ContinueLoop: BOOL;
   FSnapshotHandle: THandle;
   FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle,
  FProcessEntry32);
  while integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
    UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
    UpperCase(ExeFileName))) then
    Result := Integer(TerminateProcess(OpenProcess(
    PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0));
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

и на весь экран процесс:

ShowWindow(Application.Handle,SW_SHOWMAXIMIZED);

Так можно??

[Alex11223]

Зачем вы цитируете сообщения никак не относящиеся к вашему ответу?
В первой цитате речь была о том, что в Дельфи не надо никогда писать a = true, b = false, if a = true then c := true else c := false и т.п.

[beegl]

Сообщение от Alex11223

Зачем вы цитируете сообщения

P.S. прошу прощения.

Подскажите, почему зная имя процесса, не разворачивает на весь экран?

function RunGamelTask(ExeFileName: String): Integer;
var
   ContinueLoop: BOOL;
   FSnapshotHandle: THandle;
   FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle,
  FProcessEntry32);
  while integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
    UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
    UpperCase(ExeFileName))) then
   ShowWindow(FSnapshotHandle,SW_SHOWMAXIMIZED); // Not work
  end;
end;

[beegl]

ничего не получается, просто висит в процессах gta_sa.exe, но не работает, .. что делать?

[p51x]

Не писать бред. ShowWindow, как следует из названия показывает окно и ей нужен хендл этого окна. Нафига вы ей суете хендл снепшота процессов?