Vista下如何操作注册表 ( 积分: 20 )

zzyun · 2007-04-12

哈哈sy0116老兄你也太牛了啊，呵呵，其实你的想法很好的，不过实施起来很有难度的。还有你说的那个manifest有效，不知道怎么在我这边不可以的啊。 呵呵

sy0116 · 2007-04-12

关于多次点击会出错的问题我也不清楚了，我稍微改了一下代码，把第一句改成 GetMem(info,32);发现点击17次就出错，而按原来的写法点击11次就出错，改成GetMem(info,128);或GetMem(info,256);后就没出错了，我一直按着回车键几分钟也没出错，具体原因请高手解释

sy0116 · 2007-04-12

注入的方法应该很难搞定了,我试了一个简单的: 先启动regedit.exe，然后用HOOK钩它，结果根本挂不上，用Spy++也看不到她的任何消息 还是用CodeGear给出的办法最简单

域 · 2007-04-13

to zzyun，是哪个键？我帮你测试一下看看。 to sy0116 请问你的manifest文件怎么写的？能不能贴一下，怎么我写的无论是编译进exe还是同名加.manifest和exe放在一起都不起作用？

zzyun · 2007-04-13

to:域 不是测试哪个键吧，我要求的是操作VISTA的注册表来得到PC的CPU名字。

域 · 2007-04-13

成功读取！ 就是个权限问题，以管理员身份运行一点问题都没有。 效果图及代码在这里： http://china.wisedocmanager.com/article.asp?id=21

域 · 2007-04-13

对了，manifest文件的问题已经解决了，原来我编译时没有让d7 run as administrator,低级错误，汗...

zzyun · 2007-04-13

to:各位仁兄 该问题解决了，也该结帖了，只有20分希望各位谅解。呵呵 sy0116兄的那个问题如有人能解决，本人将另开窗口派分啊。 呵呵。

zzyun · 2007-04-13

多人接受答案了。

域 · 2007-04-13

to sy0116： 你好象没有FreeMem吧？这样多次点击后缓冲溢出，肯定要出错

zzyun · 2007-04-13

to 域: function getcpu

Char;stdcall; var   reg:HKEY;   size

DWORD;   info

Byte; begin   GetMem(info,256);   GetMem(size,SizeOf(pdword));   size^:=64;   RegOpenKeyEx(HKEY_LOCAL_MACHINE,PChar('HARDWARE/DESCRIPTION/System/CentralProcessor/0'),0,KEY_QUERY_VALUE,reg);   RegQueryValueEx(reg,PChar('ProcessorNameString'),nil,nil,Pbyte(info),@Size);   Result:=PChar(info);   RegCloseKey(reg); end; procedure TForm1.Button1Click(Sender: TObject); begin   ShowMessage(getcpu); end;   我们不停的点Button，试了大楷2分钟左右也没报什么错的。你认为可能会益出，那应该怎么改？呵呵

ufo · 2007-04-13

看了一下 sy0116的代码，确实没有释放内存。 不过，没释放内存应该不会马上出错，只会导致内存泄露，累计后出现内存不足错误。 我估计sy0116的错误可能是由于申请的内存过小，拷贝进来的数据超出，导致内存溢出引起错误。

zzyun · 2007-04-13

to:ufo! 我和sy0116也讨论过，也怀疑是因为这个原因导致的。将以前的64改为了256后我们试了几分钟都没报错的，如果按照你的说法来看，长时间使用还是会报错的？ 给我的感觉是这个释放内存不是很好加进去的。呵呵

ufo · 2007-04-13

改成这样看看： var   reg:HKEY;   size:integer;   info:AnsiString; begin   size:=MAX_PATH;   SetLength(info,MAX_PATH+1);      RegOpenKeyEx(HKEY_LOCAL_MACHINE,PChar('HARDWARE/DESCRIPTION/System/CentralProcessor/0'),0,KEY_QUERY_VALUE,reg);   RegQueryValueEx(reg,PChar('ProcessorNameString'),nil,nil,Pbyte(info),@Size);   Result:=copy(info,1,size-1);   RegCloseKey(reg); end;

ufo · 2007-04-13

getmem和freemem要配套使用，否则会导致内存泄漏。 AnsiString类型的内存分配和释放会由delphi的内存管理器负责。

zzyun · 2007-04-13

