checkcrc.dpr

CRC校验算法 CRC校验算法 CRC校验算法 CRC校验算法

program CheckCRC;

uses
  Forms,
  Registry,
  Dialogs,
  Windows,
  SysUtils,
  Unit1 in 'Unit1.pas' {Form1},
  crc32 in 'crc\crc32.pas';

{$R *.RES}

var
  Reg: TRegistry;
begin
  Application.Initialize;
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  if ParamStr(1) = '/uninstall' then 
  begin
    Reg.DeleteKey('\SOFTWARE\Classes\*\shell\CRC32');
    Reg.DeleteKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\CheckCRC');
    MessageDlg('You must manually delete ' + ParamStr(0) +
               ' to remove CheckCRC completely from your system.',mtWarning,[mbOK],0);
    Reg.CloseKey;
    Reg.Free;
    Exit;
  end;
  if Reg.OpenKey('\SOFTWARE\Classes\*\shell\CRC32\command',True) then
    Reg.WriteString('','"' + ParamStr(0) + '" "%1"');
  if Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\CheckCRC',True) then
  begin
    Reg.WriteString('DisplayName','CRC32 Calculator - CheckCRC');
    Reg.WriteString('UninstallString',ParamStr(0) + ' /uninstall');
  end;
  Reg.CloseKey;
  Reg.Free;
  Form1.Show;
  if (ParamCount > 0) and FileExists(ParamStr(1)) then
    Form1.AnalyzeFile(ParamStr(1));
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.