regedit_pas.pas

来自「delphi6.0电子寻更源程序,用来计算保安有无查抄」· PAS 代码 · 共 37 行

unit regedit_pas;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls,Db, DBTables, DBGrids, Grids, Registry,FileCtrl;
function sys_setup:integer;
implementation
function  sys_setup:integer;
var
  reg: TRegistry;
  a:string;
  begin
  result:=0;
  reg:=Tregistry.create;
  try
  reg.rootkey:=HKEY_CLASSES_ROOT;
  if reg.keyexists('\Software\Microsoft\hdzdhxt') then
    begin
      reg.OpenKey('\Software\Microsoft\hdzdhxt',False);
      a:=reg.ReadString('Value');
      reg.closekey;
    end
  else
    begin
      Application.MessageBox('你現在使用的軟體是盜版軟體，請使用正版軟體','消息',MB_ICONINFORMATION);
      Application.Terminate;
      exit;
  end;
  finally
  end;
 if a ='hdzdhxt' then
 result:=1
 else
 Application.MessageBox('你現在使用的軟體是盜版軟體，請使用正版軟體','消息',MB_ICONINFORMATION);
end;
end.