Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TForm1.Button1Click(Sender: TObject); const   br = #13#10; var   LinkInfo: TShellLinkInfoStruct;   s, pfad: string;   i:integer; begin   FillChar(LinkInfo, SizeOf(LinkInfo), #0);   for i:=1 to Max_Path+1 do       begin         pfad:=ListView1.Items[0].Caption;         if i<=length(pfad) then           LinkInfo.FullPathAndNameOfLinkFile[i-1]:= pfad[i];     end;   GetLinkInfo(@LinkInfo);   showmessage(linkinfo.FullPathAndNameOfFileToExecute);   s := LinkInfo.FullPathAndNameOfLinkFile + br + LinkInfo.FullPathAndNameOfFileToExecute;   Memo1.Lines.Add(s); end;

So geht das bei mir. Habe allerdings der Einfachheit halber in dieses Listview eingegeben. Ich schätze es lag an der falschen Reihenfolge, weil FillChar glaub ich alle Strings auf '' setzt (hab ich grad rausgelesen zumindest). Hoffe, es geht jetzt...

lg Hellie

PS: Jetzt speicher ich das wohl besser doch mal

Mühsam ernährt sich das Eichhörnchen

Bei mir kommt jetzt zumindest mal FullPathAndNameOfLinkFile ins Memo,aber der 2. Teil immer noch ned und die Showmessage bleibt auch leer...zum Hühner melken...

Der Dateiname wird ja nur bis vor dem '.lnk' angezeigt, das gehört aber auch mit zum Dateinamen, deshalb findet es wieder die Datei nicht. Deshalb muss der String Pfad noch um '.lnk' ergänzt werden. Dann haut es bei mir wieder hin...

lg Hellie

Argh...danke,es geht

Ich muss dringendst ins Bett