Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.04;
Скачать: CL | DM;

Вниз

Как в программе получить Handle запускаемой из нее подпрограммы?   Найти похожие ветки 

 
Alku   (2002-01-17 14:36) [0]

Как из проводника передать управление программе, вместе с параметрами? Например программа висит в памяти, а я запускаю еще одну копию. Так вот, чтобы не создавать несколько копий проги надо передать управление в уже существующую в памяти программу вместе с несколькими параметрами. Как это сделать?
И еще. Из программы запускается другая прога процедурой ShellProcess. Как получить Handle запускаемой проги чтоб потом когда надо будет из программы ее закрыть?


 
yaJohn ©   (2002-01-17 14:55) [1]

1. Standartno, cherez DDE. Sm. vkladku System.
2. Ispolzuy CreateProcess.


 
Alku   (2002-01-17 16:49) [2]

А пример кода можно? У меня вот такой, но он не передает Handle в программу для его дальнейшего использования (в частности для закрытия программы)

Запуск

procedure TMainForm2.Button2Click(Sender: TObject);
var
s: string;
SI: TStartUpInfo;
PI: TProcessInformation;
begin
GetStartupInfo(SI);
s:="c:\winnt\notepad.exe"+#0;
if CreateProcess(nil,
@s[1],
nil,
nil,
FALSE,
NORMAL_PRIORITY_CLASS,
nil,
nil,
SI,
PI)=False
then ShowMessage("Не могу запустить Блокнот")
else handles:=PI.hProcess;
//else WaitForSingleObject(PI.hProcess, INFINITE);

end;


Выгрузка

procedure TMainForm2.Button1Click(Sender: TObject);
var
AG_hWnd:HWND;
AG_PID:DWORD;
D,DD:cardinal;
begin

{ AG_HWND:=FindWindow("notepad",nil);
GetWindowThreadProcessId(AG_HWND,@AG_PID);}

GetWindowThreadProcessId(handles,@AG_PID);

D:=OpenProcess(Process_all_access,true,AG_PID);
GetexitcoDeprocess(d,dd);
TerminateProcess(d,dd);
end;



Страницы: 1 вся ветка

Текущий архив: 2002.02.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
14-8985
perov
2001-12-14 06:04
2002.02.04
С праздником!!!!!!


1-8902
LoHoVski
2002-01-16 16:42
2002.02.04
Не компилирует любые пакеты без PAS-файлов ПОМОГИТЕ!


6-8959
UnderSun
2001-11-09 14:56
2002.02.04
Про выделенную линию


3-8773
derr
2002-01-05 11:25
2002.02.04
Получаю ошибку при создании таблицы через Tquery. Почему ???


7-9008
Vitaliy Jungle
2001-10-13 05:42
2002.02.04
Гребаный MSDOS