freepascal.compiler/tests/test/packages/webtbs/tw1808.pp

{ %target=win32 }

uses
  CommDlg;

var
  x : DWORD;
begin
  x:=CommDlgExtendedError;
end.