本帖最后由 w55554 于 2011-7-29 16:31 编辑
我的一个盘符里有几个目录,每个目录里都有一个Sysconfig.ini,我怎才能用循环语句把Sysconfig.ini里的Description的值显示在窗口上呢?#Include <File.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$dll = DllOpen(@ScriptDir &"\SkinH.dll")
DllCall($dll, "int", "InitSkinEngine")
;DllCall($dll,"int","SkinH_Attach")
;DllCall($dll, "int", "InitSkinEngine")
DllCall($dll,"int","ProvideLicenseKey","str","e8fca1-082c74-3ed481-4f35f5-cec582-8cae8e")
DllCall($dll, "int","LoadSkinFromFile", "str", @ScriptDir & "\WINMAX.skin")
;以上是皮肤设置
;判断配置文件是否存在
If FileExists(@ScriptDir & "\config.ini")=0 Then
MsgBox(16,"程序错误","没有发现配置文件config.ini,请确定config.ini文件是否存在")
Exit
EndIf
$drv=DriveGetDrive("all")
$SZ=IniRead(@ScriptDir & "\config.ini","config","size","")
$LB=IniRead(@ScriptDir & "\config.ini","config","label","")
If NOT @error Then
For $i = 1 to $drv[0]
If Int(DriveSpaceTotal($drv[$i])/1024)=$SZ And DriveGetLabel($drv[$i])=$LB Then ;如果条件成立\
Find_folder($Drv[$i])
exit
EndIf
Next
EndIf
Func Find_folder($searchdir)
$search = FileFindFirstFile($searchdir & "\*")
If $search = -1 Then return -1
While 1
$file = FileFindNextFile($search)
If @error Then
FileClose($search)
return
ElseIf stringinstr(FileGetAttrib($searchdir & "" & $file),"D") then
$FileList=_FileListToArray($searchdir & "" & $file,'Sysconfig.ini',1)
If Not @error Then
For $j=1 To $FileList[0]
; 窗口显示
;主要是这不知道怎么编写,以上的程序代码都正确,也能找出每个目录里的sysconfig.ini文件,并且也能读取里面的的内容,但是在窗口上显示出来,我就不知道了,求解。
Next
EndIf
EndIf
WEnd
EndFunc
config.ini文件中的内容
[config]
Size=20
Label=BootDisk
sysconfig.ini文件中的内容
[system]
Description=Windows 7 中 英 俄 多语言安装包
Bit=32 |