Ok, wyglada na to, że jest dobrze.
Mam inny problem teraz.
Jest funkcja:
var
EOFound : boolean;
Res: TSearchRec
begin
EOFound:= False;
if FindFirst(input+'\*', faAnyFile - faDirectory, Res) < 0 then
exit
else
while not EOFound do
begin
...
showMessage( Res.Name );
...
EOFound:= FindNext(Res) <> 0;
end;
FindClose(Res);
end
No i Res.Name poakazuje nazwy plików, ale od razu zmienia mi na małe literki, a ja potrzebuję też widzieć wielkie litery w nazwie, inczaej psuje mi to cały skrypt. Ktoś ma pomysł ?