Pochwalony! Mam sobie problemika na poziomie osoby początkującej. Aktualnie aktualizuję mój moduł dodając do niego nową klasę - TSearch (sam piszę :P ). Polecenie Search, nie daje żadnych wyników. Wg mnie, zostało ono dobrze napisane, ale nie działa. Próbowałem robić próby na module, na normalnych aplikacjach i konsolach. Próbowałem czytać od początku artykuły, ale i tak - (za przeproszeniem) gówna się dowiedziałem :). I moje pytanko: co jest źle napisane w poniższym kodzie?? Bardzo proszę o szybką odpowiedź. Z góry dzięki :). Pozdrowienia dla forumowiczów - KiteK.
program Project2;
{$APPTYPE CONSOLE}
uses
Windows, SysUtils;
var
S: TSearchRec;
L: Integer;
begin
L := FindFirst('c:\windows\pulpit', faAnyFile, S);
while (L = 0) do
begin
Writeln(S.Name);
L := FindNext(s);
end;
FindClose(S);
Readln;
end.