masz moje gg? bo sprawdziłem to i przy wyszukiwaniu nazwy plików nie są zamieniane na mniejsze litery a oto przykład
function GetSpecialFolderPath(const Folder: Integer): string;
var
Path: array[0..MAX_PATH] of Char;
begin
SHGetSpecialFolderPath(0, Path, Folder , False);
Result := Path;
end;
procedure TForm1.FormCreate(Sender: TObject);
const
CSIDL_PROFILE = 40;
var
path : string;
SearchResult : TSearchRec;
begin
path := GetSpecialFolderPath(CSIDL_PROFILE);
path := path + '\Dane aplikacji\Nowe Gadu-Gadu\';
if FindFirst(path+'*.*', faDirectory, SearchResult) = 0 then
begin
repeat
if (SearchResult.Name <> '.') then
begin
if (SearchResult.Name <> '..') then
begin
showmessage(SearchResult.Name);
sleep(100);
end;
end;
until FindNext(SearchResult) <> 0;
FindClose(searchResult);
end;
end;
zwraca nazwy takie jakimi są z dużymi i małymi literami. musiałeś gdzieś w kodzie umieścić funkcje lowercase bądź dać złą ścieżkę do szukania...