X
xebaobei
Unregistered / Unconfirmed
GUEST, unregistred user!
代码:
<br><br>//最开始调用这个函数！<br>procedure TRegistry.WriteString(const Name, Value: string);<br>begin<br> PutData(Name, PChar(Value), Length(Value)+1, rdString);<br>end;<br><br>procedure TRegistry.PutData(const Name: string; Buffer: Pointer;<br> BufSize: Integer; RegData: TRegDataType);<br>var<br> DataType: Integer;<br>begin<br> DataType := RegDataToDataType(RegData);<br> RegSetValueEx(CurrentKey, PChar(Name), 0, DataType, Buffer,BufSize)<br>end;<br><br>function TRegistry.RegSetValueEx(hKey: HKEY; lpValueName: PAnsiChar; Reserved: DWORD; dwType: DWORD; lpData: Pointer; cbData: DWORD): Longint; stdcall;<br>begin<br>//我想通过上边这些参数，取出来修改那个值，改成什么！在哪个路径下！<br>//怎么写,谢谢大家!<br>end;<br><br>
char;<br>//reg:TRegistry;<br>rtype:Longint;<br>RootKey,pHKEY:hKey;<br>RegDataLen:dword;<br>tp: array [0..255] of Char;<br>s:string;<br>tf:shfileopstruct;<br>begin<br> rtype:=REG_SZ;<br> RootKey:=HKEY_LOCAL_MACHINE;<br> s:='Software/Microsoft/Windows/CurrentVersion/Run';<br> if RegOpenKeyEx(RootKey,pchar(s),0,KEY_READ,phKey)=ERROR_SUCCESS then;<br> begin<br> RegDataLen:=256;<br> if RegQueryValueEx(phkey,'fun',nil,@rtype,PByte(@tp),@RegDataLen)&lt;&gt;ERROR_SUCCESS then<br> begin<br> // RegCloseKey(phKey);<br> RegOpenKeyEx(RootKey,pchar(s),0,KEY_WRITE,phkey);<br> s:=form1.edit1.Text+'/Project1.exe';<br> RegSetValueEx(phkey,'fun',0,REG_SZ,pchar(s),length(s));<br> RegCloseKey(phKey);<br> end;<br> end;<br>......