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;

解决方案 »

  1.   

    楼上写的没错,就用TRegistry这个类,DELPHI在帮助中写的很清楚。
      

  2.   

    procedure TForm1.WMEndSession(var Message: TWMEndSession);0D怎么头一句就编译不过去呢 0D什么意思
      

  3.   

    [Error] Unit1.pas(86): Undeclared identifier: 'WMEndSession'
    出现这个错误
      

  4.   

    [Error] Unit1.pas(86): Undeclared identifier: 'WMEndSession'
    出现这个错误
      

  5.   

    被别人抢先了,没办法对楼上的解释一番吧
    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;
      

  6.   

    procedure TForm1.Button1Click(sender);
    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;
      

  7.   

    这个就可以
    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;
      

  8.   

    procedure TForm1.Button1Click(sender : Tobject);
    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;
      

  9.   

    Var RegF:TRegistry;
    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;