这是一个修改硬盘物理地址的程序，我没有读懂这个程序，有哪位高手能够帮我把这个程序补全，使它能够正常运行．不盛感激！
unit Unit2;

interface

uses
  Classes,SysUtils,Windows,Variants,TLHELP32_Hss,unit1;

type
  crack = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;

  public
   procedure docrack;
  end;

implementation

{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure crack.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ crack }
function  FindMission(EXENAME:String):longint;// FProcessesID
var
Snapshot: TProcessList;
begin
    Snapshot:=TProcessList.Create();
    result:=Snapshot.GetProcessID(EXENAME);
    Snapshot.Free;
end;
function WriteValue(pid:longint;address:string;value:string):Dword;
var
LGet: Dword;
ValueAddress:pointer;
begin
    pid:=OpenProcess(PROCESS_ALL_ACCESS,False,pid);
    ValueAddress:=ptr(strtoint('$'+address));
    WriteProcessMemory(pid,ValueAddress,@value[1],length(value),LGet);
    result:=LGet;
end;
procedure crack.docrack;

var
p:longint;
begin
while true do
   begin
    p:=FindMission('sendsafe.exe');
    if p>0 then
     begin

//    WriteValue(p,'12F824','212487602000');//锁定硬盘物理序号
       WriteValue(p,'00164398','5BQ5MgAQGNw=');//锁定指纹
     end;

     end;

end;
procedure crack.Execute;

begin
    docrack
end;

end.
[em16][em16][em16]