home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / TEST_A.PAS < prev    next >
Pascal/Delphi Source File  |  1999-02-13  |  1KB  |  65 lines
  1. uses dos,crt,slova;
  2.  
  3. var a,rad: string;
  4.     aa,bb:text;
  5.     i,j,k,l : integer;
  6.     znak : char;
  7.  
  8. begin             { NA ZKOUSKU }
  9.  
  10.  znak:=testdisk(1,4);
  11.  assign(aa,'c:\trell\info.dll');
  12.  
  13.  if znak='A' then
  14.  begin
  15.  
  16.   soubory('a:\*.*','c:\trell\info.dll',1);
  17.  
  18.   reset(aa);
  19.   j:=0;
  20.   while not(eof(aa)) do
  21.   begin
  22.    readln(aa,rad);
  23.    if not((rad='TRELLSFT.INF')or(rad='')) then j:=1;
  24.   end;
  25.   close(aa);
  26.  
  27.   if j=1 then
  28.   begin
  29.  
  30.    dd[1]:='Disketa v poçítaçi obsahuje asi star¿í DATA !!!';
  31.    dd[2]:='';
  32.    dd[3]:='Aby bylo moæné provést zálohování, je t⌐eba ji p⌐ed zápisem vymazat.';
  33.    dd[4]:='';
  34.    dd[5]:='CHCETE JI VYMAZAT ?';
  35.  
  36.    znak:= ano_ne(0,0,5,4,1);        { okenko ano - ne, vystup A - N - X }
  37.  
  38.    if znak='A' then
  39.    begin
  40.  
  41.     reset(aa);
  42.     while not(eof(aa)) do
  43.     begin
  44.       readln(aa,rad);
  45.       if not((rad='TRELLSFT.INF')or(rad='')) then
  46.       begin
  47.         rad:='A:\'+rad;
  48.         assign(bb,rad);
  49.         erase(bb);
  50.       end;
  51.     end; { konec cistky }
  52.     close(aa);
  53.  
  54.    end; { konnec pro znak = 'A' }
  55.  
  56.   end; { konec pro j=1 }
  57.  end;  { konec pro  znak=A }
  58.  
  59.  
  60.  rewrite(aa);
  61.  writeln(aa,'"'+znak+'"');
  62.  close(aa);
  63.  
  64.  
  65. end.