'strrun = getinivalue("windows","run", "c:\windows\win.ini")
public function getinivalue(byval lpkeyname as string, byval strname as string, byval strinifile as string) as string
dim strtmp as string * 255
call getprivateprofilestring(lpkeyname, strname, "", _
strtmp, len(strtmp), strinifile)
getinivalue = left$(strtmp, instr(strtmp, vbnullchar) - 1)
end function
'————————（5）————————————
'获得windows目录 ,需要下面的api声明
'private declare function getwindowsdirectory lib "kernel32" alias "getwindowsdirectorya" (byval lpbuffer as string, byval nsize as long) as long
'返回一个字符串，如“c:\windows”、“c:\winnt”
'调用举例：
'dim strwindir as string
'strwindir = getwindir()
private function getwindir()
dim windir as string * 100
call getwindowsdirectory(windir, 100)
getwindir = left$(windir, instr(windir, vbnullchar) - 1)
end function
'————————（6）————————————
'获得windows系统目录,需要下面的api声明
'private declare function getsystemdirectory lib "kernel32" alias "getsystemdirectorya" (byval lpbuffer as string, byval nsize as long) as long
'返回一个字符串，如“c:\windows\system”、“c:\winnt\system32”
'调用举例：
'dim strsysdir as string
'strsysdir = getsystemdir()
private function getsystemdir()
dim strsysdir as string * 100
call getsystemdirectory(strsysdir, 100)
getsystemdir = left$(strsysdir, instr(strsysdir, vbnullchar) - 1)
