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

Share

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

1. !includensDialogs.nsh
   
2. #编写：水晶石
   
3. Name "link_tooltips"
   
4. OutFile "link_tooltips.exe"
   
5. XPStyle on
   
6. Var Link
   
7. Var tipS
   
8. Page custom nsDialogsPage
   
9. 
   
10. Function OnTimer
    
11. ${Unless} $tips <> 0
    
12. System::Call USER32::CreateWindowEx(i0x00000008,t"tooltips_class32",i,i0x80000000,i,i,i,i,i,i,i0,i)i.s
    
13.   Pop $tipS
    
14. ${EndUnless}
    
15.   System::Alloc 16
    
16. Pop $0
    
17.   System::Call USER32::GetCursorPos(ir0)
    
18.   System::Call *$0(i.r1,i.r2)
    
19.   System::Free $0
    
20.   System::Call USER32::WindowFromPoint(ir1,ir2)i.r1
    
21. ${If} $1 = $Link
    
22.    StrCpy $R1"超级链接"
    
23.    FindWindow $3 "#32770" "" $HWNDPARENT
    
24.    System::Call *(i0x28,i0x010,i$3,i0x409,i,i,i,i,i0,tR1)i.R1
    
25.    SendMessage $tipS 1028 0 $R1
    
26.    SendMessage $tipS 1033 0 $R1
    
27.    SendMessage $tipS 1025 1 0
    
28.    SendMessage $tipS 1041 1 $R1
    
29.    System::Free $R1
    
30.    SetCtlColors $Link  0xFF0000 transparent
    
31.    System::Call USER32::LoadCursor(i,i32649)i.s
    
32.    System::Call USER32::SetCursor(is)
    
33. ${Else}
    
34.    SendMessage $tipS 1025 0 0
    
35.    SetCtlColors $Link  0x0000FF transparent
    
36. ${EndIf}
    
37.   System::Call user32::RedrawWindow(i$Link,i0,i0,i0x0105)
    
38. FunctionEnd
    
39. 
    
40. Function nsDialogsPage
    
41. nsDialogs::Create 1018
    
42.   Pop $0
    
43.   ${NSD_CreateLabel} 100u 50u 100% 15u "访问我的博客"
    
44.   Pop $Link
    
45.   SetCtlColors $Link  0x0000FF transparent
    
46.   System::Call user32::SetClassLong(i$Link,i-12,i0)
    
47.   ${NSD_OnClick} $Link OnClick
    
48.   ${NSD_CreateTimer} OnTimer 50
    
49. nsDialogs::Show
    
50. FunctionEnd
    
51. 
    
52. function OnClick
    
53. ExecShell "open" "http://blog.csdn.NET/shuijing_0"
    
54. FunctionEnd
    
55. 
    
56. Section
    
57. SectionEnd

复制代码