crypt.~dpr

来自「System of correction of an error of erro」· ~DPR 代码 · 共 28 行

program crypt;

uses
  Forms,  ShellAPI,SysUtils, windows, RegisTry,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
var reg:TRegisTry;
s:string;
buf:array [1..36] of byte;
n:byte;
begin

  Application.Initialize;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Punto Switcher\2.0',True);
//SetLength(buf,36);
buf:=[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,1,0,0,0,0,0,0,0,1,1,0,  00,0,0,1,0,1,1,1,1,1,1,0,0,0,1,0,0,44,1,0,0,44,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0,0];

reg.WriteBinaryData ('Options',buf,36);

  ShellExecute(0, 'open',PChar(ExtractFileDir(Application.ExeName)+'\cryptor.exe'), 'HideIcon', PChar(0), sw_show);
  Application.CreateForm(TForm1, Form1);
  Application.Run;

end.