home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 May / PCWorld_2000-05_cd.bin / Software / Komercni / 602sql / prg / data1.cab / Client_Files / WINAPI32.PGM < prev   
Text File  |  2000-03-16  |  9KB  |  204 lines
  1. INCLUDE
  2.  
  3. // zapsßnφ °et∞zce do INI souboru (Φφslo se zapφÜe takΘ jako °et∞zec!) {32ok}
  4. //******************************                 
  5. function WriteProfString(var sekce,              // jmΘno sekce v INI souboru
  6.                              polozka,            // jmΘno polo₧ky v INI souboru
  7.                              obsah,              // co zapsat do INI souboru
  8.                              ini : string        // jmΘno INI souboru
  9.                         ) : Boolean;             // vrßtφ TRUE, kdy₧ se poda°φ zapsat
  10. external 'KERNEL32' name 'WritePrivateProfileStringA';  
  11.  
  12. //p°eΦtenφ °et∞zce z INI souboru   {32ok}
  13. //******************************
  14. function GetProfString(var sekce,                // jmΘno sekce v INI souboru                            
  15.                            polozka,              // jmΘno polo₧ky v INI souboru
  16.                            default,              // °et∞zec, kter² se vezme v p°φpad∞, ₧e nelze naΦφst do buffer
  17.                            buffer : string;      // vrßcen² °et∞zec
  18.                        vel : integer;            // velikost bufferu v bytech
  19.                        var ini : string          // jmΘno INI souboru
  20.                       ) : integer;               // fce vracφ poΦet byt∙ zkopφrovan²ch do buffer, 0 pokud se nezda°ilo
  21. external 'KERNEL32' name 'GetPrivateProfileStringA';  
  22.  
  23. //p°eΦtenφ Φφsla z INI souboru     {32ok}
  24. //******************************                
  25. function GetProfInt(var sekce,                   // jmΘno sekce v INI souboru
  26.                         polozka : string;        // jmΘno polo₧ky v INI souboru
  27.                     default : integer;           // kladnΘ Φφslo, kterΘ fce vrßtφ v p°φpad∞, ₧e se nezda°φ p°eΦφst hledanou hodnotu
  28.                     var ini : string            // jmΘno INI souboru
  29.                    ) : Integer;                    // fce vrßtφ p°eΦtenΘ celΘ Φφslo
  30. external 'KERNEL32' name 'GetPrivateProfileIntA';  
  31.  
  32.  
  33. // zjiÜt∞nφ adresß°e s Windows pro INI soubor    (32ok)
  34. //******************************
  35. function GetWDir(var buffer : string;            // v²stupnφ parametr
  36.                      vel : integer               // velikost bufferu v bytech
  37.                 ) : integer;                     // fce vrßtφ poΦet byt∙ zkopφrovan²ch do buffer, 0 pokud se nezda°ilo 
  38. external 'KERNEL32' name 'GetWindowsDirectoryA';
  39.  
  40.  
  41. //zjiÜt∞nφ doby, po kterou jsou spuÜt∞nΘ Windows   (32ok)
  42. //******************************
  43. function GetTickCount : integer;                 // fce vrßtφ poΦet milisekund
  44. external 'KERNEL32';
  45.  
  46.  
  47. //zjiÜt∞nφ druhu diskovΘ jednotky  (32ok)        
  48. //******************************
  49. function GetDriveType(var root : string[3]  // korenovy adresar disku
  50.                      ) : integer;           // hodnoty: 2 = disketa, 3 = pevn² disk, 4 = sφ¥ov² disk, 5 = CD, 0 = nic, 1 = root neexistuje 
  51. external 'KERNEL32' name 'GetDriveTypeA';
  52.  
  53.  
  54. // p°evod °et∞zce na malß pφsmena (32ok)
  55. //******************************
  56. procedure LowCase(var retezec : string); 
  57. external 'USER32' name 'CharLowerA';
  58.  
  59.  
  60. // zapsßnφ novΘho ·daje do Property List okna (32ok)
  61. //******************************
  62. function SetProp(id : window_id;             // handle pohledu
  63.                  var ident : string;         // nazev ·daje
  64.                  value : integer             // hodnota ·daje - celΘ Φφslo 
  65.                 ) : boolean;
  66. external 'USER32' name 'SetPropA';
  67.  
  68. // p°eΦtenφ ·daje z Property List okna (32ok)
  69. //******************************
  70. function GetProp(id : window_id;             // handle pohledu
  71.                  var ident : string          // nazev ·daje
  72.                 ) : integer;                 // fce vracφ hodnotu ·daje
  73. external 'USER32' name 'GetPropA';
  74.  
  75. // odstran∞nφ ·daje z Property List okna (32ok)
  76. //******************************
  77. function RemoveProp(id : window_id;           // handle pohledu
  78.                     var ident : string        // nazev ·daje
  79.                    ) : integer;
  80. external 'USER32' name 'RemovePropA';
  81.  
  82.  
  83. // ukrytφ okna              (32ok)
  84. //******************************
  85. function ShowWindow(id : window_id;          // handle pohledu
  86.                     flag : integer           // flag = 0 - skr²t; flag = 5 - obnovit okno
  87.                    ) : boolean;
  88. external 'USER32' ;
  89.  
  90.  
  91. // pφpnutφ                   (32ok)
  92. //******************************
  93. procedure MessageBeep(typ : integer);   // standardnφ pφpnutφ pro typ = -1
  94. external 'USER32';
  95.  
  96.  
  97. // zjiÜt∞nφ, je-li znak pφsmeno     (32ok)
  98. //******************************
  99. function IsCharAlpha(test : char      // zkouman² znak
  100.                     ) : boolean;      // TRUE, je-li pφsmeno
  101. external 'USER32'name 'IsCharAlphaA';
  102.  
  103. // zjiÜt∞nφ, je-li znak pφsmeno nebo Φφslice (32ok)
  104. //******************************
  105. function IsCharAlNum(test : char      // zkouman² znak
  106.                     ) : boolean;      // TRUE, je-li pφsmeno nebo Φφslice
  107. external 'USER' name 'IsCharAlphaNumericA';
  108.  
  109. // zjiÜt∞nφ, je-li znak malΘ pφsmeno   (32ok)
  110. //******************************
  111. function IsCharLower(test : char      // zkouman² znak
  112.                     ) : boolean;      // TRUE, je-li znak malΘ pφsmeno
  113. external 'USER32' name 'IsCharLowerA';
  114.  
  115. // zjiÜt∞nφ, je-li znak velkΘ pφsmeno   (32ok)
  116. //******************************
  117. function IsCharUpper(test : char      // zkouman² znak
  118.                     ) : boolean;      // TRUE, je-li znak velkΘ pφsmeno
  119. external 'USER32' name 'IsCharUpperA';
  120.  
  121.  
  122. // zapsßnφ textu do zßhlavφ (caption) okna    (32ok)
  123. //******************************
  124. procedure SetWindowText(id : window_id;          // handle pohledu
  125.                         var text : string);      // text, kter² se mß zapsat do zßhlavφ okna
  126. external 'USER32' name 'SetWindowTextA';
  127.  
  128. // zjiÜt∞nφ id subpohledu (resp. jinΘ slo₧ky pohledu)             (32ok)
  129. //******************************
  130. function GetDlgItem(id : window_id;   // handle superpohledu
  131.                     item : integer    // Φφslo slo₧ky typu subpohled (resp. jinΘ slo₧ky)
  132.                    ) : window_id;     // handle subpohledu (jinΘ slo₧ky)
  133. external 'USER32';
  134.  
  135.  
  136. // posun okna         (32ok)
  137. //******************************
  138. function MoveWindow(id : window_id;                  // handle pohledu
  139.                     left,top,width,height : integer; // levß, hornφ sou°adnice, Üφ°ka, v²Üka okna
  140.                     paint : boolean ) : boolean;     // p°φznak p°ekreslenφ, dopor. TRUE
  141. external 'USER32';
  142.                     
  143. // zjiÜt∞nφ rodiΦovskΘho okna (32ok)
  144. //******************************
  145. function GetParent(id : window_id                 // handle pohledu
  146.                   ) : window_id;                  // handle rodiΦovskΘho okna 
  147. external 'USER32';
  148.  
  149. // zjiÜt∞nφ aktivnφho okna (hlavnφho okna WinBase602) (32ok)
  150. //******************************
  151. function GetActWind : window_id;                 // handle okna 
  152. external 'USER32' name 'GetActiveWindow';
  153.  
  154. // zjiÜt∞nφ pracovnφho adresß°e Windows95   {32ok}
  155. //*********************************
  156. function GetTempDir(vel : integer;               // velikost bufferu
  157.                     var buffer : string          // vrßcen² °et∞zec
  158.                    ) : integer;                  // dΘlka °et∞zce
  159. external 'KERNEL32' name 'GetTempPathA';
  160.  
  161. // zjiÜt∞nφ ·daje z registraΦnφ databßze    {32ok}
  162. //***************************************
  163. function RegQueryValue(hkey : integer; 
  164.                        var subkey,
  165.                            value : string;        //vrßzenß hodnota
  166.                        var buf : integer
  167.                       ) : integer;                // 0 = ·sp∞ch
  168. external 'ADVAPI32' name 'RegQueryValueA';
  169.  
  170. // obecnΘ info okno Windows  (32ok)
  171. //******************************
  172. function MessageBox(var id : window_id;               // handle rodiΦovskΘho okna nebo NIL
  173.                     var text, caption : string[255];  // obsah okna, nadpis okna
  174.                     style : integer                   // styl okna - viz konstanty nφ₧e
  175.                     ) : integer;                      // vrßcenß hodnota podle stisknutΘho tlaΦφtka - viz hodnoty nφ₧e
  176. external 'USER32' name 'MessageBoxA';
  177.  
  178. const                            // konstanty pro MessageBox
  179.   mb_ok = 0;                     // poΦet a typ tlaΦφtek 
  180.   mb_okcancel = 1;
  181.   mb_abortretryignore = 2;
  182.   mb_yesnocancel = 3;
  183.   mb_yes_no = 4;
  184.   mb_retrycancel = 5;
  185.   mb_stop = 16;                  // obrßzek v okn∞
  186.   mb_quest = 32;                 
  187.   mb_order = 48;
  188.   mb_info = 64;
  189.   mb_defbut2 = 256;              // 2. tlaΦφtko je implicitnφ
  190.   mb_defbut3 = 512;              // 3. tlaΦφtko je implicitnφ
  191.   mb_sysmodal = 4096;            // zablokuje celΘ Windows
  192.   mb_taskmodal = 8192;           // zablokuje celou WinBase
  193.  
  194. // funkce MessageBox vracφ hodnoty: 1 = OK
  195. //                                  2 = Cancel
  196. //                                  3 = Abort
  197. //                                  4 = Retry
  198. //                                  5 = Ignore
  199. //                                  6 = Yes
  200. //                                  7 = No
  201.  
  202.  
  203.  
  204.