Chip 2002 October/Chip_2002-10_cd1.bin/tema/webgen/download/DATA1.CAB/Client_Files/WINAPI32.PGM

Text File | 2002-02-07 | 8.9 KB | 204 lines

INCLUDE

// zapsßnφ °et∞zce do INI souboru (Φφslo se zapφÜe takΘ jako °et∞zec!) {32ok}
//******************************
function WriteProfString(var sekce,              // jmΘno sekce v INI souboru
                             polozka,            // jmΘno polo₧ky v INI souboru
                             obsah,              // co zapsat do INI souboru
                             ini : string        // jmΘno INI souboru
                        ) : Boolean;             // vrßtφ TRUE, kdy₧ se poda°φ zapsat
external 'KERNEL32' name 'WritePrivateProfileStringA';

//p°eΦtenφ °et∞zce z INI souboru   {32ok}
//******************************
function GetProfString(var sekce,                // jmΘno sekce v INI souboru
                           polozka,              // jmΘno polo₧ky v INI souboru
                           default,              // °et∞zec, kter² se vezme v p°φpad∞, ₧e nelze naΦφst do buffer
                           buffer : string;      // vrßcen² °et∞zec
                       vel : integer;            // velikost bufferu v bytech
                       var ini : string          // jmΘno INI souboru
                      ) : integer;               // fce vracφ poΦet byt∙ zkopφrovan²ch do buffer, 0 pokud se nezda°ilo
external 'KERNEL32' name 'GetPrivateProfileStringA';

//p°eΦtenφ Φφsla z INI souboru     {32ok}
//******************************
function GetProfInt(var sekce,                   // jmΘno sekce v INI souboru
                        polozka : string;        // jmΘno polo₧ky v INI souboru
                    default : integer;           // kladnΘ Φφslo, kterΘ fce vrßtφ v p°φpad∞, ₧e se nezda°φ p°eΦφst hledanou hodnotu
                    var ini : string            // jmΘno INI souboru
                   ) : Integer;                    // fce vrßtφ p°eΦtenΘ celΘ Φφslo
external 'KERNEL32' name 'GetPrivateProfileIntA';


// zjiÜt∞nφ adresß°e s Windows pro INI soubor    (32ok)
//******************************
function GetWDir(var buffer : string;            // v²stupnφ parametr
                     vel : integer               // velikost bufferu v bytech
                ) : integer;                     // fce vrßtφ poΦet byt∙ zkopφrovan²ch do buffer, 0 pokud se nezda°ilo
external 'KERNEL32' name 'GetWindowsDirectoryA';


//zjiÜt∞nφ doby, po kterou jsou spuÜt∞nΘ Windows   (32ok)
//******************************
function GetTickCount : integer;                 // fce vrßtφ poΦet milisekund
external 'KERNEL32';


//zjiÜt∞nφ druhu diskovΘ jednotky  (32ok)
//******************************
function GetDriveType(var root : string[3]  // korenovy adresar disku
                     ) : integer;           // hodnoty: 2 = disketa, 3 = pevn² disk, 4 = sφ¥ov² disk, 5 = CD, 0 = nic, 1 = root neexistuje
external 'KERNEL32' name 'GetDriveTypeA';


// p°evod °et∞zce na malß pφsmena (32ok)
//******************************
procedure LowCase(var retezec : string);
external 'USER32' name 'CharLowerA';


// zapsßnφ novΘho ·daje do Property List okna (32ok)
//******************************
function SetProp(id : window_id;             // handle pohledu
                 var ident : string;         // nazev ·daje
                 value : integer             // hodnota ·daje - celΘ Φφslo
                ) : boolean;
external 'USER32' name 'SetPropA';

// p°eΦtenφ ·daje z Property List okna (32ok)
//******************************
function GetProp(id : window_id;             // handle pohledu
                 var ident : string          // nazev ·daje
                ) : integer;                 // fce vracφ hodnotu ·daje
external 'USER32' name 'GetPropA';

// odstran∞nφ ·daje z Property List okna (32ok)
//******************************
function RemoveProp(id : window_id;           // handle pohledu
                    var ident : string        // nazev ·daje
                   ) : integer;
external 'USER32' name 'RemovePropA';


// ukrytφ okna              (32ok)
//******************************
function ShowWindow(id : window_id;          // handle pohledu
                    flag : integer           // flag = 0 - skr²t; flag = 5 - obnovit okno
                   ) : boolean;
external 'USER32' ;


// pφpnutφ                   (32ok)
//******************************
procedure MessageBeep(typ : integer);   // standardnφ pφpnutφ pro typ = -1
external 'USER32';


