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.