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?