[笔记]delphi读出数据并转换

unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Inifiles, strutils, ExtCtrls;


type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Panel1: TPanel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;


implementation
 var
 myini:Tinifile;
{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z:string;
h:hwnd;
id,cunfang,shiji:dword;
jb:thandle;
begin
myini:=Tinifile.Create('d:\yzautomation_read.ini');
h:=findwindow('TSMCNCFrame',nil);
    getwindowthreadprocessid(h,id);//
    jb:=openprocess(process_vm_read, false,id);
    readprocessmemory(jb,pointer($7F6ADB14),@cunfang,4,shiji);
      label4.Caption:=floattostr(strtoint(inttostr(integer(cunfang)))/1000);       //从存放的地址取出来并显示
end;


end.