to ufo!: 你的那段代码我刚才测试了一下是可以的。 你所说的getmem和freemem要配套使用，我在sy0116的代码中测试了一下好象还是有点问题的。 function getcpu

Char;stdcall; var   reg:HKEY;   size

DWORD;   info

Byte; begin   GetMem(info,64);   GetMem(size,SizeOf(pdword));   size^:=64;   try     RegOpenKeyEx(HKEY_LOCAL_MACHINE,PChar('HARDWARE/DESCRIPTION/System/CentralProcessor/0'),0,KEY_QUERY_VALUE,reg);     RegQueryValueEx(reg,PChar('ProcessorNameString'),nil,nil,Pbyte(info),@Size);   finally     freemem(size);     freemem(info);   end;   Result:=PChar(info);   RegCloseKey(reg); end; procedure TForm1.Button1Click(Sender: TObject); begin   showmessage(getcpu); end; end.

ufo · 2007-04-13

你如果不需要在dll里面用，那么就用我修改的代码吧，函数直接返回string类型就可以了。 sy0116的代码  finally     freemem(size);     freemem(info); //此处已经释放了内存   end;   Result:=PChar(info); //再调用已经释放的内存，出错   RegCloseKey(reg); 如果你要在dll内使用，试试这样： function getcpu

Char;stdcall; var   reg:HKEY;   size:integer;   info

Byte; begin   GetMem(info,256);   size:=256;   try     RegOpenKeyEx(HKEY_LOCAL_MACHINE,PChar('HARDWARE/DESCRIPTION/System/CentralProcessor/0'),0,KEY_QUERY_VALUE,reg);     RegQueryValueEx(reg,PChar('ProcessorNameString'),nil,nil,Pbyte(info),@Size);   finally     //freemem(size);     //freemem(info);   end;   Result:=PChar(info);   RegCloseKey(reg); end; procedure TForm1.Button1Click(Sender: TObject); var ss: pchar; begin  ss:= getcpu; showmessage(ss);  freemem(ss);    end;

ufo · 2007-04-13

另外还有一个常用方法，就是在主程序中申请内存，然后把指针和size作为参数传入dll，调用dll内的函数后释放申请的内存。 呵呵，一个简单的例子，就是你调用RegQueryValueEx函数的方式，就需要你预先申请内存，调用函数后再释放内存。 同样的，你可以把这个申请内存和释放内存的操作放到主程序中做。然后getcpu改成这个类型 getcpu(info: PByte;size:integer):boolean;

zzyun · 2007-04-13

呵呵，老兄们，你们都好牛啊。

zzyun · 2007-06-18

procedure TCtrlFrm.Button4Click(Sender: TObject); var   i: integer;   lphkey:Hkey;   sKeyName:String;   sKeyValue:String;   sValue:String; begin   sKeyName:='software/nike/0';   sValue:=Application.ExeName;   RegCreateKey(HKey_Local_Machine,PChar(sKeyName),lphkey);   RegOpenKeyEx(HKEY_LOCAL_MACHINE,PChar(sKeyName),0,KEY_WRITE,lphkey);   i:= RegSetValueEx(lphkey,'Exepath',0,reg_sz,PChar(sValue),length(sValue));   showmessage(inttostr(i)); end; 用这种方法居然写不到VISTA的注册表中，还请各位新朋老友帮忙看看咯。

Vista下如何操作注册表 ( 积分: 20 )

zzyun

Unregistered / Unconfirmed

sy0116

Unregistered / Unconfirmed

sy0116

Unregistered / Unconfirmed

域

Unregistered / Unconfirmed

zzyun

Unregistered / Unconfirmed

域

Unregistered / Unconfirmed

域

Unregistered / Unconfirmed

zzyun

Unregistered / Unconfirmed

zzyun

Unregistered / Unconfirmed

域

Unregistered / Unconfirmed

zzyun

Unregistered / Unconfirmed

ufo

Unregistered / Unconfirmed

zzyun

Unregistered / Unconfirmed

ufo

Unregistered / Unconfirmed

ufo

Unregistered / Unconfirmed

zzyun

Unregistered / Unconfirmed

ufo

Unregistered / Unconfirmed

ufo

Unregistered / Unconfirmed

zzyun

Unregistered / Unconfirmed

zzyun

Unregistered / Unconfirmed

Similar threads