fpcsrc/tests/webtbs/tw8304.pp


1
2
3
4
5
6
7
8

{ %target=win32,win64 }
program Win64HINSTANCE;

{$C+}

begin
  Assert(HINSTANCE <> 0, 'HINSTANCE is zero.');
end.