我想知道这个标题栏(安装程序那)效果怎么做出来的?

aguai2010 · 发表于 2011-8-15 13:13:56

有木有高手啊，帮忙，帮忙

aguai2010 · 发表于 2011-8-15 17:40:02

???????????

long001 · 发表于 2011-8-15 17:50:56

帮你顶顶！你不是已经看到别人发的帖子，透明界面的源码了吗？

风行者 · 发表于 2011-8-15 18:39:59

she皮肤

aguai2010 · 发表于 2011-8-20 14:20:09

好像不是那个效果吧？

gzh888666 · 发表于 2011-8-21 00:51:34

皮肤效果而已！透明的皮肤

juneqin2011 · 发表于 2011-8-21 16:07:35

不是皮肤是调用的一个工具

powerofos · 发表于 2011-8-21 18:48:26

对部署系统不太了解，这个阶段，应该是系统基本好了，而且是个XP+（5.0+）系统，标题栏只是系统AERO玻璃效果而已。

个人猜测。

苹果核 · 发表于 2011-8-22 14:03:09

现在新的系统都是这样。我也只是用，不知道怎么弄出来。都是封装工具里面自带的。

ashfinal · 发表于 2011-9-1 01:58:00

封装系统ghost后还原dllcache的界面中间那个是调用的dll还原工具侧边是类似这么一东东

#NoTrayIcon
#AutoIt3Wrapper_Res_LegalCopyright=Any
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <Timers.au3>
#include <Date.au3>

Global $timer, $Secs, $Mins, $Hour
Dim $IniPath
Dim $G3name,$G3F5,$G3F6,$G3F7,$G3RF5,$G3RF6,$G3RF7,$GameVisibel
Dim $TransType,$Trans,$Side,$letop

$IniPath=StringMid(@ScriptFullPath,1,StringLen(@ScriptFullPath)-3) & "ini"
$G3name=IniRead($IniPath,"Game","GameName","休闲游戏")
$G3F5=IniRead($IniPath,"Game","GameName1","扫雷")
$G3F6=IniRead($IniPath,"Game","GameName2","纸牌")
$G3F7=IniRead($IniPath,"Game","GameName3","空当接龙")
$G3RF5=IniRead($IniPath,"Game","GamePath1","C:\Windows\system32\winmine.exe")
$G3RF6=IniRead($IniPath,"Game","GamePath2","C:\Windows\system32\sol.exe")
$G3RF7=IniRead($IniPath,"Game","GamePath3","C:\Windows\system32\freecell.exe")
$GameVisibel=IniRead($IniPath,"Game","GameVisibel","1")
$TransType=IniRead($IniPath,"Other","TransType","1")
$Side=IniRead($IniPath,"Other","Side","Right")

if $side="Right" Then
$letop=@DesktopWidth-167
Else
$letop=0
EndIf

$Form1 = GUICreate("Anycrane", 167, @DesktopHeight, $letop,0,$WS_POPUP , bitor($WS_EX_LAYERED,$WS_EX_TOOLWINDOW))
GUISetBkColor(0xFFFBF0)
if $TransType=1 then
$Trans=255
_API_SetLayeredWindowAttributes($Form1, 0xFFFBF0)
Else
$Trans=IniRead($IniPath,"Other","Trans","150")
_API_SetLayeredWindowAttributes($Form1, 0xFFFFFF)
EndIf

