社区
Delphi
帖子详情
如果读写注册表,以及如何显示系统信息?
szkxy
2002-05-10 04:03:58
如果读写注册表,以及如何显示系统信息?如操作系统名称及版本,还有可能物理内存,就像Windows的关于对话框显示的一样
...全文
42
3
打赏
收藏
如果读写注册表,以及如何显示系统信息?
如果读写注册表,以及如何显示系统信息?如操作系统名称及版本,还有可能物理内存,就像Windows的关于对话框显示的一样
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
szkxy
2002-05-10
打赏
举报
回复
GetSystemInfo 系统信息
GetWindowsDirectory
GetEnvironmentStrings
GlobalMemoryStatus
怎样使用?
erp2
2002-05-10
打赏
举报
回复
Registry.
taidy
2002-05-10
打赏
举报
回复
GetSystemInfo 系统信息
GetWindowsDirectory
GetEnvironmentStrings
GlobalMemoryStatus
2、用TRegIniFile,TRegistry
3、可以用TStrings.Text写入
下面是Delphi的例子:
unit reginid;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Registry;
type
TRegIniForm = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
CheckBox_Write: TCheckBox;
RadioGroup_Write: TRadioGroup;
Edit_Write: TEdit;
GroupBox2: TGroupBox;
Label3: TLabel;
CheckBox_Read: TCheckBox;
RadioGroup_Read: TRadioGroup;
Edit_Read: TEdit;
Memo_Read: TMemo;
Button_Write: TButton;
Button_Read: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button_WriteClick(Sender: TObject);
procedure Button_ReadClick(Sender: TObject);
procedure CheckBox_ReadClick(Sender: TObject);
procedure RadioGroup_ReadClick(Sender: TObject);
private
{ Private declarations }
procedure Read_Registry;
procedure Write_Registry;
public
{ Public declarations }
FIniFile: TRegIniFile;
end;
var
RegIniForm: TRegIniForm;
implementation
{$R *.DFM}
const
SECTION = 'Sample';
procedure TRegIniForm.FormCreate(Sender: TObject);
begin
FIniFile := TRegIniFile.Create('Sample Registry');
end;
procedure TRegIniForm.FormDestroy(Sender: TObject);
var
Cleanup: TRegistry;
key: string;
begin
key := FIniFile.FileName;
FIniFile.Free;
// make sure we don't leave junk in the registry behind.
Cleanup := TRegistry.Create;
try
Cleanup.DeleteKey(key);
finally
Cleanup.Free;
end;
end;
procedure TRegIniForm.Write_Registry;
begin
FIniFile.WriteBool(SECTION, 'BooleanTest', CheckBox_Write.Checked);
FIniFile.WriteInteger(SECTION, 'IntegerTest', RadioGroup_Write.ItemIndex);
FIniFile.WriteString(SECTION, 'StringTest', Edit_Write.Text);
if not Button_Read.Enabled then Button_Read.Enabled := True;
end;
procedure TRegIniForm.Read_Registry;
begin
CheckBox_Read.Checked := FIniFile.ReadBool(SECTION, 'BooleanTest', False);
RadioGroup_Read.ItemIndex := FIniFile.ReadInteger(SECTION, 'IntegerTest', 0);
Edit_Read.Text := FIniFile.ReadString(SECTION, 'StringTest', '');
Memo_Read.Lines.Clear;
FIniFile.ReadSectionValues(SECTION, Memo_Read.Lines);
Button_Read.Enabled := False;
end;
procedure TRegIniForm.Button_WriteClick(Sender: TObject);
begin
Write_Registry;
end;
procedure TRegIniForm.Button_ReadClick(Sender: TObject);
begin
Read_Registry;
end;
procedure TRegIniForm.CheckBox_ReadClick(Sender: TObject);
begin
Read_Registry;
end;
procedure TRegIniForm.RadioGroup_ReadClick(Sender: TObject);
begin
Read_Registry;
end;
end.
一个简易的
注册表
监控,可以
显示
别人
读写
注册表
的内容
在Windows中,
系统
提供了大量的API供开发者使用,其中包括用于
读写
注册表
的API,如`RegOpenKeyEx`、`RegQueryValueEx`、`RegSetValueEx`等。 在本项目中,开发者利用了这些API的特性,进行了所谓的"Hook"技术。Hook...
注册表
读写
实时监控
本文将深入探讨“
注册表
读写
实时监控”这一主题,以及如何利用工具进行有效的监控。 ###
注册表
的基本概念 1. **
注册表
结构**:
注册表
由多个分段(Hives)组成,如HKEY_LOCAL_MACHINE(本地机器)、HKEY_CURRENT_...
Windebug调试工具
它以其丰富的功能、灵活的操作以及对底层
系统
行为的深入洞察,深受软件开发者、
系统
管理员和故障排查专家的青睐。 ### 1. WinDebug的基础概念 WinDebug是一种命令行工具,它提供了图形用户界面(GUI)模式和命令行...
精通Windows.API-函数、接口、编程实例.pdf
10.1.5 处理
系统
颜色
信息
、尺度
信息
等 284 10.1.6 鼠标、键盘等外设
信息
285 10.2 时间
信息
286 10.2.1 设置、获取
系统
时间 286 10.2.2 获取开机至现在持续的时间 287 10.2.3 文件时间与
系统
时间的转换 ...
TF卡修复工具(很好用的小工具,我们再也不被小T难倒了)
在描述中提到,“修复TF卡的小工具,只要打开后,看到status——ready,write——ready,就可以修复了”,这表明该工具在启动后,当状态
显示
为“准备就绪”(ready),
读写
功能也都正常时,用户可以进行修复操作。...
Delphi
5,927
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章