Delphi 最小聲明程序（源代碼）

Delphi 最小聲明程序

 

program P1;   //  文件 P1.dpr

 

Procedure MessageBoxA(hWnd: LongInt; lpText, lpCaption: PChar; uType: LongInt); stdcall;
external 'user32.dll';

Function ShellAboutA(hwnd: LongInt; szApp, szStuff: PChar; hIcon: LongInt): LongInt; stdcall;

external 'shell32.dll';

 

begin

MessageBoxA(0, '版權所有 (C) 2010 zsmax2008', '歡迎', 1 or $40);

ShellAboutA(0, '“安達”IT 服務中心 Delphi 聲明小程序', '阿里旺旺：zsmax2008', 0)

end.