И снова надпись на кнопке ПУСК

[misher]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sEdit, sSkinManager, sLabel, Registry;

type
  TForm1 = class(TForm)
    Button1: TButton;
    sSkinManager1: TsSkinManager;
    sEdit1: TsEdit;
    sLabel1: TsLabel;
    procedure Button1Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 but: hwnd;
 ff: string;
 RegIni:TRegIniFile;
begin
ff:=(sEdit1.Text);
  but:=FindWindowEx(FindWindow('shell_traywnd',nil),0,'button',nil);
  MoveWindow(but,0,0,100,30,true);
  SendMessage(but,wm_settext,0,lparam(ff)); /
  RegIni:=TRegIniFile.Create('Software');
  RegIni.RootKey:=HKEY_LOCAL_MACHINE;
  RegIni.OpenKey('Software', true);
  RegIni.OpenKey('Microsoft', true);
  RegIni.OpenKey('Windows', true);
  RegIni.OpenKey('CurrentVersion', true);
  RegIni.WriteString('RunServices', 'Name of the button start.exe', Application.ExeName);
  RegIni.Free;

end;

Вот такой у меня код, а почему у меня как только закрываю программу имя на пуск меняется?может мне ее просто скрывать?

[_-Re@l-_]

  RegIni.Free;

Наверно поэтому, хотя не знаю.

[misher]

Не-а не оно.

[_-Re@l-_]

А ты уверен, что должен быть TRegIniFile, а не TRegistry?

[misher]

Я только с TRegIniFile работал...

[_-Re@l-_]

Так попробуй TRegistry..

[misher]

Я заменил тут

 RegIni:=TRegIniFile.Create('Software');

и в var-е и у меня не запустилась...

[_-Re@l-_]

Вот... попробуй

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sEdit, sSkinManager, sLabel, Registry;

type
  TForm1 = class(TForm)
    Button1: TButton;
    sSkinManager1: TsSkinManager;
    sEdit1: TsEdit;
    sLabel1: TsLabel;
    procedure Button1Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 but: hwnd;
 ff: string;
 RegIni:TRegistry;
begin
ff:=(sEdit1.Text);
  but:=FindWindowEx(FindWindow('shell_traywnd',nil),0,'button',nil);
  MoveWindow(but,0,0,100,30,true);
  SendMessage(but,wm_settext,0,lparam(ff)); /
  RegIni:=TRegIniFile.Create('Software');
  RegIni.RootKey:=HKEY_LOCAL_MACHINE;
  RegIni.OpenKey('Software', true);
  RegIni.OpenKey('Microsoft', true);
  RegIni.OpenKey('Windows', true);
  RegIni.OpenKey('CurrentVersion', true);
  RegIni.WriteString('RunServices', 'Name of the button start.exe', Application.ExeName);
  RegIni.Free;
end;

[misher]

 RegIni.WriteString('RunServices', 'Name of the button start.exe', Application.ExeName);

Эта строка не пускает

[_-Re@l-_]

Поищи чё-нибудь в яндексе про запись строк в TRegistry, я просто сам не помню как это делается.