Chip 2000 May/Chip_2000-05_cd1.bin/tema/SW602/Winbase/EShop_demo/WINAPI32.PGM

Text File | 2000-03-16 | 12KB | 296 lines

{$$3220792584 .                              }INCLUDE

// informace o serveru) {32ok}
//******************************
FUNCTION  Get_server_info(info_typ: integer; var buffer : integer; var buffersize : integer) : boolean;
EXTERNAL "WBKERNEL.DLL";

// zjiÜt∞nφ najit default browser shellapi.h   (32ok)
//*****************************************************
function FindExecutable(var filename,directory, browser : string ) : integer;  // fce vracφ Φφslo chyby <32
external 'SHELL32.DLL';

// 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';

// informace o wbklientovi
//******************************
FUNCTION  get_devel_lic(var pocetlic : integer) : integer;
EXTERNAL "WBKERNEL.DLL";

// informace o wbklientovi
//******************************
FUNCTION  ValidSerNumC(var lic : string) : integer;
EXTERNAL "MA60232.DLL";

// informace o wbklientovi
//******************************
FUNCTION  get_expir_state() : integer;
EXTERNAL "WBKERNEL.DLL";

// 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


CONST
 MAX_PATH= 260;
 ALIAS=14;

type
 _WIN32_FIND_DATA=record // wfd
    dwFileAttributes      :integer;
    ft1CreationTime       :integer;
    ft2CreationTime       :integer;
    ft1LastAccessTime     :integer;
    ft2LastAccessTime     :integer;
    ft1LastWriteTime      :integer;
    ft2LastWriteTime      :integer;
    nFileSizeHigh         :integer;
    nFileSizeLow          :integer;
    dwReserved0           :integer;
    dwReserved1           :integer;
    cFileName             :string[MAX_PATH];
    cAlternateFileName    :string[ALIAS];
end;


type
_SYSTEMTIME=record   // st
     wYear          :short;
     wMonth         :short;
     wDayOfWeek     :short;
     wDay           :short;
     wHour          :short;
     wMinute        :short;
     wSecond        :short;
     wMilliseconds  :short;
end;

function FindFirstFile(
    var  lpFileName:string;                 // pointer to name of file to search for
    var  lpFindFileData:_WIN32_FIND_DATA    // pointer to returned information

):integer;
external "KERNEL32";



function FindNextFile(
     hFindFile:integer;                   // handle to search
     var lpFindFileData:_WIN32_FIND_DATA    // pointer to structure for data on found file

):Boolean;
external "KERNEL32";



function FileTimeToLocalFileTime(
    var lpFileTime:integer;         // pointer to UTC file time to convert
    var lpLocalFileTime:integer          // pointer to converted file time
):Boolean;
external "KERNEL32";



function FileTimeToSystemTime(
    var lpFileTime:integer;         // pointer to file time to convert
    var lpSystemTime:_SYSTEMTIME            // pointer to structure to receive system time
):Boolean;
external "KERNEL32";