5,388
社区成员
发帖
与我相关
我的任务
分享如何把Pointer中存放的地址转换成integer
写了个改变Nt下面环境变量的小函数,
var
Registry: TRegistry;
OriginPath, Env: string;
address: integer;
begin
Registry := TRegistry.Create();
with Registry do
begin
RootKey := HKey_Local_Machine;
OpenKey('SYSTEM\CurrentControlSet\Control\Session Manager\Environment\',
false);
OriginPath := ReadString('Path');
OriginPath := FOraHome + '\bin;' + OriginPath;
WriteString('Path', OriginPath);
end;
Env := 'Environment';
address := @Env;
//下面的函数因为类型转换问题,无法编译.
// SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, @Env);
end;
var
Registry: TRegistry;
OriginPath, Env: string;
address: integer;
begin
Registry := TRegistry.Create();
with Registry do
begin
RootKey := HKey_Local_Machine;
OpenKey('SYSTEM\CurrentControlSet\Control\Session Manager\Environment\',
false);
OriginPath := ReadString('Path');
OriginPath := FOraHome + '\bin;' + OriginPath;
WriteString('Path', OriginPath);
end;
Env := 'Environment';
address := @Env;
//下面的函数因为类型转换问题,无法编译.
// SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, @Env);
end;
...全文
请发表友善的回复…
发表回复
copy_paste 2002-08-13
- 打赏
- 举报
SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, integer(@Env[1]));
s :=pchar(msg.wparam);
s :=pchar(msg.wparam);
copy_paste 2002-08-13
- 打赏
- 举报
SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, integer(@Env));
dead_lee 2002-08-13
- 打赏
- 举报
谢谢各位,分数不多,请原谅...
assignment to ‘float *’ from ‘int’ makes pointer from integer without a cast [-Wint-conversion]指针类型错