Hallo zusammen.
Ich hab mir nen Programm geschrieben, welches meinen Desktop für mich aufräumt (nicht benötigte Dateien verschiebt).
Das Problem ist: Es erkennt einige .lnk dateien nicht. Meistens genau die dateien, welche vom Programm bei der installation selbst erstellt wurden sind. ZB. Adobe Acrobat, Antivir usw...
Mein Funktion um Dateien einzulesen sieht wie folgt aus:
Delphi-Quellcode:
function GetFiles : TStringArray;
var
Rec : TSearchRec;
nFileCount : integer;
foo : string;
begin
nFileCount := 0;
if FindFirst(GetDesktopPath+'\*.*', faAnyFile, Rec) = 0 then
begin
repeat
// Exclude directories from the list of files.
if ((Rec.Attr and faDirectory) <> faDirectory) then
begin
SetLength(Result, High(Result)+2);
Result[nFileCount] := Rec.Name;
Inc(nFileCount);
end;
until FindNext(Rec) <> 0;
FindClose(Rec);
end;
end;
Die besagten .lnk Dateien werden allerdings nicht gefunden
..
Jemand nen Tipp ?
Grüße,
stiftII