home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 October / Chip_1997-10_cd.bin / tema / sw602 / wintext / disk1 / data.1 / _DELETE.TXT < prev    next >
Text File  |  1994-10-02  |  499b  |  24 lines
  1. program DELETE_FILE;
  2.  
  3. // Makro vymaze soubor z disku
  4.  
  5. function OpenFile(var s : string[127];var x : short; y : short): short;
  6.   external 'KRNL386.EXE' name 'OpenFile';
  7.  
  8. var 
  9.   jmeno, zal : string[127];
  10.   struct : short;
  11.   ret : boolean;
  12.  
  13. begin
  14.   jmeno := GetDocWndTittle;
  15.   zal := jmeno;
  16.   ret := Input_Box("Zadej jmΘno souboru", jmeno, 127);
  17.   if ret then
  18.   begin  
  19.     if zal = jmeno then
  20.       DocClose(kSaveNever);
  21.     OpenFile(jmeno, struct, 512);
  22.   end
  23.   else beep;
  24. end.