General information
Category:
Coding, syntax & commands
Hi, I have been able to hide most of the activity when running a FoxPro exe but the main foxPro
window still flashes briefly when the exe loads. Is there a way to remove this also?
Thanks
Steve
This is the foxPro exe program
**********************************
_Screen.Visible = .F.
o = GETOBJECT(,'excel.application') && helps to reduce screen activity
o.Visible= .T.
WITH o.Application &&.Run("Hw2004ETF.xls!GotoFidelity")
.screenUpdating = .f. && also helps
.Sheets("ImportArea").Select
.Goto("FedImpRange")
.Selection.Copy
.Sheets("Fidelity").Select
.Goto("LastDay")
.Range("HV7").Select
.ActiveSheet.Paste
Recalc() && .Run("Hw2004ETF.xls!ReCalcSheet")
.Goto("LastDay")
.screenUpdating = .t. && also helps
ENDWITH
PROCEDURE ReCalc
.Run("Hw2004ETF.xls!ReCalcSheet")
RETURN .t.
This is the Excel macro
***********************
Sub aa()
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Const SW_SHOWNOACTIVATE = 4
Const SW_SHOW = 5
Const SW_MINIMIZE = 6
Const SW_SHOWMINNOACTIVE = 7
Const SW_SHOWNA = 8
Const SW_RESTORE = 9
Dim ProcessID As Long
Dim file2run As String
Application.ScreenUpdating = False
file2run = ("c:\pager\oQot.exe -t") '' should the -t remove FoxPro's initial screen from showing?
ProcessID = Shell(file2run, CLng(SW_SHOWNORMAL))
Application.ScreenUpdating = False
End Sub
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only