SendMessage mit Parameter

[Eurowig]

Hallo

Meine Anwendung versendet folgend Message:

SendMessage(HWND_BROADCAST,RegisterWindowMessage('MyTestApp'),0,lParam(PChar('C:\Temp'))); Nur wie kann ich jetzt lParam auswerten???

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
begin

  MyMsg := RegisterWindowMessage('MyTestApp');

  OldWindowProc := Pointer(SetWindowLong(frmMain.Handle,GWL_WNDPROC,LongInt(@NewWindowProc)));
...
...

function NewWindowProc(WindowHandle : hWnd; TheMessage, ParamW, ParamL : LongInt) : LongInt stdcall;
begin
  if TheMessage = MyMsg  then
  begin
    ShowMessage(PChar(ParamL)); // funktioniert nicht !!!

    Result := 0;
    exit;
  end;
 {Call the original winproc}
  Result := CallWindowProc(OldWindowProc,WindowHandle,TheMessage,ParamW,ParamL);
end;

Hat jemand eine Idee, wie ich an den string komme, den ich als lParam mitgebe?

[hoika]

Hallo,

Das funktioniert wohl so nicht, falls es 2 Anwendungen sind.
Du kannst nicht über Prozessgrenzen Strings austauschen.

Wenn es bei deinem String um maximal 80 Zeichen handelt,
kannst du GlobalAddAtom und GetAtomName missbrauchen.
Du übergibst dann das hAtom im lParam.

Ansonsten kannst du nur über Prozess-Kommunikation was machen
(memory mapped file z.B.).


Heiko

[SirThornberry]

schau dir mal wm_copydata an. Ansonsten wirst du keinern Erfolg haben da der Pointer (PChar) in dem anderen Prozess nicht gültig ist (schließlich zeigt der Pointer auf einen virtuellen Speicherbereich in einem anderen Prozess und in dem Prozess ist an der virtuellen Speicheradresse etwas ganz anderes)