automatically closing program if condition is met

[Shawn Anderson]

I have a program that reads the value of command$.
If command$ is blank, I want to quit the program.
How do I do that?
I've tried

Code Select Expand


Function MAINFORM_WM_CREATE ( _
                            hWndForm As Dword, _  ' handle of Form
                            ByVal UserData As Long _  'optional user defined Long value
                            ) As Long                     
                           
Local clientID As String

clientID=Command$

If Trim$(clientID)="" Then
MsgBox "client ID not passed to NBSscan.exe",,$mTop   
MAINFORM_WM_Destroy (hWndForm)

End If

End Function   

but that doesn't work

[David Kenny]

Check Command$ in FF_WinMain (found in FireFly Workspace in the special functions folder).

Paul's comments in the routine tell you what to do if you want to exit the program.

Regards,

David

[Shawn Anderson]

that was it, thanks

[TechSupport]

David is spot on with his advice:

Code Select Expand


Function FF_WINMAIN( ByVal hInstance     As Dword, _
                     ByVal hPrevInstance As Dword, _
                     ByVal lpCmdLine     As Asciiz Ptr, _
                     ByVal iCmdShow      As Long ) As Long


   ' If this function returns TRUE (non-zero) then the actual WinMain will exit
   ' thus ending the program. You can do program initialization in this function.

   If Len(RTrim$(Command$)) = 0 Then
      Function = %TRUE
   End If
     
   ' Function = %FALSE    'return %TRUE if you want the program to end.

End Function