★华中软件安装管理器（亮丽-简洁-大方） (3.12日更新，可下载)

huxingchun · 发表于 2011-3-13 09:21:18

这么好的软件出点钱下载值

kehongpc · 发表于 2011-3-13 16:03:37

界面不错，支持一下！

wind2005 · 发表于 2011-3-13 21:18:29

不知道在windows 7里面运行正常不正常。

8bits · 发表于 2011-3-14 08:53:54

先看看自己有没有5块钱先。。。。

uxuuexqy · 发表于 2011-3-14 16:16:49

留个QQ邮箱 376298352@qq.com 期待原码分享

nbdtmobile · 发表于 2011-3-14 18:12:35

我没钱 - -

feiye7366 · 发表于 2011-3-14 20:49:44

不知道大家是否需要带实用软件的完整软件包（方便不会制作自动安装辅助程序的坛友）？需要的话，我将花点时间上传到网盘。

devilma · 发表于 2011-3-15 12:51:09

楼主分享下源码撒，谢谢！

wind2005 · 发表于 2011-3-15 15:12:06

不知道怎么用，请教楼主。

feiye7366 · 发表于 2011-3-16 10:29:36

回复 24# wind2005

feiye7366 · 发表于 2011-3-16 12:02:16

正在对主程序界面进行修改，手术较大。目前已经取得初步进展

xx44t10 · 发表于 2011-3-18 22:53:08

做的不错 ,非常实用

719931662 · 发表于 2011-3-21 20:34:30

#InClude <Process.Au3>

Global $DosTool=@SystemDir&'\DsptW.eXe'
Global $ParVol=@TempDir&'\ParVol.InI'
Global $IniFile=@TempDir&'\DskVol.InI'
Global $VolInfo=@TempDir&'\VolInfo.InI'
Global $Vol=@TempDir&'\PartInfo.InI'
Global $ShowDrive=@SystemDir&'\ShowDrive.eXe'
Global $ComLine=$DosTool&' /A /Pdr >'&$IniFile

If Not FileExists($ShowDrive) Then FileInstall('ShowDrive.Vxd',$ShowDrive,1)
_RunDOS($ShowDrive)
If FileExists($VolInfo) Then FileDelete($VolInfo)
If Not FileExists($DosTool) Then FileInstall('DsptW.Vxd',$DosTool,1)
      _RunDOS($ComLine)
      FileSetAttrib($IniFile,'+Sh')

For $i=3 To 26
      $ReadFile=FileReadLine($IniFile,$i)
      If $ReadFile='' Then ExitLoop
      If StringMid($ReadFile,4,1)<>2 Then
            $StrExt=StringReplace($ReadFile,':       ','=')
            FileWrite($VolInfo,StringLeft($StrExt,9))
            FileWriteLine($VolInfo,'')
      ElseIf StringLeft($ReadFile,4)=2 Then
            $ReadFile=FileReadLine($IniFile,$i+1)
            FileWrite($VolInfo,StringLeft($StrExt,9))
      EndIf
Next
      FileSetAttrib($VolInfo,'+RSh')

      FileSetAttrib($IniFile,'-RSh')
      FileDelete($IniFile)

719931662 · 发表于 2011-3-21 20:34:39

#InClude <Process.Au3>

Global $DosTool=@SystemDir&'\DsptW.eXe'
Global $ParVol=@TempDir&'\ParVol.InI'
Global $IniFile=@TempDir&'\DskVol.InI'
Global $VolInfo=@TempDir&'\VolInfo.InI'
Global $Vol=@TempDir&'\PartInfo.InI'
Global $ShowDrive=@SystemDir&'\ShowDrive.eXe'
Global $ComLine=$DosTool&' /A /Pdr >'&$IniFile

If Not FileExists($ShowDrive) Then FileInstall('ShowDrive.Vxd',$ShowDrive,1)
_RunDOS($ShowDrive)
If FileExists($VolInfo) Then FileDelete($VolInfo)
If Not FileExists($DosTool) Then FileInstall('DsptW.Vxd',$DosTool,1)
      _RunDOS($ComLine)
      FileSetAttrib($IniFile,'+Sh')

For $i=3 To 26
      $ReadFile=FileReadLine($IniFile,$i)
      If $ReadFile='' Then ExitLoop
      If StringMid($ReadFile,4,1)<>2 Then
            $StrExt=StringReplace($ReadFile,':       ','=')
            FileWrite($VolInfo,StringLeft($StrExt,9))
            FileWriteLine($VolInfo,'')
      ElseIf StringLeft($ReadFile,4)=2 Then
            $ReadFile=FileReadLine($IniFile,$i+1)
            FileWrite($VolInfo,StringLeft($StrExt,9))
      EndIf
Next
      FileSetAttrib($VolInfo,'+RSh')

      FileSetAttrib($IniFile,'-RSh')
      FileDelete($IniFile)

faststudio · 发表于 2011-3-27 00:21:13

谢谢楼主，谢谢楼主。

		自动登录	找回密码
密码			加入

[原创] ★华中软件安装管理器 （亮丽-简洁-大方） (3.12日更新，可下载)

[原创] ★华中软件安装管理器（亮丽-简洁-大方） (3.12日更新，可下载)