急！！！！！！！！！！！！！！！！！！！请问怎么将注册表信息写入?

[hgfdsa]

我想将关闭共享的注册表信息 net share c$ /del 的注册表信息写入机器
就是
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
里的字符串net share c$ /del
我已经导出了，但是怎么将这个注册表文件导入机器（用delphi6编写）

还有关闭端口 有相关的注册表信息吗?

[kuangning]

用TRegistry，uses Registry 单元。看帮助有列支

[MyCrooner]

声明一个TRegistry， 它有很多以write和read打头的方法， 根据类型就行了

[yjs_lh]

uses
..., ShellsApi;

ShellExec(...);

[microjuz]

没用过,学习ing:)

[zhuojohn]

procedure TMainFrm.GetFlagFromReg;
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey('\SOFTWARE\MySoftware',TRUE) then
begin
flag1:=reg.ReadString('FLAG1');
flag2:=reg.ReadString('FLAG2');
end;
end;

procedure TMainFrm.PutFlagToReg;
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey('\SOFTWARE\MySoftware',TRUE) then
begin
reg.WriteString('FLAG1',flag1);
reg.WriteString('FLAG2',flag2);
end
else
begin
reg.CreateKey('\SOFTWARE\MySoftWare');
reg.WriteString('FLAG1',flag1);
reg.WriteString('FLAG2',flag2);
end;
end;