VB6 exe cause other programs to minimize
I have written a very simple program in VB6 (called Pellet.exe) that has an invisible form and closes itself in less than a second. I am calling it from within other programs (some written in VB6, PowerBasic, and TurboPascal) to activate a PCI I/O card. When Pellet.exe runs it causes the PowerBasic and TurboPascal (but not VB) programs that called it to minimize to the task bar. This is not desirable for my situation.
Does anyone know how to prevent the calling programs from minimizing? Keep in mind that I am a beginner, as my username indicates.
Thanks.
Re: VB6 exe cause other programs to minimize
While I don't know PowerBasic nor Turbo Pascal I think you should post your source code so other users can check your code for errors or a solution.
Re: VB6 exe cause other programs to minimize
i suggest you attempt to call any other program from those two programming envoronments. It most likely is that they would minimize no matter what they call.
Re: VB6 exe cause other programs to minimize
Other exe's written in VB6 will execute without causing the minimize problem. I have determined, with a little bit of trial and error, exactly what line of code coincides with the minimization. The problem is that the 'problem code' is of proprietary nature (Keithley Instruments DriverLinx), as it calls upon drivers for the digital I/O board (PCI-PDIOS8A) that I am activating with Pellet.exe. The code is below (and the critical line is .Req_DLL_name = "kpciiso$" - which I think identifies the I/O board).
Code:
Private Sub Form_Load()
With SRDI
.Req_DLL_name = "kpciiso$"
.Req_device = 0
.Req_subsystem = DL_DEVICE
.Req_mode = DL_OTHER
.Req_op = DL_INITIALIZE
.Refresh
End With
With SRDO
.Req_DLL_name = SRDI.Req_DLL_name
.Req_device = SRDI.Req_device
.Req_subsystem = DL_DEVICE
.Req_mode = DL_OTHER
.Req_op = DL_INITIALIZE
.Refresh
End With
StartPellet.Enabled = True
End Sub
Private Sub StartPellet_Timer()
StartPellet.Enabled = False
With SRDO
.Req_subsystem = DL_DO
.Req_mode = DL_POLLED
.Req_op = DL_START
.Evt_Str_type = DL_NULLEVENT
.Evt_Stp_type = DL_NULLEVENT
.Evt_Tim_type = DL_NULLEVENT
.Sel_chan_format = DL_tNATIVE
.Sel_chan_N = 1
.Sel_chan_start = 1
.Sel_buf_N = 0
.Res_Sta_ioValue = 17
.Refresh
End With
StopPellet.Enabled = True
End Sub
Private Sub StopPellet_Timer()
StopPellet.Enabled = False
With SRDO
.Req_subsystem = DL_DO
.Req_mode = DL_POLLED
.Req_op = DL_START
.Evt_Str_type = DL_NULLEVENT
.Evt_Stp_type = DL_NULLEVENT
.Evt_Tim_type = DL_NULLEVENT
.Sel_chan_format = DL_tNATIVE
.Sel_chan_N = 1
.Sel_chan_start = 1
.Sel_buf_N = 0
.Res_Sta_ioValue = 19
.Refresh
End With
End
End Sub