charBuf array [0..255] of char;
DWORDA pointer from DWORD. (DWORDA=^DWORD)
---------
Function GetCacheFileName(uname:charBuf; var buf:charBuf;Len:DWord):Integer;
Result 0=OK 1C2Ah=Error

Function OpenPasswordCache(var ResHandle:Dword;uname:charBuf;pwd:charBuf;options:Dword):Integer;stdcall;
1C2Xh = Error
ret := OpenPasswordCache(hnd, myusername, currentpassword, $104);

---------------------------
Function DeletePasswordCache(uname:charBuf):Integer;stdcall;
-------------------------------------------
Function FindCacheResource(resHandle:Dword;ResourceName:charBuf;Unknown1:Dword;rcvBuffer:charBuf;ConstSome:DWord;ResType:DWORDA):DWord;stdcall;

Function ClosePasswordCache(resHandle:DWord):Integer;stdcall;

Function CheckCacheVersion(resHandle:Dword):Integer;stdcall;

Function EnumCachedPasswords(?,?,?,?):?
--------------

WnetEnumCachedPasswords(lpstr,Word,Byte,CallBackFunc,Dword).
----
result:=WnetEnumCachedPasswords(0,0,@MyCallback,0),
function MyCallBack(resource, DWORD):Bool;stdcall;
----

Software\Microsoft\Windows\CurrentVersion\Network\LanMan