VPF::CreateProcess - Форум программистов

RideX

Дата 27.9.2004, 05:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 94
Регистрация: 8.9.2004

Репутация: 2
Всего: 7

Нужно запустить стороннюю программу с помощью CreateProcess, задав с помощью параметров STARTUPINFO положение и размер окна, но что-то не выходит. Что здесь не так? Вот код:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  si: TStartupInfo;
  p:  TprocessInformation;
begin
 FillChar(si, SizeOf(si), 0);
 with si do begin
  cb := SizeOf(si);
  dwX := 0;
  dwY := 0;
  dwXSize := 100;
  dwYSize := 50;
  dwFlags := STARTF_USESHOWWINDOW + STARTF_USESIZE + STARTF_USEPOSITION;
  wShowWindow := SW_SHOWNOACTIVATE;
 end;
 
 Application.Minimize;
 CreateProcess(nil,'notepad.exe', nil, nil, False, CREATE_DEFAULT_ERROR_MODE, nil, nil, si, p);
 Waitforsingleobject(p.hProcess, INFINITE);
 Application.Restore;
end;

bear

Дата 27.9.2004, 06:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 15.6.2004

Репутация: нет
Всего: нет

Попробуй лучше WinExexc и SetWindowPos.

RideX

Дата 27.9.2004, 08:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 94
Регистрация: 8.9.2004

Репутация: 2
Всего: 7

bear
WinExec устаревшая ф-ция, оставленная только для совместимости, в Win32 нужно использовать CreateProcess. В дополнение к сказанному тобой, эту задачу также можно решить и через ShellExecute, MoveWindow, ShellExecuteEx, но надо разобраться, как это сделать с помощью CreateProcess. Кто-нибудь может что-то подсказать?

DonPager

Дата 27.9.2004, 12:29 (ссылка)

(нет голосов)

Загрузка ...

Колдырь

Профиль
Группа: Участник
Сообщений: 327
Регистрация: 28.3.2003
Где: Воронеж

Репутация: нет
Всего: 2

RideX
вот тебе функция которая обернёт CreateProcess в удобную форму

Код


function ExecIt(const FileName,Params: ShortString;const WinState: Word): boolean; export;
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: ShortString;
begin
  CmdLine := '"' + Filename + '" ' + Params;
  FillChar(StartInfo, SizeOf(StartInfo), #0);
  with StartInfo do
   begin
    cb := SizeOf(StartInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := WinState;
   end;
  Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false,
                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
                          PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);
end;

Это сообщение отредактировал(а) DonPager - 27.9.2004, 12:30

--------------------

кодер + лодырь = колдырь

RideX

Дата 27.9.2004, 12:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 94
Регистрация: 8.9.2004

Репутация: 2
Всего: 7

DonPager
Спасибо за совет

Дело в том, что в StartupInfo есть такие параметры как dwX: DWORD; dwY: DWORD; dwXSize: DWORD; dwYSize: DWORD; они служат для задания параметров положения и размера окна запускаемого приложения, именно их я и хочу задействовать, но почему-то не получается

В твоём примере этого сделать нельзя, а wShowWindow у меня работает нормально... Тем не менее, ещё раз спасибо.

DonPager

Дата 27.9.2004, 12:56 (ссылка)

(нет голосов)

Загрузка ...

Колдырь

Профиль
Группа: Участник
Сообщений: 327
Регистрация: 28.3.2003
Где: Воронеж

Репутация: нет
Всего: 2

RideX ...точно не скажу но просто попробуй использовать прямой вызов запуска процесса из MSDN(но помни там передаются указатели а не переменные)
там примерно 5 похожих процедур с разными дополнительными фичами

З.Ы. и в твоём случае попробуй задавать поле cb в конце определения;

Это сообщение отредактировал(а) DonPager - 27.9.2004, 12:59

--------------------

кодер + лодырь = колдырь

RideX

Дата 27.9.2004, 13:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 94
Регистрация: 8.9.2004

Репутация: 2
Всего: 7

Цитата(DonPager @ 27.9.2004, 12:56)

попробуй задавать поле cb в конце определения

Попробовал, не то...

p0s0l

Дата 27.9.2004, 20:57 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112

В MSDN сказано про эти параметры:

Цитата

dwX
If dwFlags specifies STARTF_USEPOSITION, this member is the x offset of the upper left corner of a window if a new window is created, in pixels. Otherwise, this member is ignored.
The offset is from the upper left corner of the screen. For GUI processes, the specified position is used the first time the new process calls CreateWindow to create an overlapped window if the x parameter of CreateWindow is CW_USEDEFAULT.

(главное - выделено, а еще главнее - подчёркнуто)
Про dwY, dwXSize, dwYSize - то же самое...

--------------------

С уважением, г-н Посол.

p0s0l

Дата 27.9.2004, 21:47 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112

Мой совет - ждать появления первого окна, и менять у него параметры

--------------------

С уважением, г-н Посол.

RideX

Дата 28.9.2004, 08:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 94
Регистрация: 8.9.2004

Репутация: 2
Всего: 7

p0s0l
Всё понятно, спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »