MyException - 我的异常网
当前位置:我的异常网» 编程 » NSIS运用API创建工具提示条和超级链接

NSIS运用API创建工具提示条和超级链接

www.MyException.Cn  网友分享于:2013-01-07  浏览:20次
NSIS使用API创建工具提示条和超级链接

不再借助专用插件创建超级链接和工具提示条

!include nsDialogs.nsh
#编写:水晶石
Name "link_tooltips"
OutFile "link_tooltips.exe"
XPStyle on
Var Link
Var tipS
Page custom nsDialogsPage

Function OnTimer
${Unless} $tips <> 0
System::Call USER32::CreateWindowEx(i0x00000008,t"tooltips_class32",i,i0x80000000,i,i,i,i,i,i,i0,i)i.s
  
Pop $tipS
${EndUnless}
  System::Alloc 16
Pop $0
  
System::Call USER32::GetCursorPos(ir0)
  
System::Call *$0(i.r1,i.r2)
  
System::Free $0
  
System::Call USER32::WindowFromPoint(ir1,ir2)i.r1
${If} $1 = $Link
   
StrCpy $R1 "超级链接"
   
FindWindow $3 "#32770" "" $HWNDPARENT
   
System::Call *(i0x28,i0x010,i$3,i0x409,i,i,i,i,i0,tR1)i.R1
   
SendMessage $tipS 1028 0 $R1
   
SendMessage $tipS 1033 0 $R1
   
SendMessage $tipS 1025 1 0
   
SendMessage $tipS 1041 1 $R1
   
System::Free $R1
   
SetCtlColors $Link  0xFF0000 transparent
   
System::Call USER32::LoadCursor(i,i32649)i.s
   
System::Call USER32::SetCursor(is)
${Else}
   
SendMessage $tipS 1025 0 0
   
SetCtlColors $Link  0x0000FF transparent
${EndIf}
  
System::Call user32::RedrawWindow(i$Link,i0,i0,i0x0105)
FunctionEnd

Function
nsDialogsPage
nsDialogs::Create 1018
  Pop $0
  ${NSD_CreateLabel}
100u 50u 100% 15u "访问我的博客"
  
Pop $Link
  
SetCtlColors $Link  0x0000FF transparent
  System::Call user32::SetClassLong(i$Link,i-12,i0)
  ${NSD_OnClick} $Link OnClick
  
${NSD_CreateTimer} OnTimer 50
nsDialogs::Show
FunctionEnd

function
OnClick
ExecShell "open" "http://blog.csdn.net/shuijing_0"
FunctionEnd

Section
SectionEnd

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有