PureBasic Forums - English

if you want to see Hello World!... try this hack


hw.s=programparameter(0)
if not hw.s
hw.s="Hello World!"
endif

ProcedureDLL ConsoleWrite(t.s)
stdout=GetStdHandle_(#STD_OUTPUT_HANDLE)
written.l
msg.s=t.s+Chr(13)+Chr(10)
size.l=Len(msg.s)
res=WriteFile_(stdout,@msg.s,size, @written, #Null)
res ...

a little update:



Structure STRPROCENTRY
lpProcAddress.l
szProcName.s
EndStructure

Global NewList SG_Procedures.STRPROCENTRY()

ProcedureDLL SG_CallProc(szName.s)
Shared SG_Procedures.STRPROCENTRY()
ForEach SG_Procedures()
If LCase(szName) = SG_Procedures()\szProcName
CallFunctionFast(SG ...