by AlexSchaft » Thu Feb 23, 2006 8:16 am
Hi,
Date and time is easy:
winexec('rundll32.exe shell32.dll,Control_RunDLL "timedate.cpl"')
the cpl files are sitting in windows\system32
as for function calls, you can have dll constructs as follows:
DLL32 FUNCTION NetCancel(cBuffer AS LPSTR, Force AS LONG) AS DWORD PASCAL ;
FROM "WNetCancelConnection" LIB "Mpr.dll"
DLL32 FUNCTION GetConnName(cLocal AS LPSTR, cRemote AS LPSTR, nLength AS DWORD) AS DWORD PASCAL ;
FROM "WNetGetConnection" LIB "Mpr.dll"
DLL32 FUNCTION AddConnection(pcString1 AS LPSTR, pcString2 AS LPSTR, pcString3 AS LPSTR) AS DWORD PASCAL ;
FROM "WNetAddConnection" LIB "Mpr.dll"
But you don't need most of these if you're running xharbour commercial