config.dpr

来自「DEILPHI写的QQ安全软件源码!功能全套,该有的全有了,欢迎交流」· DPR 代码 · 共 36 行

program Config;

uses
  Forms,
  Windows,
  FormUnit in 'FormUnit.pas' {MainForm},
  ExtInfo in 'ExtInfo.pas',
  Encrypt in 'Encrypt.pas',
  UPX in 'UPX.pas';

{$R *.res}

var
 // RegForm: TRegForm;
  ComputerName: array[0..50] of Char;
  Size: Cardinal;
begin
  Application.Initialize;

 { Size := 50;
  GetComputerName(ComputerName, Size);
  ComputerName[Size] := #0;

  if (ComputerName <> 'LULU') then
  begin
    RegForm := TRegForm.Create(Application);
    RegForm.ShowModal;
    RegForm.Destroy;

    if PassCheck then Exit;
  end;}

  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.