home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 October / Chip_1997-10_cd.bin / tema / sw602 / wintext / disk1 / data.1 / EXISTS.TXT < prev    next >
Text File  |  1994-10-11  |  460b  |  19 lines
  1. Program exists;
  2. // p°φklad pou₧itφ runtime funkcφ hledajφcφch otev°enΘ okno, 
  3. // ev. dokument
  4.  
  5. var
  6.  sn : string[20];  
  7.  sp : string[140];
  8.  
  9. begin
  10.   sn:="DAMY.WPM";
  11.   if DoesWindowExist(sn)
  12.     then Info_box(sn, "Toto okno existuje")
  13.     else Info_box(sn, "Toto okno neexistuje !!");
  14.   sp:="E:\_ROOT\MAKRA\DAMY.WPM";
  15.   if IsDocumentOpened(sp)
  16.     then Info_box(sp, "Dokument je otev°en")
  17.     else Info_box(sp, "Dokument nenφ otev°en !!");
  18.  
  19. end.