WindowsMessages von Program an Program - Problem mit Handle

[zerokey]

Also: Ich will von einem Programm aus ein anderes Starten. Dieses andere Program soll dem ersten Program etwas berechnen, das in einer Datei zwischengespeichert wird. (Dateiname ist vorher festgelegt) Das 2.te Program soll dem ersten Bescheidgeben wenn es fertig ist und dann ladet das erste Program die Ergebnisse aus der gelichen Datei heraus und löscht diese wieder.

Ich habe jetzt Probleme bei dem Starten des Zweiten Programms das Handle so zu übergeben, dass das zweite Program eine Antwort zurücksenden kann.

Quelltext(Ohne Datei speichern, öffnen und löschen, des funktioniert ja einwandfrei!):

1. Program, dass das zweite Program started:

Delphi-Quellcode:

unit Main;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure WndProc(var Msg: TMessage);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
   Params: string;
begin
 Params:=IntToStr(Handle)+' '+IntToStr(WM_USER+20); //als Absenderadresse und identifier der eigenen nachrichten
 ShellExecute(Handle, 'open', 'start.exe', PChar(Params), PChar(ExtractFilePath(Application.ExeName)+'DB/'), SW_SHOWNORMAL);
end;

procedure TForm1.WndProc(var Msg: TMessage);
var
  Point: TPoint;
begin
 if Msg.Msg = WM_USER + 20 then
 begin
  case Msg.WParam of
  1:
   begin
    case Msg.LParam of
    1:
     begin
      Label1.Caption:='Angekommen';
     end; //of 1
    end; //of LParam
   end; //of 1
  end; //of WParam
 end {Wenn's keine Nachricht von mir war kriegts
   die ursprüngliche Funktion}
 else inherited;
end;

end.

2. Program, dass ne Nachricht an das erste zurückschickt

Delphi-Quellcode:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 if ParamStr(1)<>'' then
 begin
  SendMessage(StrToInt(ParamStr(1)), StrToInt(ParamStr(2)), 1, 1);
 end;
end;

end.

[TurboMartin]

Übergib es doch als Anwendungs-Parameter.
Nötige findest du hier in der DP. :stupid:

[zerokey]

Zitat:

Zitat von TurboMartin

Übergib es doch als Anwendungs-Parameter.
Nötige findest du hier in der DP. :stupid:

Zitat:

Zitat von zerokey

Params:=IntToStr(Handle)+' '+IntToStr(WM_USER+20); //als Absenderadresse
ShellExecute(Handle, 'open', 'start.exe', PChar(Params), PChar(ExtractFilePath(Application.ExeName)+'DB/'), SW_SHOWNORMAL);

das hanle der form wird ja hier über die variable params mit, aber des zurücksenden scheint nicht zu funzen.

PS: beim aufruf von shellexecute wird das handle als erstes und die identifikationsnummer(damit ich weiß, dass es meine nachrichten sind) mitübergeben.

[Christian Seehase]

Moin Zerokey,

das Handle ist nur innerhalb des eigenen Adressraumes gültig.
Du könntest mal versuchen es mit DuplicateHandle dem anderen Programm gültig zu machen.

[TurboMartin]

Delphi-Quellcode:

Params:=IntToStr(Handle)+' '+IntToStr(WM_USER+20); //als Absenderadresse
ShellExecute(Handle, 'open', 'start.exe ' + IntToStr, '', PChar(ExtractFilePath(Application.ExeName)+'DB/'), SW_SHOWNORMAL);

Eigentlich so Aufrufen.
Zumindest mach ich dass.
Und dann im anderen Programm irgendwie mit Uppercase in der DPR-Datei abfangen.

[zerokey]

Zitat:

Zitat von Christian Seehase

Moin Zerokey,

das Handle ist nur innerhalb des eigenen Adressraumes gültig.
Du könntest mal versuchen es mit DuplicateHandle dem anderen Programm gültig zu machen.

muss ich DuplicateHandle im 1.ten oder im 2.ten Programm machen?

[zerokey]

ich habe die lösung gefunden (hätt ich auch gleich drauf kommen können :wall: )
Meine WndProc funktion wurde vom system übergangen weil override; nicht hintendran stand! Die deklarierung muss nur geändert werden in:

Delphi-Quellcode:

 .... 
public
    { Public declarations }
    procedure WndProc(var Msg: TMessage); override; // <- Ohne override; funktionerts nicht!!!!
  end;
....

danke für die Hilfe