Powiedzcie mi jakim cudem po wywołaniu poniżesz procedury wyświetlają mi się foldery z projektami w delphi, kiedy miały się wyświetlać pliki config.dat
var
SR : TSearchRec;
Found : Integer;
Uzytkownik : String;
SR2 : TSearchRec;
Found2 : Integer;
ConfigDat : String;
WL : String;
begin
Found := FindFirst('C:\Documents and Settings*.' , faDirectory, SR);
while (Found = 0 ) do
begin
if (SR.Name <> '.') and (SR.Name <> '..') then
begin
Uzytkownik := ('C:\Documents and Settings' + String(SR.Name) + '' + 'Gadu-Gadu');
end;
Found2 := FindFirst(Uzytkownik + '*.', faDirectory, SR2);
while (Found2 = 0) do
begin
if (SR2.Name <> '.') and (SR2.Name <> '..') and (SR2.Name <> '_cache') and (SR2.Name <> 'dll') then
begin
ShowMessage(SR2.Name);
ConfigDat:= (Uzytkownik + String(SR2.Name) + '\config.dat');
ShowMessage(ConfigDat);
end;
Found2 := FindNext(SR2);
end;
Found := FindNext(SR);
end;
end;