Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Microsoft: FoxPro FAQ

API Functions

How to disable the "X" in a Word application by Mike Gagnon
Posted: 23 Jan 05


oword = CREATEOBJECT("word.application")
oword.visible = .t.
Declare Integer FindWindow In user32;
 STRING lpClassName, String lpWindowName
Declare Integer GetSystemMenu In user32 Integer HWnd, Integer bRevert
Declare Integer RemoveMenu In user32 Integer hMenu ,Integer nPosition,Integer wFlags
#Define  MF_BYPOSITION 1024
HWnd = FindWindow("OPUSApp", 0)
hMnu = GetSystemMenu(HWnd, 0)
For I = 6 To 0 Step -1
 Y = RemoveMenu(hMnu, I, MF_BYPOSITION)
Next I

Back to Microsoft: FoxPro FAQ Index
Back to Microsoft: FoxPro Forum

My Archive

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close