循环创建窗体的问题?
本帖最后由 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
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
; 窗口显示
;主要是这不知道怎么编写,以上的程序代码都正确,也能找出每个目录里的sysconfig.ini文件,并且也能读取里面的的内容,但是在窗口上显示出来,我就不知道了,求解。
Next
EndIf
EndIf
WEnd
EndFunc
config.ini文件中的内容
Size=20
Label=BootDisk
sysconfig.ini文件中的内容
Description=Windows 7 中 英 俄 多语言安装包
Bit=32 人不多哦,没有人回答,等得着急 晕,还真没有人回答,没有好心人了 还是回去自己琢磨把 顶一下自己的帖子,希望高手回答一下 顶一下自己的帖子,希望高手回答一下
w55554 发表于 2011-7-30 15:48 http://www.autoitx.com/images/common/back.gif
自己顶也没有用。没有把问题说清楚呀
一是你写的代码很乱,比如连gui窗口都没有创建,居然加截皮肤的代码有了……
是在那里扣出来的的代码吧
再则最重要的,你要求怎么样的方式在窗口上显示呢?也就是显示在什么控件上? 自己顶也没有用。没有把问题说清楚呀
一是你写的代码很乱,比如连gui窗口都没有创建,居然加截皮 ...
happytc 发表于 2011-7-30 22:38 http://www.autoitx.com/images/common/back.gif
同意!
页:
[1]