[求助]CAD左上角图标和CAD2008能改动吗？

xhq1954425

如下图所示：

 

ZHAOWCHANG

当然可以，在ACAD.DLL文件中

xhq1954425

谢谢ZHAOWCHANG！

能不能把操作步骤说一下！能不能连同CAD2008这几个字也一同去掉呢？

hydkot99

对CAD2009而言，在哪里呢？好像在CAD2009的安装目录下找不到ACAD.DLL

fujiang

可以改的 ， 用VBA

Option Explicit

Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal Hwnd As Long, ByVal lpString As String) As Long
Private 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
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETICON = &H80
Private Const IMAGE_ICON = 1
Private Const LR_LOADFROMFILE = &H10

Public Sub ChangeCADCaption()
Dim strCaption As String
strCaption = "ZWCAD 2009i 专业版"
SetWindowText Application.Hwnd, strCaption
End Sub
Public Sub SetIcon()
Dim hIcon As Long
Dim FileName As String
FileName = "cad.ico"
'FileName 图标文件, Hwnd ACAD应用程序的句柄
hIcon = LoadImage(0&, FileName, IMAGE_ICON, 16, 16, LR_LOADFROMFILE)
If hIcon <> 0 Then
Call SendMessage(Hwnd, WM_SETICON, 0, ByVal hIcon)
End If
End Sub

xhq1954425

fujiang发表于2010-4-30 0:26:00可以改的 ， 用VBAOption ExplicitPublic Declare Function SetWindowText Lib \"user32\" Alias \"SetWindowTextA\" (ByVal Hwnd As Long, ByVal lpString As String) As LongPrivate Declare

谢谢你！我没用过VBA，完全看不懂！不知这个程序如何运行？能否说详细点……