Nuk jam i sigurtė pasi nuk e di nėse kėto funksione janė njėlloj si nė Pascal megjithatė po tė jap njė mėnyre nė Pascal sepse ka mundėsi qė llogjika tė jetė e njėjtė sepse shfrytezohet DOS:
Kodi:
var
Info : SearchRec; //ketu deklaron tipin e te dhenave per te perdorur keto funksione
begin
findfirst('*.*',Directory,Info);
while doserror = 0 do
begin
if (Info.Attr and Directory <> 0) and (info.name <> '.') and (info.name <> '..') then
begin
//Ketu ruaje direktorine e gjetur psh ne nje array
end;
FindNext(info);
end; {while}
end.
Me nje kerkim te shpejte ne Google gjeta dhe kete lidhje:
http://www.decompile.com/cpp/faq/findfirst_findnext.htm
Krijoni Kontakt