Через CreateProcess запустить программу в свёрнутом состоянии.

[Человек_Борща]

Привет всем!

Ситуация, в потоке создаётся CreateProcess который запускает указанный exe, так вот как через CreateProcess запустить программу в свёрнутом состоянии?

[p51x]

Инопланетяне по секрету говорят, что не зря у нее есть параметр lpStartupInfo.

[Hacker19_90]

А может через ShellExecute тебе проще будет, чем через CreateProcess заполнять структуру чтобы спрятать окно

[Человек_Борща]

Пробовал:

var
    SI: TStartupInfo;
...
begin
...
    while AppInfo.AppStart do
    begin
      ZeroMemory(@SI, SizeOf(SI));
      SI.cb := SizeOf(StartupInfo);
      DateSeparator := '/';
      Params := StringReplace(AppInfo.AppParamStr, '%cod_datetime%', FormatDateTime('mm/dd/yyyy hh:nn:ss', now), [rfReplaceAll, rfIgnoreCase]);
      if AppInfo.AppStartMin then
      begin
      SI.wShowWindow := SW_SHOWMINIMIZED;
      end else
      begin
      SI.wShowWindow := SW_SHOWNORMAL;
      end;
      CreateProcess(
        PChar(AppInfo.AppExe),
        PChar(AppInfo.AppParamStr), nil, nil,
        False, GetPriority(AppInfo.AppPriority), nil,
        PChar(ExtractFileDir(AppInfo.AppExe)), SI, PI);
      SetProcessAffinityMask(pi.hProcess, AppInfo.AppCPUAffinity);
      WaitForSingleObject(pi.hProcess, INFINITE);
      CloseHandle(pi.hProcess);
      CloseHandle(pi.hThread);

не работает, или я не так делаю?

[GunSmoker]

wShowWindow указывает приложению, как ему следует показать окно. Этот же параметр устанавливает lnk-ярлык к программе.

Проблема в том, что это указание программе. Т.е. следовать ему или нет - решает сама программа. Криво написанные программы его игнорируют.

[p51x]

Где поставленный флаг STARTF_USESHOWWINDOW??? Доки читать будете?

If dwFlags specifies STARTF_USESHOWWINDOW, this member can be any of the SW_ constants defined in Winuser.h. Otherwise, this member is ignored.

For GUI processes, wShowWindow specifies the default value the first time ShowWindow is called. The nCmdShow parameter of ShowWindow is ignored. In subsequent calls to ShowWindow, the wShowWindow member is used if the nCmdShow parameter of ShowWindow is set to SW_SHOWDEFAULT.

[Человек_Борща]

Читал доки по стартапинфо http://www.delphirus.com/article32.html
вот что получилось:

  public
    SI: TStartupInfo;
    PI: TProcessInformation;
    AppInfo: PAppInfo;
  end;

implementation

uses LogUnit,MainUnit;

function TAppThread.GetPriority(const Prior: Integer): Integer;
const
  BELOW_NORMAL_PRIORITY_CLASS = $4000;
  ABOVE_NORMAL_PRIORITY_CLASS = $8000;
begin
  case Prior of
    0: Result := IDLE_PRIORITY_CLASS; // Низкий
    1: Result := BELOW_NORMAL_PRIORITY_CLASS; // Ниже среднего
    2: Result := NORMAL_PRIORITY_CLASS; // Средний
    3: Result := ABOVE_NORMAL_PRIORITY_CLASS; // Выше среднего
    4: Result := HIGH_PRIORITY_CLASS; // Высокий
    5: Result := REALTIME_PRIORITY_CLASS; // Реального времени
  else
    Result := NORMAL_PRIORITY_CLASS; // Средний
  end;
end;

{ TAppThread }

procedure TAppThread.Execute;
var
  i: integer;
  Params: string;
  CODDatesepar: Char;
  HM:HWND;
begin
  repeat
    for i := 1 to 10 do
    begin
      Sleep(AppInfo.AppFirstStart * 100);
      if Terminated then
        Exit;
    end;
    hlrLog_AddtoAppLog('Запуск программы: ',AppInfo.AppName);
    while AppInfo.AppStart do
    begin
      ZeroMemory(@SI, SizeOf(SI));
      //FillChar(SI,SizeOf(SI),0);
      SI.cb := SizeOf(StartupInfo);
      DateSeparator := '/';
      Params := StringReplace(AppInfo.AppParamStr, '%cod_datetime%', FormatDateTime('mm/dd/yyyy hh:nn:ss', now), [rfReplaceAll, rfIgnoreCase]);
      SI.dwFlags:=STARTF_USESHOWWINDOW;
      if AppInfo.AppStartMin then
      begin
      SI.wShowWindow:=SW_SHOWMINIMIZED;
      end else
      begin
      SI.wShowWindow := SW_SHOWNORMAL;
      end;
        if Length(AppInfo.AppOtherCaption) > 0  then
        begin
        SI.lpTitle:=PChar(AppInfo.AppOtherCaption);
        end;

      CreateProcess(
        PChar(AppInfo.AppExe),
        PChar(AppInfo.AppParamStr), nil, nil,
        False, GetPriority(AppInfo.AppPriority), nil,
        PChar(ExtractFileDir(AppInfo.AppExe)), SI, PI);

но почему не работает?

Передаю ведь флаг смотреть в каком состоянии запускать программу.

p.s. тестирую на виндовском калькуляторе

edit:
http://programmersforum.ru/showthrea...055#post602055

яблоко от яблони не далеко упало..
Меня интересует параметр ilTittle он отвечает за заголовок программы, я правельно понял?
как задать его? Если там нужен указатель на структуру..
то как должна выглядеть структура?

у меня это так:

type
  {класс информации о программе}
  TAppInfo = record
    AppName: string; // Имя
    AppExe: string; // Полный путь до ехе
    AppParamStr: string; // Параметры закуска
    AppOtherCaption:string; //Заголовок другой.
    AppPriority: Integer; // Приоритет
    AppFirstStart: Integer; // Первый запуск через
    AppSecondStart: Integer; // Второй запуск через
    AppRestart: Integer;
    AppRestartInTime: TTime; // Перезапуск после ошибки
    AppStart: Boolean; // Стартовать после окея?
    AppCPUAffinity: Cardinal; // Запуск на ядре
    AppStartMin: Boolean; // Запуск свёрнутым
  end;
  PAppInfo = ^TAppInfo;

передаю в поток так:

    AppThr := TAppThread.Create(true);
    AppThr.AppInfo := @AppInfo;
    AppThr.Resume;
    Timer.Interval := AppInfo.AppRestart * 1000 * 60;
    Timer.Enabled := True;

как задать заголовок?

[GunSmoker]

Сообщение от Человек_Борща

Поможет кто-нибуть?

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

Проблема в том, что это указание программе. Т.е. следовать ему или нет - решает сама программа. Криво написанные программы его игнорируют.

(не даёт отправить сообщение без набранного текста, поэтому я его набираю тут...)

[Человек_Борща]

Т.е. принудительно изменить заголовок программы ни как?

[GunSmoker]

В общем случае - нет.

В частном - зависит от программы.