Der Finder: Tool zum Durchsuchen bestimmter Verzeichnisse

[NormanNG]

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