Hi,
beim Drag&Drop wird statt dem Dateinamen nur Müll angezeigt. Wenn ich den Source richtig verstehe, reservierst du zwar den Speicher für den Dateinamen, schreibst aber dann nichts hinein, oder?
Delphi-Quellcode:
procedure TFinderForm.WMDropFiles(var aMsg: tMessage);
var
Idx,
Size,
FileCount: Integer;
Filename: pChar;
begin
inherited;
FileCount := DragQueryFile(aMsg.WParam, $FFFFFFFF, nil, 255);
for Idx := 0 to FileCount - 1 do
begin
Size := DragQueryFile(aMsg.WParam, Idx, nil, 0) + 1;
Filename := StrAlloc(Size); // <- fehlt hier nicht noch was?
// Zur TreeView hinzufügen
with TreeView.Items.Add(nil, FileName + '\') do
begin
ImageIndex := 2;
SelectedIndex := 2;
end;
StrDispose(Filename);
end;
DragFinish(aMsg.WParam);
TreeView.AlphaSort(false);
geaendert := true;
end;
Ansonsten ganz nett
