Tony Kelava wrote:
>
> Can anyone tell me if the following is possible:
> Can I change the "MapInfo Professional" text on the top left hand part of
> the MI screen to read something like "Tonys MapInfo GIS"?
Here's some MapBasic code that will do it.
'TonyWin.mb
'Demonstrates how to change the main window's title
'through the use of Windows API functions
'GetActiveWindow() and SetWindowText().
'==================================================
Declare function SetWindowText
Lib "User32" Alias "SetWindowTextA" (
ByVal hWnd as Integer,
ByVal Str as string)
as integer
Declare function GetActiveWindow
Lib "User32" Alias "GetActiveWindow" ()
as Integer
declare sub main
declare sub SetWindowTitle (byval sTitle as string)
'--------------------------------------------------
sub main
call SetWindowTitle ("Tonys MapInfo GIS")
end sub
'--------------------------------------------------
sub SetWindowTitle (byval sTitle as string)
dim hWnd, nResult as integer
hWnd = GetActiveWindow()
nResult = SetWindowText (hWnd, sTitle)
end sub
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
