home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / tema / 602propc / disk12 / data.12 / WINTEXT / MAKRA / SOURCES / AUTOEXEC.TXT < prev    next >
Text File  |  1995-08-22  |  852b  |  32 lines
  1. program AutoExec;
  2. var
  3.   S, S2 : string[90];
  4. begin
  5.   if Strtrim(GetCommandLine) <> "" then
  6.     Halt;
  7.   { neco je na prikazove radce -> nic neprovadet }
  8.  
  9.   ErasethisMacro;
  10.   { - to nejlepe co nejdrive, aby to pripadny break neovlivnil }
  11.  
  12.   Wait_box_show("╚ekejte prosφm", "Otevφrßm dokument CTIMNE.WPD");
  13.   S:= DefaultDocDir;
  14.   S2:="CTIMNE.WPD";
  15.   if StrLength(S) > 0 then
  16.     if S[StrLength(S)] <> '\' then
  17.       S:=Strcat(S, "\");
  18.   S:=Strcat(S, S2);
  19.   if OpenFile(false, S, ftWT_30, ctWINEE) = IDOK
  20.        { ·sp∞sn∞ otev°en -> neotvφrej implicitnφ prßzdny dok. }
  21.   then begin
  22.          Wait_box_hide;
  23.          SetInitialOpen(FALSE)
  24.        end
  25.        { neotev°en -> informace o chyb∞ : }
  26.   else begin
  27.          Wait_box_hide;
  28.          S:= "Nelze otev°φt " + S;
  29.          Info_box("Chyba za b∞hu makra", S);
  30.        end;
  31. end.
  32.