Einzelnen Beitrag anzeigen

Eurowig
(Gast)

n/a Beiträge
 
#1

SendMessage mit Parameter

  Alt 1. Aug 2006, 18:15
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?
  Mit Zitat antworten Zitat