cyupdate.~dpr

来自「delphi开发的自动更新程序」· ~DPR 代码 · 共 39 行

program CYUpdate;

uses
  Forms,
  windows, registry,
  MainUnit in 'MainUnit.pas' {MainForm},
  AboutUnit in 'AboutUnit.pas' {AboutForm};

{$R *.res}

var
  Reg:Tregistry;
  KeyName:string;
begin
  try
    //创建注册表，有该键则读取，无则创建
    Reg:=TRegistry.Create ;
    Reg.RootKey :=hkey_local_machine;
          {------------开机自动运行设置----------------}
          if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True) then
          begin
            Reg.DeleteValue('Refrash');
            Reg.WriteString('CYUpdate','"' + ParamStr(0) + '"');
          end;
    reg.CloseKey ;
  finally
  reg.Free ;
  end;


 if FindWindow('CYUpdate',nil) > 0 then exit;
   //if FindWindow('MYWNDNAME',nil) > 0 then exit;
  Application.Initialize;
  Application.Title := 'CYUpdate';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TAboutForm, AboutForm);
  Application.Run;
end.