[分享]：更换AutoCAD标题栏上的图标、文字以及下拉菜单“文件”左边的图标。

cyt4321

Public Declare Function GetParent Lib "user32" (ByVal Hwnd As Long) As Long
Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal Hwnd As Long, ByVal lpString As String) As Long

Public Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Type OPENFILENAME
     lStructSize As Long
     hwndOwner As Long
     hInstance As Long
     lpstrFilter As String
     lpstrCustomFilter As String
     nMaxCustFilter As Long
     nFilterIndex As Long
     lpstrFile As String
     nMaxFile As Long
     lpstrFileTitle As String
     nMaxFileTitle As Long
     lpstrInitialDir As String
     lpstrTitle As String
     flags As Long
     nFileOffset As Integer
     nFileExtension As Integer
     lpstrDefExt As String
     lCustData As Long
     lpfnHook As Long
     lpTemplateName As String
End Type

Public Declare Function GetActiveWindow Lib "user32" () As Long
Public Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_SETICON = &H80
Public Const IMAGE_ICON = 1
Public Const LR_LOADFROMFILE = &H10


Sub SetIcon()
  Dim Hwnd As Long
  Dim Name As String
  Dim hIcon As Long
  
    Hwnd = GetParent(ThisDrawing.Hwnd)
  
  Hwnd = GetActiveWindow
  
  SetWindowText Hwnd, "VisualGIS 2002"
  
  hIcon = LoadImage(0&, GISPath + "\system\gis.ico", IMAGE_ICON, 16, 16, LR_LOADFROMFILE)
  If hIcon <> 0 Then
    Call SendMessage(Hwnd, WM_SETICON, 0, ByVal hIcon)   ' 0——任务栏上的图标
Call SendMessage(Hwnd, WM_SETICON, 1, ByVal hIcon)   ' 1——标题栏上的图标
Call SendMessage(ThisDrawing.Hwnd, WM_SETICON, 0, ByVal hIcon)   ' 下拉菜单最左边的图标
  End If
End Sub

zcmjw

good!二次开发的好方法。

whkcjava

需要wnnt内核才行

JOSDENNIS

呵呵. 我只會LISP. 不懂你的東東, 不過看了發個貼支持你.