VPF::Как управлять запущенной программой

max-@

Дата 30.9.2007, 21:36 (ссылка)

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

Загрузка ...

Шустрый

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

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

Суть такова мне нужно получить дискриптор программы которую я запустил с помощью комнды createprocess.

Помогите пож....Под дискриптором я понимаю идентификтор окна типа HWND

BaD_SeCt0R

Дата 30.9.2007, 22:00 (ссылка)

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

Загрузка ...

Lazy Coder

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

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

Цитата(max-@ @ 30.9.2007, 21:36

)

идентификтор окна типа HWND

Ты не думал, что у запущенной проги может быть несколько окон?

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

Кто владеет информацией - владеет миром. (С) Френсис Бэкон.

BaD_SeCt0R

Дата 1.10.2007, 00:32 (ссылка)

(голосов:1)

Загрузка ...

Lazy Coder

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

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

Вот, накидал тебе примерчик. Прога запускает сама себя, ищет в новом процессе первое попавшееся окно и выдает его в мессаджбоксе. Надеюсь, что особого труда не составит переделать пример под себя.

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function EWProc(Wnd: hWnd; lParam:cardinal):boolean;stdcall;
var
  ProcID, ThreadID: cardinal;
begin
  Result:=true;
  ThreadID:= GetWindowThreadProcessId(Wnd, ProcID);
  if ProcID=lParam then
   begin
    MessageBox(0, PChar('Handle = '+inttostr(Wnd)),PChar('ProcessID = '+inttostr(ProcID)) , mb_ok);
    Result:=false;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ProcInfo: TProcessInformation;
  SUI: TStartupInfo;
  ProcID, ThreadID: cardinal;
begin
  ZeroMemory(@SUI, SizeOf(SUI));
  SUI.cb:=SizeOf(SUI);
  CreateProcess(nil, PChar(paramstr(0)), nil, nil, False, NORMAL_PRIORITY_CLASS,
                nil, nil, SUI, ProcInfo);
  sleep(500);// здесь ждем, пока окошко появится.
              // можно EnumWindows и в цикл поставить
  EnumWindows(@EWProc, ProcInfo.dwProcessId);
end;

end.

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

Кто владеет информацией - владеет миром. (С) Френсис Бэкон.

max-@

Дата 1.10.2007, 08:36 (ссылка)

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

Загрузка ...

Шустрый

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

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

Заработало Спасибо.

Это сообщение отредактировал(а) max-@ - 1.10.2007, 08:36

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