[kiman.ru]

Есть сторонняя программа на Java. При запуске программы в параметрах нужно передавать Handle своего приложения, чтобы программа на Java могла посылать сообщения моему приложению.

Делаю так:

Код:

var
   param: Pchar;
begin
   param := PChar(Form1.Handle);
   ShellExecute (Form1.Handle, nil, 'C:\PRNControl.jar', param, nil, SW_HIDE);
end;

Но этот вариант не работает — обратно сам себе передать сообщение даже не могу.

Код:

var
   h: THandle;
begin
   h := hwnd(param);
   PostMessage(h,WM_MYMESSAGE,0,0);
end;

Как передать Handle стороннему приложению?

P.S. Найти хэндл по названию окна не предлагать.

[NumLock]

во-первых запуск java-приложения: "java -jar jarfile.jar". во-вторых java не умеет посылать сообщения Windows (JNI не в счет).

[kiman.ru]

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

во-первых запуск java-приложения: "java -jar jarfile.jar". во-вторых java не умеет посылать сообщения Windows (JNI не в счет).

Сапсибо! Задача решена. Вот так можно передать Handle в параметрах.

Код:

var
   iii: Integer
begin
   iii := Integer(Form1.Handle);
   ShellExecute (Form1.Handle, nil, 'C:\PRNControl.jar', PChar(String(IntToStr(iii))), nil, SW_HIDE);
end;

[angvelem]

Сообщение от kiman.ru

Код:

   iii := Integer(Form1.Handle);

Правильнее писать:

Код:

   iii := Form1.Handle;

приведения к Integer не требуется.