// zjiÜt∞nφ, je-li znak pφsmeno     (32ok)
//******************************
function IsCharAlpha(test : char      // zkouman² znak
                    ) : boolean;      // TRUE, je-li pφsmeno
external 'USER32'name 'IsCharAlphaA';

// zjiÜt∞nφ, je-li znak pφsmeno nebo Φφslice (32ok)
//******************************
function IsCharAlNum(test : char      // zkouman² znak
                    ) : boolean;      // TRUE, je-li pφsmeno nebo Φφslice
external 'USER' name 'IsCharAlphaNumericA';

// zjiÜt∞nφ, je-li znak malΘ pφsmeno   (32ok)
//******************************
function IsCharLower(test : char      // zkouman² znak
                    ) : boolean;      // TRUE, je-li znak malΘ pφsmeno
external 'USER32' name 'IsCharLowerA';

// zjiÜt∞nφ, je-li znak velkΘ pφsmeno   (32ok)
//******************************
function IsCharUpper(test : char      // zkouman² znak
                    ) : boolean;      // TRUE, je-li znak velkΘ pφsmeno
external 'USER32' name 'IsCharUpperA';


// zapsßnφ textu do zßhlavφ (caption) okna    (32ok)
//******************************
procedure SetWindowText(id : window_id;          // handle pohledu
                        var text : string);      // text, kter² se mß zapsat do zßhlavφ okna
external 'USER32' name 'SetWindowTextA';

// zjiÜt∞nφ id subpohledu (resp. jinΘ slo₧ky pohledu)             (32ok)
//******************************
function GetDlgItem(id : window_id;   // handle superpohledu
                    item : integer    // Φφslo slo₧ky typu subpohled (resp. jinΘ slo₧ky)
                   ) : window_id;     // handle subpohledu (jinΘ slo₧ky)
external 'USER32';


// posun okna         (32ok)
//******************************
function MoveWindow(id : window_id;                  // handle pohledu
                    left,top,width,height : integer; // levß, hornφ sou°adnice, Üφ°ka, v²Üka okna
                    paint : boolean ) : boolean;     // p°φznak p°ekreslenφ, dopor. TRUE
external 'USER32';

// zjiÜt∞nφ rodiΦovskΘho okna (32ok)
//******************************
function GetParent(id : window_id                 // handle pohledu
                  ) : window_id;                  // handle rodiΦovskΘho okna
external 'USER32';

// zjiÜt∞nφ aktivnφho okna (hlavnφho okna WinBase602) (32ok)
//******************************
function GetActWind : window_id;                 // handle okna
external 'USER32' name 'GetActiveWindow';

// zjiÜt∞nφ pracovnφho adresß°e Windows95   {32ok}
//*********************************
function GetTempDir(vel : integer;               // velikost bufferu
                    var buffer : string          // vrßcen² °et∞zec
                   ) : integer;                  // dΘlka °et∞zce
external 'KERNEL32' name 'GetTempPathA';

// zjiÜt∞nφ ·daje z registraΦnφ databßze    {32ok}
//***************************************
function RegQueryValue(hkey : integer;
                       var subkey,
                           value : string;        //vrßzenß hodnota
                       var buf : integer
                      ) : integer;                // 0 = ·sp∞ch
external 'ADVAPI32' name 'RegQueryValueA';

// obecnΘ info okno Windows  (32ok)
//******************************
function MessageBox(var id : window_id;               // handle rodiΦovskΘho okna nebo NIL
                    var text, caption : string[255];  // obsah okna, nadpis okna
                    style : integer                   // styl okna - viz konstanty nφ₧e
                    ) : integer;                      // vrßcenß hodnota podle stisknutΘho tlaΦφtka - viz hodnoty nφ₧e
external 'USER32' name 'MessageBoxA';

const                            // konstanty pro MessageBox
  mb_ok = 0;                     // poΦet a typ tlaΦφtek
  mb_okcancel = 1;
  mb_abortretryignore = 2;
  mb_yesnocancel = 3;
  mb_yes_no = 4;
  mb_retrycancel = 5;
  mb_stop = 16;                  // obrßzek v okn∞
  mb_quest = 32;
  mb_order = 48;
  mb_info = 64;
  mb_defbut2 = 256;              // 2. tlaΦφtko je implicitnφ
  mb_defbut3 = 512;              // 3. tlaΦφtko je implicitnφ
  mb_sysmodal = 4096;            // zablokuje celΘ Windows
  mb_taskmodal = 8192;           // zablokuje celou WinBase

// funkce MessageBox vracφ hodnoty: 1 = OK
//                                  2 = Cancel
//                                  3 = Abort
//                                  4 = Retry
//                                  5 = Ignore
//                                  6 = Yes
//                                  7 = No