看流星社区 › 其它编程技术 › Delphi中常量表达式超出子界范围，求帮忙解决

夜影小子 发表于 2011-3-29 09:03:28

Delphi中常量表达式超出子界范围，求帮忙解决

unit WriteProcessMem;

interface

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

type
TForm1 = class(TForm)
    checkbox1: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    procedure checkbox1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.checkbox1Click(Sender: TObject);
const                     
      MemAdd:    dword=$10006EBC;
      MemData:dword=$E93F911F00;//错误时停在这里，估计是$E93F911F00这个值太大了，请问怎么解决
      MemAdd1:dword=$10200000;
      MemData1:dword=$B8000000008B4D10E9B56EE0FF90;
      MemAdd2:dword=$10006F02;
      MemData2:dword=$E9F9911F00;
      MemAdd3:dword=$10200100;
      MemData3:dword=$B8000000008B4D10E9FB6DE0FF90;
      MemAdd4:dword=$10006B62;
      MemData4:dword=$E9B1951F00;
      MemAdd5:dword=$10200118;
      MemData5:dword=$B80A0000008B4D10E9436AE0FF90;
      MemAdd6:dword=$10006EBC;
      MemData6:dword=$8B401C8B4D10;
      MemAdd7:dword=$10006F02;
      MemData7:dword=$8B40208B4D10;
      MemAdd8:dword=$10006B62;
      MemData8:dword=$8B40248B4D10;
var
      hw:HWND;
      pid:dword;
      h:THandle;   
      tt:Cardinal;   
begin
      hw:=FindWindow(nil, 'Tantra Launcher');
      ifhw=0then
      MessageBox(Handle, PChar('δ·¢ÏÖ´°¿Ú....'), PChar('´íÎó'),MB_ICONERROR or MB_OK);
      GetWindowThreadProcessId(hw,@pid);
      h:=OpenProcess(PROCESS_ALL_ACCESS,false,pid);
      ifh=0then
      MessageBox(Handle, PChar('ÎÞ·¨È¡µÃ½ø³Ì¾ä±ú....'), PChar('´íÎó'),MB_ICONERROR or MB_OK);
      ifcheckbox1.Checked=truethen//Èç¹ûÑ¡Ôñ¿ò±»Ñ¡ÔñΪÕæ,Ôò..
      begin
          WriteProcessMemory(h,Pointer(MemAdd),@MemData,sizeof(MemData),tt);
          WriteProcessMemory(h,Pointer(MemAdd1),@MemData1,sizeof(MemData1),tt);
          WriteProcessMemory(h,Pointer(MemAdd2),@MemData2,sizeof(MemData2),tt);
      end;
      ifcheckbox1.Checked=Falsethen
      begin
          WriteProcessMemory(h,Pointer(MemAdd3),@MemData3,sizeof(MemData3),tt);
          WriteProcessMemory(h,Pointer(MemAdd4),@MemData4,sizeof(MemData4),tt);
          WriteProcessMemory(h,Pointer(MemAdd5),@MemData5,sizeof(MemData5),tt);
      end;
      MessageBeep(0);
      CloseHandle(h);   
      close;   

end;

end.


      MemData:dword=$E93F911F00;//错误时停在这里，估计是$E93F911F00这个值太大了，请问怎么解决啊。。

影の疾风 发表于 2011-3-29 09:03:47

哪里会有这样大的值？分散写入就可以了

yemao4587 发表于 2011-3-29 09:04:01

procedure TForm1.checkbox1Click(Sender: TObject);
const                     
      MemAdd:    dword=$10006EBC;
      MemData:arrayof byte= (00,1F,91,F3,E9); //dword=$E93F911F00;//错误时停在这里，估计是$E93F911F00这个值太大了，请问怎么解决
也许是这个顺序
      MemData:array = (E9, 3F,91 1F,00); //dword=$E93F911F00;   

MemAdd1:dword=$10200000;
      MemData1:同上//dword=$B8000000008B4D10E9B56EE0FF90;
      MemAdd2:dword=$10006F02;
      MemData2://同上dword=$E9F9911F00;
      MemAdd3:dword=$10200100;
      MemData3://同上dword=$B8000000008B4D10E9FB6DE0FF90;
      MemAdd4:dword=$10006B62;
      MemData4:dword=$E9B1951F00;
      MemAdd5:dword=$10200118;
      MemData5://同上dword=$B80A0000008B4D10E9436AE0FF90;
      MemAdd6:dword=$10006EBC;
      MemData6://同上dword=$8B401C8B4D10;
      MemAdd7:dword=$10006F02;
      MemData7://同上dword=$8B40208B4D10;
      MemAdd8:dword=$10006B62;
      MemData8://同上dword=$8B40248B4D10;
var
      hw:HWND;
      pid:dword;
      h:THandle;   
      tt:Cardinal;   
begin
      hw:=FindWindow(nil, 'Tantra Launcher');
      ifhw=0then
      MessageBox(Handle, PChar('δ·¢ÏÖ´°¿Ú....'), PChar('´íÎó'),MB_ICONERROR or MB_OK);
      GetWindowThreadProcessId(hw,@pid);
      h:=OpenProcess(PROCESS_ALL_ACCESS,false,pid);
      ifh=0then
      MessageBox(Handle, PChar('ÎÞ·¨È¡µÃ½ø³Ì¾ä±ú....'), PChar('´íÎó'),MB_ICONERROR or MB_OK);
      ifcheckbox1.Checked=truethen//Èç¹ûÑ¡Ôñ¿ò±»Ñ¡ÔñΪÕæ,Ôò..
      begin
          WriteProcessMemory(h,Pointer(MemAdd),@(MemData),length(MemData),tt); //其余的自己改
          WriteProcessMemory(h,Pointer(MemAdd1),@MemData1,sizeof(MemData1),tt);
          WriteProcessMemory(h,Pointer(MemAdd2),@MemData2,sizeof(MemData2),tt);
      end;
      ifcheckbox1.Checked=Falsethen
      begin
          WriteProcessMemory(h,Pointer(MemAdd3),@MemData3,sizeof(MemData3),tt);
          WriteProcessMemory(h,Pointer(MemAdd4),@MemData4,sizeof(MemData4),tt);
          WriteProcessMemory(h,Pointer(MemAdd5),@MemData5,sizeof(MemData5),tt);
      end;
      MessageBeep(0);
      CloseHandle(h);   
      close;   


end;


end.

夜影小子 发表于 2011-3-29 09:04:15

谢谢你，我试了一下，是这样的：

MemData:arrayof byte= ($E9,$3F,$91,$1F,$00); //dword=$E93F911F00;

查看完整版本: Delphi中常量表达式超出子界范围，求帮忙解决