Text (Pfadangabe) per Windows Message verschicken

[lbccaleb]

Ich bin echt mit meinem Latein am ende

Habs so gemacht wie du gesagt hast aber geht nicht

Delphi-Quellcode:

function GetAllocFileName(wParam: WPARAM): PChar; //wparam ist nicht 0
var
  DataPtr: Pointer;
  begin;
    Result := '';
    DataPtr := GlobalLock(wParam); //aber hier gibts nen "nil" ich vermute das hier irgendwo mein Fehler steckt
// hier gibts laut getlasterror ein ungültiges handle :(
    If DataPtr <> nil Then Begin
      Try
        Result := PChar(DataPtr);  // oder sonstwas
        MessageBox(0, 'get - pointer nil', 'fehler', MB_OK or MB_ICONWARNING);
      Finally
        GlobalUnlock(wParam);
      End;
    End Else {Fehler}
      MessageBox(0, 'get - dataptr leer', 'fehler', MB_OK or MB_ICONWARNING);
  end;

Erstmal danke für deine Hilfe, fällt dir noch was ein was falsch sein könnte?? *grummel*

mfg Caleb