Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Putting Foxpro in systray.....a 'HIDE WINDOW SCREEN Ques
Message
From
07/10/1998 07:58:49
 
 
To
07/10/1998 07:45:11
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00144512
Message ID:
00144517
Views:
20
>Hi...
>I have sucessfully put my VFP 6.0 app in the system tray
>using code I found here.
>
>It's a server so it executes a sequence of events
>on a timer...
>
>Using the code I put the thing in the tray but the application stays visible.
>
>So I just do a
>HIDE WINDOW SCREEN
>
>Command to get rid of the screen...
>
>But if I do this the program just closes down...
>
>I want it to keep executing....The timer...
>
>SO I tried...
> thisform.minimized=.t.
> HIDE WINDOW SCREEN
> read events
>
> DO WHILE thisform.minimized=.t.
>
>
> ENDDO
>
>Then when I click on the icon in the tray
>It calls a function that does:
>***********************************
>SHOW WINDOW SCREEN
>if DelSysTrayIcon(1)
> thisform.minimized=.f.
> THISFORM.GOTOFOCUS()
>endif
>
>**********************************
>
>This works fine but the program doesn't execut the timer
>because the loop does nothing...
>
>I tired various things but no luck
>
>So the Million dollar question is:
>What do I put in here:
>
> DO WHILE thisform.minimized=.t.
>
>
> ENDDO
>
>So that the program executes the timer on the screen...
>When the screen is hidden....
>

Why not simply _SCREEN.Visible = .F. or _SCREEN.WindowsState=1 (minimizes) if you want to be able to bring it back easily?
EMail: EdR@edrauh.com
"See, the sun is going down..."
"No, the horizon is moving up!"
- Firesign Theater


NT and Win2K FAQ .. cWashington WSH/ADSI/WMI site
MS WSH site ........... WSH FAQ Site
Wrox Press .............. Win32 Scripting Journal
eSolutions Services, LLC

The Surgeon General has determined that prolonged exposure to the Windows Script Host may be addictive to laboratory mice and codemonkeys
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform