FindWIndow and trademark symbol

[lauren quantrell]

I have an Access application with the name: MyAppName®
It has the "®" symbol (ChrW$(&H00AE)) at the end of it.
If I remane the application without the "®" symbol, I can use
FindWindow to close the application, but with the "®" symbol it
doesn't. Unfortunaetley this app is already distributed as MyAppName®
and I cannot change it.
I have tried:
hwnd = FindWindow(vbNu llString, "myAppName" & ChrW$(&H00AE))
But it won't work.
Yikes.
This has become an emergency.
Can anyone help?
lq

[Lyle Fairfield]

"lauren quantrell" <la************ *@hotmail.com> wrote in
news:11******** **************@ g14g2000cwa.goo glegroups.com:

Lyle,
I use:
Dim hwnd as long
hwnd = FindWindow(vbnu llstring,"AppNa me" & ChrW$(&HAE))
SetForegroundWi ndow hwnd
PostMessage hwnd, WM_CLOSE, 0&, 0&

lq

Your code works for me.

--
Lyle
--

[Stephen Lebans]

Lauren just to eliminate the obvious why don't you post your
declarations for the FindWindow and PostMessage API's.

Do you have Spy++ on your system so you can verify that the hWnd
returned via FindWindow is the correct window and that the Window name
ending character is correct?
--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"lauren quantrell" <la************ *@hotmail.com> wrote in message
news:11******** **************@ g14g2000cwa.goo glegroups.com.. .
Lyle,
I use:
Dim hwnd as long
hwnd = FindWindow(vbnu llstring,"AppNa me" & ChrW$(&HAE))
SetForegroundWi ndow hwnd
PostMessage hwnd, WM_CLOSE, 0&, 0&

lq

Lyle Fairfield wrote:

"lauren quantrell" <la************ *@hotmail.com> wrote in
news:11******** **************@ z14g2000cwz.goo glegroups.com:

Lyle,
(&H00AE) converts to (&HAE) when compiled.
I can find the window, and it gives me a hwnd number, but for some
reason it doesn't close it, but it will only close it if the
application has no "®". Very puzzling.
lq
How do you try to close it?

I use:

Dim h As Long
h = FindWindow(vbNu llString, "MyApplicationT itle" & ChrW$(&HAE))
PostMessage h, WM_CLOSE, 0, 0

with the requisite API declarations. Of course, one can use the

IsWindow and WaitForSingleOb ject functions to be sure or branch somewhere else if unsuccessful.

--
Lyle
--

[lauren quantrell]

Stephan,
Here's the full code.
Thanks,
lq

Const WM_CLOSE = &H10
Const SW_HIDE = 0

Private Declare Function FindWindow _
Lib "user32" _
Alias "FindWindow A" _
( _
ByVal lpClassName As String, _
ByVal lpWindowName As String _
) _
As Long

Private Declare Function SetForegroundWi ndow _
Lib "user32" _
( _
ByVal hwnd As Long _
) _
As Long

Private Declare Function PostMessage _
Lib "user32" _
Alias "PostMessag eA" _
( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long _
) _
As Long

Function CloseMyFrigginA pp()
Dim hwnd As Long, AppCaption As String

AppCaption = "AppName" '& ChrW$(&HAE)
hwnd = FindWindow(vbNu llString, AppCaption)
If hwnd <> 0 Then
SetForegroundWi ndow hwnd
PostMessage hwnd, WM_CLOSE, 0&, 0&
End If
End Function

[Lyle Fairfield]

"lauren quantrell" <la************ *@hotmail.com> wrote in
news:11******** *************@f 14g2000cwb.goog legroups.com:

AppCaption = "AppName" '& ChrW$(&HAE)

The single quote (comment indicator) is a typo ... or the problem?

--
Lyle
--
From ADO28.chm

[Stephen Lebans]

Lauren your code works here.
I created an MDB with an Appname containing a trailing Trademark
symbol.
I created another MDB containing your code.

You do not need the call to the SetForegroundWi ndow API but it works
either way.

What versions of Access and windows are you running under?
Are you doing as I tested, closing one Access App from another?
Do you perchance have a an opened Form with the same name as the Access
Application?
--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"lauren quantrell" <la************ *@hotmail.com> wrote in message
news:11******** *************@f 14g2000cwb.goog legroups.com...

Stephan,
Here's the full code.
Thanks,
lq

Const WM_CLOSE = &H10
Const SW_HIDE = 0

Private Declare Function FindWindow _
Lib "user32" _
Alias "FindWindow A" _
( _
ByVal lpClassName As String, _
ByVal lpWindowName As String _
) _
As Long

Private Declare Function SetForegroundWi ndow _
Lib "user32" _
( _
ByVal hwnd As Long _
) _
As Long

Private Declare Function PostMessage _
Lib "user32" _
Alias "PostMessag eA" _
( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long _
) _
As Long

Function CloseMyFrigginA pp()
Dim hwnd As Long, AppCaption As String

AppCaption = "AppName" '& ChrW$(&HAE)
hwnd = FindWindow(vbNu llString, AppCaption)
If hwnd <> 0 Then
SetForegroundWi ndow hwnd
PostMessage hwnd, WM_CLOSE, 0&, 0&
End If
End Function

[lauren quantrell]

Lyle,
Thanks for the reply. The single quote is just a typo.
lq
Lyle Fairfield wrote:

"lauren quantrell" <la************ *@hotmail.com> wrote in
news:11******** *************@f 14g2000cwb.goog legroups.com:

AppCaption = "AppName" '& ChrW$(&HAE)

The single quote (comment indicator) is a typo ... or the problem?

--
Lyle
--
From ADO28.chm

[lauren quantrell]

Stephen,
I am using a second MS Access app to close the first. Both apps running
Access 2K on Win XP Pro. I'll have to look at the form issue. It is
possible a popup form could have the same caption as the database with
the trailing ChrW$(&HAE) symbol...
again, the code works as long as there's no trailing ChrW$(&HAE) symbol
and most of the forms are popup forms.
lq

[Stephen Lebans]

I've tested your scenario on WinXP Pro with A2K and A2003 and your code
works every time. THere's something else going on with your setup that I
am missing.
Can you send me your APP and the secondary MDB that closes the first
app? Just delete the contents of the tables if they contain data that is
sensitive.

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"lauren quantrell" <la************ *@hotmail.com> wrote in message
news:11******** **************@ g14g2000cwa.goo glegroups.com.. .

Stephen,
I am using a second MS Access app to close the first. Both apps running Access 2K on Win XP Pro. I'll have to look at the form issue. It is
possible a popup form could have the same caption as the database with
the trailing ChrW$(&HAE) symbol...
again, the code works as long as there's no trailing ChrW$(&HAE) symbol and most of the forms are popup forms.
lq