Hallo,
ich habe ein listbox in der dateien mit ihrem Kompletten Link eingetragen sind also z.b. E:\Musik\lied.mp3 so jezt will ich aber das nur lied.mp3 in die Listbox eingetragen wird.
Hier der Code mit dem der Dateiname ermittelt wird und in die Listbox eingetragen wird:
Delphi-Quellcode:
procedure TForm2.WMDROPFILES(var Msg: TMessage);
var
i, Counts, Size: Integer;
PCharFileName: PChar;
begin
inherited;
PCharFileName := nil;
Counts := DragQueryFile(Msg.WParam, $FFFFFFFF, PCharFileName, 255);
for i := 0 to Counts - 1 do
begin
Size := DragQueryFile(Msg.WParam, i, nil, 0) + 1;
PCharFileName := StrAlloc(Size);
DragQueryFile(Msg.WParam, i, PCharFileName, Size);
sListBox2.Items.Add(String(PCharFileName));
StrDispose(PCharFileName);
end;
DragFinish(Msg.WParam);
end;
Vielen Dank im voraus
MFG