primax

Sorry for my english, I use ADO Provider=Microsoft.Jet.OLEDB.4.0; for access to paradox table but my problem is when a file lock the table. I want to get current session dir of the session the way is to call with idapi32.dll i found this for set the directory Const sesNETFILE = 131074 ;// &H00020002 rw pCHAR, Full filename of netfile (MAXPATHLEN) DBIERR_NOTSUPPORTED = 12289 ;// (ERRBASE_CAPABILITY + RRCODE_NOTSUPPORTED) 12288 + 1 DBIERR_INVALIDPARAM = 9986 ;// (ERRBASE_INVALIDREQ + RRCODE_INVALIDPARAM) 9984 + 2 DBIERR_NONE = 0 ;// (ERRBASE_NONE + ERRCODE_NONE) + 0 DBIERR_NOTAVAILABLE = 1541417985 endConst Uses "idapi32.dll" DbiGetCurrSession(lphSes cPtr) cLong [stdcall] DbiSetProp(lihObj cLong, liProp cLong, iPropValue cPtr) cLong [stdcall] endUses Proc cmSetNetDir(stNetDir String, var stReturn string) Logical ;----------------------> Var liRetVal, liSes longInt endVar liRetVal = DbiGetCurrSession(liSes) if not liRetVal.isassigned() then stReturn="Invalid directory used to set \"Net Control Directory\"." return False endif liRetVal = DbiSetProp(liSes, sesNETFILE, stNetDir) if not liRetVal.isassigned() then stReturn="Invalid directory used to set \"Net Control Directory\"." return False endif Switch Case liRetVal = DBIERR_NONE : stReturn="no error" return True Case liRetVal = DBIERR_NOTAVAILABLE : stReturn="Network isn't available. Please notify the administrator." return False Case liRetVal = DBIERR_INVALIDPARAM : stReturn="Invalid Parameter used to set \"Net Control Directory\"." return False Case liRetVal = DBIERR_NOTSUPPORTED : stReturn="Not Supported... Change \"Net Control Directory\"." return False otherwise : stReturn="Unforeseen Error setting Network Directory.\n\nError Code is "+string(liRetVal) return False endSwitch endProc method run(var eventInfo Event) var stNewDir string stReturn string endvar stNewDir="c:\\" if not cmSetNetDir(stNewDir,stReturn) then errorshow(stReturn) endif links to the code in delphi here please tell me the way or the test to do thanks

Hello , sorry for my english command don't work on vista ex : GUICtrlCreateIcon(@tempdir & '\rc.icl',-8,20,225) on XP ,98,...ok with one icone ok but with librairie icon !!! the icl file made with aicon.exe test with #requireadmin not display test with GUICtrlCreateIcon(c:\rc.icl',-8,20,225,32,32) not display test with 3.2.2.0 not display test with beta 3.3.3.O not display thanks for your help