$Group1 = GUICtrlCreateGroup("时间", 0, 0, 165, 121, $BS_CENTER, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor($Group1, $GUI_BKCOLOR_TRANSPARENT)
$Label1 = GUICtrlCreateLabel("系统日期：", 8, 23, 64, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Label2 = GUICtrlCreateLabel("系统时间：", 8, 55, 64, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Label3 = GUICtrlCreateLabel("已用时间：", 8, 87, 64, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Label4 = GUICtrlCreateLabel(@YEAR &"-" & @MON & "-" & @MDAY, 72, 23, 80, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Label5 = GUICtrlCreateLabel(StringFormat("%02d:%02d:%02d", @HOUR, @MIN, @SEC), 73, 55, 80, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Label6 = GUICtrlCreateLabel("00 分 00 秒", 72, 87, 80, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1,0xff0000)
GUICtrlSetFont (-1, 9, 600)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("系统资源", 0, 128, 165, 137, $BS_CENTER, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Label7 = GUICtrlCreateLabel("CPU使用率：", 8, 160, 74, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Label8 = GUICtrlCreateLabel("内存使用率：", 8, 208, 76, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Progress1 = GUICtrlCreateProgress(8, 184, 145, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Progress2 = GUICtrlCreateProgress(8, 232, 145, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Label9 = GUICtrlCreateLabel("", 112, 160, 36, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Label10 = GUICtrlCreateLabel("", 112, 208, 42, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateGroup("", -99, -99, 1, 1)
if $GameVisibel=1 then
$Group3 = GUICtrlCreateGroup($G3name, 0, 272, 165, 100, $BS_CENTER, $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Label11 = GUICtrlCreateLabel("F5："&$G3F5, 16, 298, 76, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Label12 = GUICtrlCreateLabel("F6："&$G3F6, 16, 323, 76, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Label13 = GUICtrlCreateLabel("F7："&$G3F7, 16, 347, 76, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateGroup("", -99, -99, 1, 1)
EndIf
GUISetState()
WinSetOnTop("Anycrane","",1)
$timer = TimerInit()
;AdlibEnable("CpuRamRate", 500)
_Timer_SetTimer($Form1, 100, "_UpdateClock")

HotKeySet("{Esc}","quit")
HotKeySet("{F5}","game1")
HotKeySet("{F6}","game2")
HotKeySet("{F7}","game3")


While 1
        Sleep(500)
        CpuRamRate()
WEnd

Func _API_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = $Trans, $isColorRef = False)

Local Const $AC_SRC_ALPHA = 1
Local Const $ULW_ALPHA = 2
Local Const $LWA_ALPHA = 0x2
Local Const $LWA_COLORKEY = 0x1
If Not $isColorRef Then
$i_transcolor = Hex(String($i_transcolor), 6)
$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $LWA_COLORKEY + $LWA_ALPHA)
Select
Case @error
Return SetError(@error, 0, 0)
Case $Ret[0] = 0
Return SetError(4, 0, 0)
Case Else
Return 1
EndSelect
EndFunc

Func _UpdateClock($hWnd, $Msg, $iIDTimer, $dwTime)
_TicksToTime(Int(TimerDiff($timer)),$Hour,$Mins,$Secs)
GUICtrlSetData($Label5 , StringFormat("%02d:%02d:%02d", @HOUR, @MIN, @SEC))
GUICtrlSetData($Label6, StringFormat("%02i 分 %02i 秒",$Mins, $Secs))
GUICtrlSetData($Label4 , @YEAR &"-" & @MON & "-" & @MDAY)
EndFunc ;==>_UpdateClock


Func CpuRamRate()

Local $rCPU,$rRAM
$rCPU=CurrentCPURate()
$rRAM=CurrentRAMRate()
GUICtrlSetData($Progress1,$rCPU)
GUICtrlSetData($Label9,$rCPU&"%")
GUICtrlSetData($Progress2,$rRAM)
GUICtrlSetData($Label10,$rRAM&"%")
EndFunc


Func CurrentCPURate()
$wbemServices = ObjGet("winmgmts:\\.\root\cimv2")
$wbemObjectSet= $wbemServices.ExecQuery("Select * from Win32_Processor")
For $wbemObject In $wbemObjectSet
$dd=$wbemObject.LoadPercentage
Next
Return $dd
EndFunc

Func CurrentRAMRate()
Local $Array[7]
$Array=MemGetStats()
Return $Array[0]
EndFunc

Func game1()
Run($G3RF5)
EndFunc

Func game2()
Run($G3RF6)
EndFunc

Func game3()
Run($G3RF7)
EndFunc

Func quit()
Exit 0
EndFunc

haijie1223 · 发表于 2011-9-1 07:02:02

这个不是皮肤吧这个是系统自带的setup程序至于效果应该是自然状态

jsgh1983 · 发表于 2011-9-19 14:17:16

这个是IT天空的封装工具做出来的吧！透明的效果？菜鸟的我不太懂，好像系统皮肤的一个壳，替换系统自带的皮肤文件。实现透明，说白了就应该是透明的皮肤！

ayumi502 · 发表于 2011-9-19 14:43:53

叫做truetransparent.exe

逆水风帆 · 发表于 2011-9-19 22:15:30

不知道lz指哪里？进度条那我倒是知道

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

[系统综合] 我想知道这个标题栏(安装程序那)效果怎么做出来的?

相关帖子