Sorry your browser is not supported!

Function dbInitGDK:Int( ) = "_dbInitGDK"

rogram Project1;

{APPTYPE CONSOLE}

uses
  windows,SysUtils,mmsystem;

function dbInitGDK:boolean;cdecl;external 'DarkGDK.dll' name '_dbInitGDK';
Function dbLoopGDK:boolean;cdecl;external 'DarkGDK.dll' name '_dbLoopGDK';
procedure dbMakeObjectCube(iID:integer;iSize:single);cdecl;external 'DarkGDK.dll' name '_dbMakeObjectCube';
procedure dbText(iX:integer;iY:Integer;szText:pchar);cdecl;external 'DarkGDK.dll' name '_dbText';
procedure dbSync;cdecl;external 'DarkGDK.dll' name '_dbSync';
procedure dbSyncOn;cdecl;external 'DarkGDK.dll' name '_dbSyncOn';
procedure dbSyncOff;cdecl;external 'DarkGDK.dll' name '_dbSyncOff';



begin
dbInitGDK;
dbSyncOn;

dbMakeObjectCube(1, 10);

While ( dbLoopGDK( ) ) do
begin
 
	dbText(0, 0, 'Hello World!');
 
	dbSync;
End;

void _dbInitGDK( void )
{
    WinMain(0, 0, 0, 0);
}