FindWindow - Unterschied zu Delphi

[Uwe_9988]

Hallo Theo,

also gut. Warum nicht?

Ich suche also eine Möglichkeit um einer Lazarus-Anwendung über eine andere Lazarusanwendung eine Message zu schicken, in der ich ihr über einen einfachen Integer mitteile, was sie tun soll. Beide Anwendungen sind Eigenentwicklungen und verfügen über eine GUI.

Bisherige Ansätze waren FindWindow und PostMessage aus der Win32-API.

Wie sollte ich das am besten mit Lazarus plattformunabhängig lösen auch wenn die Anwendungen nur unter Windows laufen sollen?

Ein paar zielführende Stichworte würden mir genügen...


Grüße,
Uwe

[af0815]

IPC Lazarus bei Google zB.

IPC in der Forumsuche

oder ganz einfach die Sourcen rund um Lazarus und das Lazarus-ccr (am besten aus dem SVN)

[theo]

Ein paar zielführende Stichworte würden mir genügen...

Plattformübergreifend: Tab "System" -> TSimpleIPCClient/Server.

[Uwe_9988]

Danke an alle!

Ein erster Ansatz funktioniert schonmal. Die Abfrage ob die Anwendung schon läuft...

Code: Alles auswählen

program FindWindowTest; // ohne FindWindow ;-)
 
//...
 
uses
//...
 
  simpleipc;
 
//... 
var
  Srv : TSimpleIPCServer;
  Clt : TSimpleIPCClient;
 
begin
  {$I FindWindowTest.lrs}
  // Programm nur einmal starten
  Application.Initialize;
  Clt := TSimpleIPCClient.Create(nil);
  try
    Clt.ServerID := 'OneAndOnly4535435';
    if Clt.ServerRunning then
      Application.Terminate;
  finally
    Clt.Free;
  end;
  if not Application.Terminated then
  begin
    Srv := TSimpleIPCServer.Create(nil);
    try
      Srv.ServerID := 'OneAndOnly4535435';
      Srv.Global := True;
      Srv.StartServer;
      Application.CreateForm(TForm1, Form1);
      Application.Run;
    finally
      Srv.Free;
    end;
  end;
end.

Werde mal testen ob das so unter Linux läuft.


Grüße,
Uwe