unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, BusinessSkinForm, bsSkinData;    type
  TCandyFrm = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    ComboBox1: TComboBox;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinData1: TbsSkinData;
    bsStoredSkin1: TbsStoredSkin;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  CandyFrm: TCandyFrm;
  RoHandle,RoWinHWN:THandle;    implementation    {$R *.dfm}    procedure TCandyFrm.Button1Click(Sender: TObject);
begin
CandyFrm.FormStyle:=fsStayOnTop;
if Button1.Caption='開始' then begin
 Timer1.Enabled:=True;
 Button1.Caption:='關閉';
end else begin
 Button1.Caption:='開始';
 Timer1.Enabled:=False;
end;
end;    procedure TCandyFrm.Timer1Timer(Sender: TObject);
var
AProcessID: DWORD;
WCount:DWord;
NowHp:Word;
Hpbyte:Byte;
begin
RoWinHwn:=FindWindow(nil,'Ragnarok');
GetWindowThreadProcessId(RoWinHwn, @AProcessID);//取得記憶體進程id
RoHandle:=openprocess(PROCESS_VM_READ,false,AProcessID);//要求打開拜訪行程
ReadProcessMemory(RoHandle,Pointer($70E70C),@HpByte,1,WCount);//讀取記憶體內容
ReadProcessMemory(RoHandle,Pointer($0070E782 HpByte*4),@NowHp,2,WCount);//讀取記憶體內容
if NowHp
由於控件上有使用到skin的元件 請大大把其改回一般元件即可
對於ro 的記憶體配置及引法請參考各大遊戲論壇    搞不懂!搞不懂!永遠都搞不懂!!