Program exists;
// příklad použití runtime funkcí hledajících otevřené okno, 
// ev. dokument

var
 sn : string[20];  
 sp : string[140];

begin
  sn:="DAMY.WPM";
  if DoesWindowExist(sn)
    then Info_box(sn, "Toto okno existuje")
    else Info_box(sn, "Toto okno neexistuje !!");
  sp:="E:\_ROOT\MAKRA\DAMY.WPM";
  if IsDocumentOpened(sp)
    then Info_box(sp, "Dokument je otevřen")
    else Info_box(sp, "Dokument není otevřen !!");

end.