home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 December / PCWorld_2002-12_cd.bin / Software / Komercni / Baltik / katB.exe / katB / DESIGN / DESIGNIE.SGP < prev   
Encoding:
Text File  |  2002-09-26  |  2.7 KB  |  78 lines
  1. SGPC   5.04 032#000001043 22.09.2002 12:13:13                                    StructNo 1   1
  2. # include <sgpbalt.h>
  3.  
  4. // Globální prom╪nné
  5.  
  6. // Globální makra
  7. -o1-Globals
  8. -c1-Globals
  9. ===Globals
  10. /*-hf(*/
  11. /*-hf-*/
  12. int Run( string strToExec )
  13. /*-hf-*/;
  14. void main( void )
  15. /*-hf)*/;
  16. ;-h---------------------------------------------------------------------------
  17. int Run( string strToExec )
  18. -s--Run                                                                         ■   4  -2 -30   3
  19. Run
  20. 1!
  21. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  22. 1
  23.     TxtPiτⁿet╪zec("\n spouτ£ím ['"+strToExec+"'] ");
  24.     int x = TxtPoziceX();
  25.     int y = TxtPoziceY();
  26.     DOSProve╘(strToExec);
  27.     if(!(x != TxtPoziceX() || y != TxtPoziceY())){
  28.        TxtPiτⁿet╪zec("\n stikn╪te libovolnou klávesu pro návrat...  ");
  29.        ¼ekejNaKlávesu();
  30.        return 1;
  31.     }
  32.     return 0;
  33.  
  34. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  35. =SP---------------------------------------------------------------------------
  36.  
  37. ;-h---------------------------------------------------------------------------
  38. void main( void )
  39. -s--SHELL                                                                       ■   4  -2 -29   3
  40. SHELL
  41.  1!
  42. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  43. 1
  44.     TxtPiτⁿet╪zec("Upozorn╪ní : \n       Aplikace màºe pokraƒovat aº po ukonƒení okna prohlíºeƒe (Omezení MS-DOS)\n");
  45.     long sFile = SouborOtev²i("*\\designer.dat",SouborP²ístup¼tení|SouborP²ístupTextov∞|SouborP²ístupZápis);
  46.     string strExec;
  47.     Soubor¼tiSⁿet╪zec(sFile,strExec);
  48.     string url;url = DOSArgument(1);
  49.     string s = ProgramCesta();
  50.     if(url == "207")url = "http:\\www.softdesigner.euweb.cz\\help\\?ref=APP1.0";
  51.     else if(url == "205") url = StrNastavVelikost(s,StrDélka(s)-1) + "DESIGNER.DIR\\HELP\\default.htm";
  52.  
  53.  
  54.    if(strExec != "")if(Run(strExec+" "+url))return;
  55.    if(Run("iexplore.exe "+url))return;
  56.    if(Run("C:\\PROGRA~1\\INTERN~1\\iexplore.exe "+url))return;
  57.    if(Run("start.exe "+url))return;
  58.  
  59.     // error ...
  60.     while(1){
  61.     TxtPiτⁿet╪zec("Programu se nepoda²ilo nalézt internetov∞ prohlíºec. \nZadejte cesta: ");
  62.     string ⁿádek="C:\\PROGRA~1\\INTERN~1\\iexplore.exe";
  63.     static int KlávesyUkonƒení[] = { KlEnter, 0 };
  64.     Txtⁿádkov∞Editor(ⁿádek,255,64,-1,KlávesyUkonƒení);
  65.     if(Run(ⁿádek+" "+url)){
  66.        SouborNastavPozici(sFile,0,SouborPoziceOdZaƒátku);
  67.        SouborPiτⁿet╪zec(sFile,ⁿádek);
  68.  
  69.        return;
  70.     }
  71.  
  72.     else TxtPiτⁿet╪zec("\n");
  73.     }
  74. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  75. =SP---------------------------------------------------------------------------
  76.  
  77. // Konec souboru
  78.