uses Registry;
procedure TForm1.WMEndSession(var Message: TWMEndSession);0D
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\...', True) then
begin
Reg.WriteString('MyApp','"' + ParamStr(0) + '"');
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;end;
procedure TForm1.WMEndSession(var Message: TWMEndSession);0D
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\...', True) then
begin
Reg.WriteString('MyApp','"' + ParamStr(0) + '"');
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;end;
解决方案 »
- TreeView如何動態調用form
- 欢迎应届毕业生加盟网天科技,成就人生价值!
- BS结构问题?
- socket中为什么在clientsocket中执行了socket.sendbuf之后,服务端的SocketClientRead事件不被激发?
- 删除数据库中的表?
- 急,高分相送!
- Delphi 6.0 里自带BDE是5.01 而installshield 自带的BDE是5.11,请问是否兼容?我用installshield 6.22做安装程序时为何不能正确安装(已
- 我的程序在局域网既可以运行,怎么把它放到广域网里
- ==关于TBlobField字段的问题???急=====
- 我控制EXCEL列宽时使用ExcelWorksheet1.Columns[1].ColumnWidth := 10 ;为什么不可以?!!!还请各信大侠指点!!!
- delphi6中对word操作的一个问题?
- 如何在状态栏插入ico图标?
出现这个错误
出现这个错误
uses Registry; //使用注册表必须加这个
procedure TForm1.WMEndSession(var Message: TWMEndSession);0D
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER; //所要打开注册表的根键
if Reg.OpenKey('\Software\...', True) then//打开开根键下的一个子键,true是若无该子键,则创建该子键,若为false则不创建
begin
Reg.WriteString('MyApp','"' + ParamStr(0) + '"');//写入内容为字符串类型,若是被的类型可把string换成别的
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;end;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunOnce', True) then
begin
Reg.WriteString('MyApp','"' + ParamStr(0) + '"');
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;end;
uses Registry;
procedure TForm1.WMEndSession(var Message: TWMEndSession);0D
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\...', True) then
begin
Reg.WriteString('MyApp','"' + ParamStr(0) + '"');
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;end;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunOnce', True) then
begin
Reg.WriteString('MyApp','"' + ParamStr(0) + '"');
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;end;
begin
RegF:=TRegistry.Create;
RegF.RootKey:=HKEY_LOCAL_MACHINE;
try
RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
RegF.WriteString('MyProg', "Mypr-og.exe"');
except
...
End; {try}
RegF.Close;
RegF.Free;
end;