17 lines
623 B
Text
17 lines
623 B
Text
' Demonstrate a simple Windows application using FreeBasic
|
|
|
|
#include once "windows.bi"
|
|
|
|
Declare Function WinMain(ByVal hInst As HINSTANCE, _
|
|
ByVal hPrev As HINSTANCE, _
|
|
ByVal szCmdLine as String, _
|
|
ByVal iCmdShow As Integer) As Integer
|
|
End WinMain( GetModuleHandle( null ), null, Command( ), SW_NORMAL )
|
|
|
|
Function WinMain (ByVal hInst As HINSTANCE, _
|
|
ByVal hPrev As HINSTANCE, _
|
|
ByVal szCmdLine As String, _
|
|
ByVal iCmdShow As Integer) As Integer
|
|
MessageBox(NULL, "Goodbye World", "Goodbye World", MB_ICONINFORMATION)
|
|
function = 0
|
|
End Function
|