Delphi-Quellcode:
for i:=0 to (anzahl-1) do
begin
size:=DragQueryFile(Msg.WParam,i,nil,0)+1;
Dateiname:=StrAlloc(size);
DragQueryFile(Msg.WParam,i,Dateiname,size);
Listbox4.Items.Add(StrPas(Dateiname)); //hier fügst du mit pfad ein
StrDispose(Dateiname);
end;
Delphi-Quellcode:
//Neue Dateien in Listbox1
for r:=1 to a do
//if schonda(listbox4.items[r-1])=false then
if listbox1.items.indexof(listbox4.items[r-1])=-1 then //hier wird "datei mit pfad" mit "datei ohne pfad" verglichen
begin edit2.text:=inttostr(listbox1.items.indexof(listbox4.items[r-1]));
listbox1.items.add(listbox4.items[r-1]);
dein problem ist, dass du die dateinamen ohne pfad speicherst,
vergleichst die (neuen) gedroppten dateien aber mit pfad mit den
alten (vorher gedroppten) dateien von denen du den pfad abgeschnitten
hast mit deiner
procedure TForm1.dateinamenkurz(); methode.