program launcher

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

jrthom

Jake,

Import PUB.FreeProcess 

Local proc:TProcess

proc=TProcess.Create("Notepad",0)

While proc.Status()
Wend

Works like a charm. Thanks.

Combining it with the UI,

'Source Code created on 22 Sep 2007 21:46:06 with Logic Gui Version 2.2 Build 262
'John Doe
'Start of external Header File
SuperStrict

'End Of external Header File

Import PUB.FreeProcess
Local Logic_Gui:TGadget = CreateWindow:TGadget("Logic_Gui",240,51,665,513,Null,WINDOW_TITLEBAR|WINDOW_RESIZABLE |WINDOW_MENU |WINDOW_STATUS |WINDOW_CLIENTCOORDS )
Local Button1:TGadget = CreateButton:TGadget("Button1",71,85,75,23,Logic_Gui:TGadget,BUTTON_PUSH)

Repeat
WaitEvent()
Select EventID()
Case EVENT_WINDOWCLOSE
Select EventSource()
Case Logic_Gui Logic_Gui_WC( Logic_Gui:TGadget )
End Select

Case EVENT_GADGETACTION
Select EventSource()
Case Button1 Button1_GA( Button1:TGadget )
End Select

End Select
Forever

Function Logic_Gui_WC( Window:TGadget )
DebugLog "Window Logic_Gui wants to be closed"
' HideGadget( Window:TGadget )

End
End Function

Function Button1_GA( Button:TGadget )
Local proc:TProcess

proc=TProcess.Create("Notepad",0)

While proc.Status()
Wend



End Function

'Start of external Append File
'Your additional code should be here!

'End Of external Append File

Also works. Clicking on the button launches the file and the file remains. This was what I was in need of. Now, all I have to do is to code 3 other items in this launcher and give it an icon.

Thanks again.