Межпрограммное взаимодействие

[fate]

надо покумекать )

[kettanaito]

fate, вся загвоздка с

SendMessage(hw,MY_MESSAGE,0,DWord(ParamStr(1)));

Отправка и прием работают.

Пробовал так:

procedure Tcdpmain.FormActivate(Sender: TObject);
var w:thandle;
begin
w:=CreateMutex(nil, false, 'CodepadApp');
if (GetLastError=ERROR_ALREADY_EXISTS) or(GetLastError=ERROR_ACCESS_DENIED) then
begin
 w := FindWindow('Tcdpmain',nil);
  if w<>0 then
       if paramcount>0 then
       begin
       SendMessage(w,MY_MESSAGE,0,DWord(ParamStr(1)));
       end;
 Application.Terminate;     
 Exit;
end else
begin
if paramcount>0 then begin FullOpen(ParamStr(1)); end else SetFocus;
end;

Эффект тот же.

[fate]

вся загвоздка с

вся загвоздка в получении хендла нужного окна
попробовал такой вариант:

.......................
const MY_MESSAGE = WM_USER + 4242;
function enum(hd:hwnd;Lparam:Lparam):boolean;stdcall;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Timer1: TTimer;
    procedure FormActivate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    procedure ReceiveMessage (var Msg: TMessage); message MY_MESSAGE;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  HandleForm:HWND;
implementation


var
  HM: THandle;

{$R *.dfm}

