minimumexe.dpr

来自「delphi开发语言下的源代码分析」· DPR 代码 · 共 13 行

//示例程序。目标文件为3584 Bytes
program MiniDExe;

function ShowMessageBox(hWnd: LongWord; lpText, lpCaption: PChar; uType: LongWord): Integer;
  stdcall; external user32 name 'MessageBoxA';

const
  MB_ICONINFORMATION = $00000040;

begin
  ShowMessageBox(0, 'Written in pure Delphi!', 'Hello World!', MB_ICONINFORMATION);
end.