{$IFDEF M_API_UNIT} //----- CListint ----- function IsHContactGroup (h:TMCONTACT):bool; function IsHContactInfo (h:TMCONTACT):bool; function IsHContactContact(h:TMCONTACT):bool; function CLCDEFAULT_BKCOLOUR:dword; function CLCDEFAULT_TEXTCOLOUR:dword; function CLCDEFAULT_SELBKCOLOUR:dword; function CLCDEFAULT_SELTEXTCOLOUR:dword; function CLCDEFAULT_HOTTEXTCOLOUR:dword; function CreateVersionString(version:dword;buf:PAnsiChar):PAnsiChar; function CreateVersionStringPlugin(pluginInfo:PPluginInfoEx;buf:PAnsiChar):PAnsiChar; function PLUGIN_MAKE_VERSION(a,b,c,d: Cardinal): int; function PLUGIN_CMP_VERSION(verA: LongInt; verB: LongInt): int; function mir_forkthread(aFunc:pThreadFunc; arg:pointer):THANDLE; {inline} function mir_forkthreadex(aFunc:pThreadFuncEx; arg:pointer; pThreadID:puint_ptr):THANDLE; {inline} function mir_forkthreadowner(aFunc:pThreadFuncOwner; owner:pointer; arg:pointer; pThreadID:puint_ptr):THANDLE; {inline} function Netlib_CloseHandle(Handle: THANDLE): int; function Netlib_GetBase64DecodedBufferSize(const cchEncoded: int): int; function Netlib_GetBase64EncodedBufferSize(const cbDecoded: int): int; function Netlib_Send(hConn: THANDLE; const buf: PAnsiChar; len: int; flags: int): int_ptr; function Netlib_Recv(hConn: THANDLE; const buf: PAnsiChar; len: int; flags: int): int_ptr; procedure Netlib_Log(hNetLib: THANDLE; const sz: PAnsiChar); function WindowList_Add (hList:THANDLE; hWnd:HWND; hContact:TMCONTACT): int_ptr; function WindowList_Remove (hList:THANDLE; hWnd:HWND): int_ptr; function WindowList_Find (hList:THANDLE; hContact:TMCONTACT): int_ptr; function WindowList_Broadcast(hList:THANDLE; message: int; wParam: WPARAM; lParam: LPARAM): int_ptr; function Utils_SaveWindowPosition (hWnd:HWND; hContact:TMCONTACT; const szModule, szNamePrefix: PAnsiChar): int_ptr; function Utils_RestoreWindowPosition(hWnd:HWND; hContact:TMCONTACT; Flags: int; const szModule, szNamePrefix: PAnsiChar): int_ptr; function mir_hashstr (const key:PAnsiChar):uint; {inline;} function mir_hashstrW(const key:PWideChar):uint; {inline;} function lrtrim (str:PAnsiChar):PAnsiChar; {inline} function lrtrimp(str:PAnsiChar):PAnsiChar; {inline} function mir_utf8decodeA(const src:PAnsiChar):PAnsiChar; {inline} function Translate (sz: PAnsiChar): PAnsiChar; function Translatew(sz: PWideChar): PWideChar; function TranslateString (const sz:AnsiString):AnsiString; function TranslateWideString(const sz:WideString):WideString; function TranslateUnicodeString(sz: UnicodeString): UnicodeString; procedure TranslateDialogDefault(hwndDlg: THANDLE); procedure TranslateMenu(hMenu: HMENU); function Langpack_Register:int_ptr; function CreateProtoServiceFunction(const szModule, szService: PAnsiChar; serviceProc: TMIRANDASERVICE): int_ptr; function Srmm_AddIcon (sid: PStatusIconData):int_ptr; procedure Srmm_RemoveIcon(sid: PStatusIconData); procedure Srmm_ModifyIcon(hContact:TMCONTACT; sid:PStatusIconData); function Srmm_GetNthIcon(hContact:TMCONTACT; index:int):pStatusIconData; function LoadSkinnedIcon (id: int): HICON; function LoadSkinnedIconHandle(id: int): THANDLE; function LoadSkinnedIconBig (id: int): HICON; function LoadSkinnedIconName (id: int): PAnsiChar; function LoadSkinnedProtoIcon(const szProto: PAnsiChar; status: int): THANDLE; function SkinAddNewSound(const name, description, defaultFile: PAnsiChar): int_ptr; function SkinPlaySound (const name: PAnsiChar): int_ptr; function Menu_AddContextFrameMenuItem(mi:PCLISTMENUITEM):HGENMENU; function Menu_AddMainMenuItem (mi:PCLISTMENUITEM):HGENMENU; function Menu_AddContactMenuItem (mi:PCLISTMENUITEM):HGENMENU; function Menu_AddStatusMenuItem (mi:PCLISTMENUITEM):HGENMENU; function Menu_AddProtoMenuItem (mi:PCLISTMENUITEM):HGENMENU; function Menu_AddSubGroupMenuItem (mi:PCLISTMENUITEM):HGENMENU; function Menu_AddGroupMenuItem (mi:PCLISTMENUITEM):HGENMENU; function Menu_AddTrayMenuItem (mi:PCLISTMENUITEM):HGENMENU; function UserInfo_AddPage(wParam:WPARAM; odp:POPTIONSDIALOGPAGE):int_ptr; function Options_AddPage (wParam:WPARAM; odp:POPTIONSDIALOGPAGE):int_ptr; function Hotkey_Register(hk:PHOTKEYDESC):int_ptr; function Skin_AddIcon(si:PSKINICONDESC):THANDLE; procedure Icon_Register (hInst:HINST; const szSection:PAnsiChar; pIcons:pIconItem ; iCount:size_t; prefix:PAnsiChar); procedure Icon_RegisterW(hInst:HINST; const szSection:PWideChar; pIcons:pIconItemW; iCount:size_t; prefix:PAnsiChar); procedure FontRegister (pFontID:pFontID); procedure FontRegisterW(pFontID:pFontIDW); procedure ColourRegister (pColorID:pColourID); procedure ColourRegisterW(pColorID:pColourIDW); procedure EffectRegister (pEffectID:pEffectID); procedure EffectRegisterW(pEffectID:pEffectIDW); function TopToolbar_AddButton(pButton:PTTBButton):THANDLE; function Options_Open (ood:POPENOPTIONSDIALOG):int_ptr; function Options_OpenPage(ood:POPENOPTIONSDIALOG):HWND; procedure MIcoTab_AddItem (hwnd:HWND; lptzName:PAnsiChar; hIcon:HICON; data:LPARAM; bSharedIcon:bool); procedure MIcoTab_AddItemW(hwnd:HWND; lptzName:PWideChar; hIcon:HICON; data:LPARAM; bSharedIcon:bool); function Crypto_RegisterEngine(pProvider:PCRYPTO_PROVIDER):THANDLE; procedure Crypto_EnumProviders(var numProvs:int; var pResult:array of PCRYPTO_PROVIDER); function Crypto_GetProvider(pszName:PAnsiChar):PCRYPTO_PROVIDER; {$ELSE} var hLangpack:int = 0; //----- CListint ----- function IsHContactGroup(h:TMCONTACT):bool; {$IFDEF AllowInline}inline;{$ENDIF} begin result:=(h xor HCONTACT_ISGROUP)<(HCONTACT_ISGROUP xor HCONTACT_ISINFO); end; function IsHContactInfo(h:TMCONTACT):bool; {$IFDEF AllowInline}inline;{$ENDIF} begin result:=(h and HCONTACT_ISINFO)=HCONTACT_ISINFO; end; function IsHContactContact(h:TMCONTACT):bool; {$IFDEF AllowInline}inline;{$ENDIF} begin result:=(h and HCONTACT_ISGROUP)=0; end; function CLCDEFAULT_BKCOLOUR:dword; {$IFDEF AllowInline}inline;{$ENDIF} begin result:=GetSysColor(COLOR_3DFACE); end; function CLCDEFAULT_TEXTCOLOUR:dword; {$IFDEF AllowInline}inline;{$ENDIF} begin result:=GetSysColor(COLOR_WINDOWTEXT); end; function CLCDEFAULT_SELBKCOLOUR:dword; {$IFDEF AllowInline}inline;{$ENDIF} begin result:=GetSysColor(COLOR_HIGHLIGHT); end; function CLCDEFAULT_SELTEXTCOLOUR:dword; {$IFDEF AllowInline}inline;{$ENDIF} begin result:=GetSysColor(COLOR_HIGHLIGHTTEXT); end; function CLCDEFAULT_HOTTEXTCOLOUR:dword; {$IFDEF AllowInline}inline;{$ENDIF} begin result:=RGB(0,0,255); end; function CreateVersionString(version:dword;buf:PAnsiChar):PAnsiChar; var vers:array [0..3] of integer; begin vers[0]:=(version shr 24) and $FF; vers[1]:=(version shr 16) and $FF; vers[2]:=(version shr 8) and $FF; vers[3]:=version and $FF; wvsprintfa(buf,'%d.%d.%d.%d',@vers); result:=buf; end; function CreateVersionStringPlugin(pluginInfo:PPluginInfoEx;buf:PAnsiChar):PAnsiChar; {$IFDEF AllowInline}inline;{$ENDIF} begin result:=CreateVersionString(pluginInfo^.version,buf); end; function PLUGIN_MAKE_VERSION(a,b,c,d: Cardinal): int; {$IFDEF AllowInline}inline;{$ENDIF} begin Result := (a shl 24) or (b shl 16) or (c shl 8) or d; end; function PLUGIN_CMP_VERSION(verA: LongInt; verB: LongInt): int; begin Result := 0; { could be used to compare for severity of age for positive values, if a<b results are minus values, 0 for equal, positive if a is newer } Inc(Result, (verA and $FF ) - (verB and $FF)); Inc(Result, (verA and $FF00 ) - (verB and $FF00)); Inc(Result, (verA and $FF0000 ) - (verB and $FF0000)); Inc(Result, (verA and $FF000000) - (verB and $FF000000)); end; function mir_forkthread(aFunc:pThreadFunc; arg:pointer):THANDLE; {$IFDEF AllowInline}inline;{$ENDIF} begin result:=forkthread(aFunc, 0, arg); end; function mir_forkthreadex(aFunc:pThreadFuncEx; arg:pointer; pThreadID:puint_ptr):THANDLE; {$IFDEF AllowInline}inline;{$ENDIF} begin result:=forkthreadex(nil, 0, aFunc, nil, arg, pThreadID); end; function mir_forkthreadowner(aFunc:pThreadFuncOwner; owner:pointer; arg:pointer; pThreadID:puint_ptr):THANDLE; {$IFDEF AllowInline}inline;{$ENDIF} begin result:=forkthreadex(nil, 0, pThreadFuncEx(aFunc), owner, arg, pThreadID); end; function Netlib_CloseHandle(Handle: THANDLE): int; {$IFDEF AllowInline}inline;{$ENDIF} begin Result := CallService(MS_NETLIB_CLOSEHANDLE, Handle, 0); end; function Netlib_GetBase64DecodedBufferSize(const cchEncoded: int): int; {$IFDEF AllowInline}inline;{$ENDIF} begin Result := (cchEncoded shr 2) * 3; end; function Netlib_GetBase64EncodedBufferSize(const cbDecoded: int): int; {$IFDEF AllowInline}inline;{$ENDIF} begin Result := (cbDecoded * 4+11) div 12*4+1; end; function Netlib_Send(hConn: THANDLE; const buf: PAnsiChar; len: int; flags: int): int_ptr; var nlb: TNETLIBBUFFER; begin nlb.buf := buf; nlb.len := len; nlb.flags := flags; Result := CallService(MS_NETLIB_SEND, wParam(hConn), lParam(@nlb)); end; function Netlib_Recv(hConn: THANDLE; const buf: PAnsiChar; len: int; flags: int): int_ptr; var nlb: TNETLIBBUFFER; begin nlb.buf := buf; nlb.len := len; nlb.flags := flags; Result := CallService(MS_NETLIB_RECV, wParam(hConn), lParam(@nlb)); end; procedure Netlib_Log(hNetLib: THANDLE; const sz: PAnsiChar); {$IFDEF AllowInline}inline;{$ENDIF} begin CallService(MS_NETLIB_LOG, hNetLib, lParam(sz)); end; function WindowList_Add(hList: THANDLE; hWnd: HWND; hContact: TMCONTACT): int_ptr; var wle: TWINDOWLISTENTRY; begin wle.hList := hList; wle.hWnd := hWnd; wle.hContact := hContact; Result := CallService(MS_UTILS_ADDTOWINDOWLIST, 0, lParam(@wle)); end; function WindowList_Remove(hList: THANDLE; hWnd: HWND): int_ptr; {$IFDEF AllowInline}inline;{$ENDIF} begin Result := CallService(MS_UTILS_REMOVEFROMWINDOWLIST, hList, hWnd); end; function WindowList_Find(hList: THANDLE; hContact: TMCONTACT): int_ptr; {$IFDEF AllowInline}inline;{$ENDIF} begin Result := CallService(MS_UTILS_FINDWINDOWINLIST, hList, hContact); end; function WindowList_Broadcast(hList: THANDLE; message: int; wParam: WPARAM; lParam: LPARAM): int_ptr; var msg: TMSG; begin msg.message := message; msg.wParam := wParam; msg.lParam := lParam; Result := CallService(MS_UTILS_BROADCASTTOWINDOWLIST, hList, tLparam(@Msg)); end; function Utils_SaveWindowPosition(hWnd:HWND; hContact:TMCONTACT; const szModule, szNamePrefix: PAnsiChar): int_ptr; var swp: TSAVEWINDOWPOS; begin swp.hWnd := hWnd; swp.hContact := hContact; swp.szModule := szModule; swp.szNamePrefix := szNamePrefix; Result := CallService(MS_UTILS_SAVEWINDOWPOSITION, 0, lParam(@swp)); end; function Utils_RestoreWindowPosition(hWnd:HWND; hContact:TMCONTACT; Flags:int; const szModule, szNamePrefix: PAnsiChar): int_ptr; var swp: TSAVEWINDOWPOS; begin swp.hWnd := hWnd; swp.hContact := hContact; swp.szModule := szModule; swp.szNamePrefix := szNamePrefix; Result := CallService(MS_UTILS_RESTOREWINDOWPOSITION, Flags, lParam(@swp)); end; function mir_hashstr(const key:PAnsiChar):uint; {inline;} var len:int; begin if key=NIL then result:=0 else begin len:=lstrlena(key); result:=mir_hash(key, len); end; end; function mir_hashstrW(const key:PWideChar):uint; {inline;} var len:int; begin if key=NIL then result:=0 else begin len:=lstrlenw(key); result:=mir_hash(key, len*SizeOF(WideChar)); end; end; function lrtrim(str:PAnsiChar):PAnsiChar; {$IFDEF AllowInline}inline;{$ENDIF} begin result:=ltrim(rtrim(str)); end; function lrtrimp(str:PAnsiChar):PAnsiChar; {$IFDEF AllowInline}inline;{$ENDIF} begin result:=ltrimp(rtrim(str)); end; function mir_utf8decodeA(const src:PAnsiChar):PAnsiChar; type pPWideChar = ^PWidechar; var tmp:PAnsiChar; begin tmp:=mir_strdup(src); mir_utf8decode(tmp,pPWideChar(nil)^); result:=tmp; end; function TranslateW(sz: PWideChar): PWideChar; begin result:=TranslateW_LP(sz, hLangpack); end; function Translate(sz: PAnsiChar): PAnsiChar; begin result:=TranslateA_LP(sz, hLangpack); end; function TranslateString(const sz:AnsiString):AnsiString; begin Result:=AnsiString(TranslateA_LP(PAnsiChar(sz),hLangpack)); end; function TranslateWideString(const sz:WideString):WideString; begin Result:=WideString(TranslateW_LP(PWideChar(sz),hLangpack)); end; function TranslateUnicodeString(sz: UnicodeString): UnicodeString; begin Result:=UnicodeString(TranslateW_LP(PWideChar(sz),hLangpack)); end; procedure TranslateDialogDefault(hwndDlg: THANDLE); begin TranslateDialog_LP(hwndDlg,hLangpack); end; procedure TranslateMenu(hMenu: HMENU); begin TranslateMenu_LP(hMenu,hLangpack); end; function Langpack_Register:int_ptr; begin CallService(MS_LANGPACK_REGISTER,WPARAM(@hLangpack),LPARAM(@PluginInfo)); result:=hLangpack; end; function CreateProtoServiceFunction(const szModule, szService: PAnsiChar; serviceProc: TMIRANDASERVICE): int_ptr; var szStr: array [0..MAXMODULELABELLENGTH*2] of AnsiChar; begin if (szModule=nil) or (szService=nil) then begin result:=0; exit; end; lstrcpya(@szStr, szModule); lstrcata(@szStr, szService); Result := CreateServiceFunction(szStr, @serviceProc); end; // Hidden variable hLangpack - do not use Inline style function Srmm_AddIcon(sid: PStatusIconData):int_ptr; begin result:=CallService(MS_MSG_ADDICON, hLangpack, LPARAM(sid)); end; procedure Srmm_RemoveIcon(sid: PStatusIconData); {$IFDEF AllowInline}inline;{$ENDIF} begin CallService(MS_MSG_REMOVEICON, 0, LPARAM(sid)); end; procedure Srmm_ModifyIcon(hContact:TMCONTACT; sid:PStatusIconData); {$IFDEF AllowInline}inline;{$ENDIF} begin CallService(MS_MSG_GETNTHICON, hContact, LPARAM(sid)); end; function Srmm_GetNthIcon(hContact:TMCONTACT; index:int):PStatusIconData; {$IFDEF AllowInline}inline;{$ENDIF} begin result:=PStatusIconData(CallService(MS_MSG_GETNTHICON, hContact, index)); end; function LoadSkinnedIcon(id: int): HICON; {$IFDEF AllowInline}inline;{$ENDIF} begin Result := HICON(CallService(MS_SKIN_LOADICON, id, 0)); end; function LoadSkinnedIconHandle(id: int): THANDLE; {$IFDEF AllowInline}inline;{$ENDIF} begin Result := THANDLE(CallService(MS_SKIN_LOADICON, id, 1)); end; function LoadSkinnedIconBig(id: int): HICON; {$IFDEF AllowInline}inline;{$ENDIF} begin Result := HICON(CallService(MS_SKIN_LOADICON, id, 2)); end; function LoadSkinnedIconName(id: int): PAnsiChar; {$IFDEF AllowInline}inline;{$ENDIF} begin Result := PAnsiChar(CallService(MS_SKIN_LOADICON, id, 3)); end; function LoadSkinnedProtoIcon(const szProto: PAnsiChar; status: int): THANDLE; {$IFDEF AllowInline}inline;{$ENDIF} begin Result := CallService(MS_SKIN_LOADPROTOICON, wParam(szProto), status); end; function SkinAddNewSound(const name, description, defaultFile: PAnsiChar): int_ptr; var ssd: TSKINSOUNDDESCEX; begin FillChar(ssd,SizeOf(ssd),0); ssd.cbSize := sizeof(ssd); ssd.pszName := name; ssd.pszDescription.a := description; ssd.pszDefaultFile.a := defaultFile; Result := CallService(MS_SKIN_ADDNEWSOUND, hLangpack, lParam(@ssd)); end; function SkinPlaySound (const name: PAnsiChar): int_ptr; {$IFDEF AllowInline}inline;{$ENDIF} begin Result := CallService(MS_SKIN_PLAYSOUND, 0, lParam(name)); end; function Menu_AddContextFrameMenuItem(mi:PCLISTMENUITEM):HGENMENU; begin mi^.hLangpack:=hLangpack; result:=CallService(MS_CLIST_ADDCONTEXTFRAMEMENUITEM, 0,LPARAM(mi)); end; function Menu_AddMainMenuItem(mi:PCLISTMENUITEM):HGENMENU; begin mi^.hLangpack:=hLangpack; result:=CallService(MS_CLIST_ADDMAINMENUITEM, 0,LPARAM(mi)); end; function Menu_AddContactMenuItem(mi:PCLISTMENUITEM):HGENMENU; begin mi^.hLangpack:=hLangpack; result:=CallService(MS_CLIST_ADDCONTACTMENUITEM, 0,LPARAM(mi)); end; function Menu_AddStatusMenuItem(mi:PCLISTMENUITEM):HGENMENU; begin mi^.hLangpack:=hLangpack; result:=CallService(MS_CLIST_ADDSTATUSMENUITEM, 0,LPARAM(mi)); end; function Menu_AddProtoMenuItem(mi:PCLISTMENUITEM):HGENMENU; begin mi^.hLangpack:=hLangpack; result:=CallService(MS_CLIST_ADDPROTOMENUITEM, 0,LPARAM(mi)); end; function Menu_AddSubGroupMenuItem(mi:PCLISTMENUITEM):HGENMENU; begin mi^.hLangpack:=hLangpack; result:=CallService(MS_CLIST_ADDSUBGROUPMENUITEM, 0,LPARAM(mi)); end; function Menu_AddGroupMenuItem(mi:PCLISTMENUITEM):HGENMENU; begin mi^.hLangpack:=hLangpack; result:=CallService(MS_CLIST_ADDGROUPMENUITEM, 0,LPARAM(mi)); end; function Menu_AddTrayMenuItem(mi:PCLISTMENUITEM):HGENMENU; begin mi^.hLangpack:=hLangpack; result:=CallService(MS_CLIST_ADDTRAYMENUITEM, 0,LPARAM(mi)); end; function UserInfo_AddPage(wParam:WPARAM; odp:POPTIONSDIALOGPAGE):int_ptr; begin odp^.hLangpack:=hLangpack; result:=CallService(MS_USERINFO_ADDPAGE, wParam, LPARAM(odp)); end; function Options_AddPage(wParam:WPARAM; odp:POPTIONSDIALOGPAGE):int_ptr; begin odp^.hLangpack:=hLangpack; result:=CallService(MS_OPT_ADDPAGE, wParam, LPARAM(odp)); end; function Hotkey_Register(hk:PHOTKEYDESC):int_ptr; begin result:=CallService(MS_HOTKEY_REGISTER, hLangpack, LPARAM(hk)); end; function Skin_AddIcon(si:PSKINICONDESC):THANDLE; begin result:=CallService(MS_SKIN2_ADDICON, hLangpack, LPARAM(si)); end; procedure Icon_Register(hInst:HINST; const szSection:PAnsiChar; pIcons:pIconItem; iCount:size_t; prefix:PAnsiChar); begin mir_Icon_Register(hInst, szSection, pIcons, iCount, prefix, hLangpack); end; procedure Icon_RegisterW(hInst:HINST; const szSection:PWideChar; pIcons:pIconItemW; iCount:size_t; prefix:PAnsiChar); begin mir_Icon_RegisterW(hInst, szSection, pIcons, iCount, prefix, hLangpack); end; procedure FontRegister(pFontID:pFontID); begin CallService(MS_FONT_REGISTERA, WPARAM(pFontID), hLangpack); end; procedure FontRegisterW(pFontID:pFontIDW); begin CallService(MS_FONT_REGISTERW, WPARAM(pFontID), hLangpack); end; procedure ColourRegister(pColorID:pColourID); begin CallService(MS_COLOUR_REGISTERA, WPARAM(pColorID), hLangpack); end; procedure ColourRegisterW(pColorID:pColourIDW); begin CallService(MS_COLOUR_REGISTERW, WPARAM(pColorID), hLangpack); end; procedure EffectRegister(pEffectID:pEffectID); begin CallService(MS_EFFECT_REGISTERA, WPARAM(pEffectID), hLangpack); end; procedure EffectRegisterW(pEffectID:pEffectIDW); begin CallService(MS_EFFECT_REGISTERW, WPARAM(pEffectID), hLangpack); end; function TopToolbar_AddButton(pButton:PTTBButton):THANDLE; begin result:=CallService(MS_TTB_ADDBUTTON, WPARAM(pButton), hLangpack); end; function Options_Open(ood:POPENOPTIONSDIALOG):int_ptr; begin result:=CallService(MS_OPT_OPENOPTIONS, hLangpack, LPARAM(ood)); end; function Options_OpenPage(ood:POPENOPTIONSDIALOG):HWND; begin result:=CallService(MS_OPT_OPENOPTIONSPAGE, hLangpack, LPARAM(ood)); end; procedure MIcoTab_AddItem(hwnd:HWND; lptzName:PAnsiChar; hIcon:HICON; data:LPARAM; bSharedIcon:bool); var mit:tMIcoTab; begin if bSharedIcon then mit.flag := MITCF_SHAREDICON else mit.flag := 0; mit.hIcon := hIcon; mit.szName.a := lptzName; mit.data := data; SendMessage(hwnd, ITCM_ADDITEM, WPARAM(@mit), 0); end; procedure MIcoTab_AddItemW(hwnd:HWND; lptzName:PWideChar; hIcon:HICON; data:LPARAM; bSharedIcon:bool); var mit:tMIcoTab; begin if bSharedIcon then mit.flag := MITCF_SHAREDICON or MITCF_UNICODE else mit.flag := MITCF_UNICODE; mit.hIcon := hIcon; mit.szName.w := lptzName; mit.data := data; SendMessage(hwnd, ITCM_ADDITEM, WPARAM(@mit), 0); end; function Crypto_RegisterEngine(pProvider:PCRYPTO_PROVIDER):THANDLE; begin result:=THANDLE(CallService(MS_CRYPTO_REGISTER_ENGINE, hLangpack, LPARAM(pProvider))); end; procedure Crypto_EnumProviders(var numProvs:int; var pResult:array of PCRYPTO_PROVIDER); begin CallService(MS_CRYPTO_ENUM_PROVIDERS, WPARAM(numProvs), LPARAM(@pResult)); end; function Crypto_GetProvider(pszName:PAnsiChar):PCRYPTO_PROVIDER; begin result:=PCRYPTO_PROVIDER(CallService(MS_CRYPTO_GET_PROVIDER, 0, LPARAM(pszName))); end; {$ENDIF}