Artifact cdfb975c113a563c8631f1ac5ecf0d7a71506ec8:
0000: 69 6d 70 6f 72 74 20 63 6f 72 65 2e 72 75 6e 74 import core.runt
0010: 69 6d 65 3b 0a 69 6d 70 6f 72 74 20 77 69 6e 33 ime;.import win3
0020: 32 2e 77 69 6e 64 6f 77 73 3b 0a 69 6d 70 6f 72 2.windows;.impor
0030: 74 20 73 74 64 2e 73 74 64 69 6f 3b 0a 69 6d 70 t std.stdio;.imp
0040: 6f 72 74 20 73 74 64 2e 73 74 72 69 6e 67 3b 0a ort std.string;.
0050: 0a 61 6c 69 61 73 20 65 78 74 65 72 6e 28 57 69 .alias extern(Wi
0060: 6e 64 6f 77 73 29 20 69 6e 74 20 66 75 6e 63 74 ndows) int funct
0070: 69 6f 6e 28 20 48 57 4e 44 20 61 2c 20 69 6d 6d ion( HWND a, imm
0080: 75 74 61 62 6c 65 20 63 68 61 72 2a 20 62 2c 20 utable char* b,
0090: 63 68 61 72 2a 20 63 2c 20 44 57 4f 52 44 20 64 char* c, DWORD d
00a0: 20 29 20 43 6d 64 46 75 6e 63 54 3b 0a 0a 76 6f ) CmdFuncT;..vo
00b0: 69 64 20 6d 61 69 6e 28 29 0a 7b 0a 09 66 6f 72 id main().{..for
00c0: 28 3b 3b 29 20 7b 0a 09 09 77 72 69 74 65 28 22 (;;) {...write("
00d0: 3e 20 22 29 3b 0a 09 09 73 74 72 69 6e 67 20 73 > ");...string s
00e0: 20 3d 20 72 65 61 64 6c 6e 28 29 3b 0a 09 09 69 = readln();...i
00f0: 66 28 73 2e 6c 65 6e 67 74 68 20 3e 20 30 29 20 f(s.length > 0)
0100: 7b 0a 09 09 09 48 49 4e 53 54 41 4e 43 45 20 68 {....HINSTANCE h
0110: 20 3d 20 63 61 73 74 28 48 49 4e 53 54 41 4e 43 = cast(HINSTANC
0120: 45 29 20 52 75 6e 74 69 6d 65 2e 6c 6f 61 64 4c E) Runtime.loadL
0130: 69 62 72 61 72 79 28 22 51 42 67 61 33 32 2e 44 ibrary("QBga32.D
0140: 4c 4c 22 29 3b 0a 09 09 09 43 6d 64 46 75 6e 63 LL");....CmdFunc
0150: 54 20 42 67 61 20 3d 20 63 61 73 74 28 43 6d 64 T Bga = cast(Cmd
0160: 46 75 6e 63 54 29 47 65 74 50 72 6f 63 41 64 64 FuncT)GetProcAdd
0170: 72 65 73 73 28 68 2c 20 22 42 67 61 22 29 3b 0a ress(h, "Bga");.
0180: 09 09 09 69 6e 74 20 72 20 3d 20 42 67 61 28 4e ...int r = Bga(N
0190: 55 4c 4c 2c 20 73 2e 74 6f 53 74 72 69 6e 67 7a ULL, s.toStringz
01a0: 28 29 2c 20 6e 75 6c 6c 2c 20 30 29 3b 0a 09 09 (), null, 0);...
01b0: 09 52 75 6e 74 69 6d 65 2e 75 6e 6c 6f 61 64 4c .Runtime.unloadL
01c0: 69 62 72 61 72 79 28 68 29 3b 0a 09 09 09 77 72 ibrary(h);....wr
01d0: 69 74 65 6c 6e 28 22 52 65 74 75 72 6e 3a 20 22 iteln("Return: "
01e0: 2c 20 72 29 3b 0a 09 09 7d 0a 09 7d 0a 7d 0a , r);...}..}.}.