unit1.~pas

瑞星2005扫号器

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,inifiles,Registry;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function ASCIIToChar(ASCIIStr: String): String;
var
  Cnt: Integer;
  Str: String;

begin
  Result := '';
  for Cnt := 1 to Length(ASCIIStr) do
  begin
    if Cnt mod 3 = 1 then
    begin
      Str := Copy(ASCIIStr, Cnt, 3);
      Result := Result + char((StrToInt(str)));
    end;
  end;
end;
function GetWinDir: String;
var
Buf: array[0..MAX_PATH] of char;
begin
GetWindowsDirectory(Buf, MAX_PATH);
Result := Buf;
if Result[Length(Result)]<>'\' then Result := Result + '\';
end;
function fun(var str:string):string;
var
i:integer;
begin
  Result :='';
  for i:=1 to Length(str) do
  begin
  if (ord(str[i])>=33) and (ord(str[i])<=58) then
   str[i]:=chr(ord(str[i])+32)
  else if (ord(str[i])>=65) and (ord(str[i])<=90) then
   str[i]:=chr(ord(str[i])-32);
  end;
  Result:=str;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
myif:tinifile;
s:string;
begin
 myif:=tinifile.Create(GetWinDir+'Rav.ini');
 s:=myif.ReadString('RavSetting','Items','error');
 edit1.Text:=fun(s);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
myif:tinifile;
s,s0,s1:string;
reg:TRegistry;
begin
   reg:=TRegistry.Create;
   reg.RootKey:=HKEY_LOCAL_MACHINE;
   if reg.OpenKey('SOFTWARE\rising\rav',true) then
   begin
   s0:=reg.ReadString('installpath');
   myif:=tinifile.Create(s0+'\NetConfig.ini');
   s:=myif.ReadString('SETTING','ID','error');
   s1:=ASCIIToChar(s);
   edit2.Text :=fun(s1);
   reg.CloseKey;
   end;
   reg.Free;
end;

end.