function enum(hd:hwnd;Lparam:Lparam):boolean;
var name:array[0..255] of char;
begin
FillChar(name,SizeOf(name),#0);
if IsWindowVisible(hd) then begin
  SendMessage(hd,WM_GETTEXT,SizeOf(name),Longint(@name));
  if (name=form1.Caption) and(hd<>Lparam) then
    HandleForm:=hd;

end;
result:=true;
end;

function Check: boolean;
begin
  HM := OpenMutex(MUTEX_ALL_ACCESS, false, 'CdpApp');
  Result := (HM <> 0);
  if HM = 0 then
   HM := CreateMutex(nil, false, 'CdpApp');
end;

procedure TForm1.ReceiveMessage(var Msg: TMessage);
var str:string;
begin
 label2.Caption:=label2.Caption+char(msg.lParam); //как оказалось передать полностью строку нельзя
//я предполагаю это потому что адрес указывает на место в одном АП процесса а мы передаем в другое приложение
//по этому я передаю посимвольно в цикле
// form1.Repaint;
end;

procedure TForm1.FormActivate(Sender: TObject);
var hw:HWND; i:integer; str:string;
begin

enumwindows(@enum,Handle);
label1.Caption:=inttostr(HandleForm);
label3.Caption:='Handle='+inttostr(Handle)+#13+#10+'Application.Handle='+inttostr(Application.Handle); // для инфы

str:=ParamStr(1);
  if Check=True then
  begin
  if HandleForm<>0 then begin
    for i:=0 to length(str) do begin
      SendMessage(HandleForm,MY_MESSAGE,0,ord(str[i]));
      end;
   end else
    ShowMessage('хендл не найден');
 // close;
  end;

end;

и даже работает, но не всегда ((
например если запускать из делфи (F9) то все передается прекрасно. А вот если запускать exe тут проблема. Начал копаться, оказалось у окна находит 2 хендл, я без понятия как такое может быть.

чуть переделал код:

if (name=form1.Caption) then begin//and(hd<>Lparam) then
    form1.label2.Caption:=form1.label2.Caption+name+' handle='+inttostr(hd)+#13#10;
    end;

в итоге выдает 2 разных хендла и 2 одинаковых заголовка (заголовок формы)
Такое случается если запускать exe, если же запускать из делфи то работает как надо.
Вот поэтому и не пашет, посылается сообщение на непонятный хендл.
Может кто-нить объяснит почему такое происходит?

[MooNDeaR]

ХЗ Может я идиот, ибо нефига не понимаю в Delphi и с трудом понимаю о чем вообще речь. Но ляпну наобум: А что если залить инфу о хэндле окна в которое посылается сообщение записать в некий файлик, а оттуда считать эту инфу в некий буферный хэндл и именно буфер кидать в SendMessage?

[fate]

MooNDeaR как вариант, это у ТС надо спросить подойдет ему такой вариант или нет. можно в реестр писать, что бы файлы не пладить

[kettanaito]

MooNDeaR, в целом идея подойдет, т.к. с программой и так работает несколько файлов. Но я никогда не работал с реестром, чтобы как-либо записать хендл в него. Как это сделать без реестра, в обычный файл?

fate, пробовал твой код. У меня не работает почему-то. Сам возился, пробовал через процессы как-то сделать, но не вышло (я получаю handle процесса окна моей программы, но это все еще то второе окно, а не первое).

[MooNDeaR]

Как это сделать без реестра, в обычный файл?

Ну вообще у Хэндла же есть параметры? По крайней мере должны быть
Вот ты все значения этих параметров запиши в некий файлик текстовый, а потом считай данные в таком же порядке преобразуя к нужным типам

[kettanaito]

MooNDeaR, у него нет параметров. Впрочем, я уже разобрался. Его можно записать в тот же INI как последовательность цифр. Считывается тоже хорошо.

var cini:tinifiles;
...
procedure Tcdpmain.FormActivate(Sender: TObject);
var hw:HWND; w,prc:thandle; hnd:HWND; s:integer;
begin
cini:=tinifile.Create('D:\Cdp.ini'); 
// Строка Handle в INI-файле пуста при условии, что это первый запуск
if cini.ReadInteger('Cdp','Handle',0)=0 then cini.WriteInteger('Cdp','Handle',Handle);
s:=cini.ReadInteger('Cdp','Handle',Handle);

if handle<>s then
begin
// При повторном запуске в hnd считается первый Handle окна
hnd:=cini.ReadInteger('Cdp','Handle',Handle);
if paramcount>0 then SendMessage(hnd,MY_MESSAGE,0,DWORD(ParamStr(1)));
Close;
end;
...
procedure Tcdpmain.FormDestroy(Sender: TObject);
begin
cini.WriteInteger('Cdp','Handle',0); // записываю хендл обратно в ноль
cini.free;
end;

Все хорошо, но есть два момента:
1. SendMessage либо отправляет пустой параметр (когда вызываю FullOpen), либо последовательность букв и цифр (если вызвать ShowMessage).
2. Данный код вылетает с ошибкой (из-за первого пункта)

Выяснил, что что-то идет не так во время DWORD(ParamStr(1)) и последующего PChar(msg.LParam).

[fate]

Выяснил, что что-то идет не так во время DWORD(ParamStr(1)) и последующего PChar(msg.LParam).

об этом я писал в комментариях в своем коде

[kettanaito]

Ура! Все вышло и работает чудесно!

procedure Tcdpmain.FormActivate(Sender: TObject);
var hw:HWND; w,prc:thandle; hnd:HWND; s:integer;
begin
cini:=tinifile.Create('D:\cdp32.ini');
if cini.ReadInteger('Cdp','Handle',0)=0 then cini.WriteInteger('Cdp','Handle',FindWindow('Tcdpmain',nil))
else hnd:=hnd;
s:=cini.ReadInteger('Cdp','Handle',0);

if handle<>s then
begin
hnd:=cini.ReadInteger('Cdp','Handle',0);
if paramcount>0 then
  begin
  cini.WriteString('Cdp','File',ParamStr(1));
  SendMessage(hnd,MY_MESSAGE,0,0);
  end;
Close;
end else
begin
if paramcount>0 then FullOpen(ParamStr(1));
end;
end;
...
procedure Tcdpmain.ReceiveMessage;
var msg2:string;
begin
FullOpen(cini.ReadString('Cdp','File',ParamStr(1)));
end;
...
procedure Tcdpmain.FormDestroy(Sender: TObject);
var s:integer;
begin
cini:=tinifile.Create('D:\cdp32.ini');
s:=cini.ReadInteger('Cdp','Handle',0);
DragAcceptFiles(Handle, False);
if handle=s then begin
cini.WriteInteger('Cdp','Handle',0);
cini.WriteString('Cdp','File','0');
end else Refresh;
cini.free;
end;

Не слишком рационально, но работает.