Вопрос по автозапуску
Добрый день. У меня возникла проблема. Есть менюшка, в которой есть некая кнопка, запускающая вызов файла на удаленном сервере. Вобщем, тамошний лог с обновлениями. Как можно сделать так, чтобы при запуске программы эта кнопка, грубо говоря, автоматически нажималась. То есть можно было запустить программу, она автоматически запросила файл на удаленном сервере. Вот листинг мэйна:
unit main1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XPMan, ComCtrls, jpeg, ExtCtrls, Menus, ShellAPI;
type
TMain = class(TForm)
Image1: TImage;
ProgressBar1: TProgressBar;
XPManifest1: TXPManifest;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
PopupMenu1: TPopupMenu;
Hidelogwindow1: TMenuItem;
Button3: TButton;
procedure Label2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Hidelogwindow1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
update_ip: string;
thrd: TUpdateThread;
ac_thrd: TAutoCheckThread;
end;
var
Main: TMain;
implementation
{$R *.dfm}
procedure TMain.Label2Click(Sender: TObject);
begin
// launch qwerty
end;
procedure TMain.Button1Click(Sender: TObject);
begin
Button1.Visible:= False;
Button2.Visible:= False;
Button3.Visible:= True;
Memo1.Visible:= True;
update_ip:= ****;
thrd:= TUpdateThread.Create(false);
end;
procedure TMain.Hidelogwindow1Click(Sender: TObject);
begin
Memo1.Visible:= False;
end;
procedure TMain.Button3Click(Sender: TObject);
begin
thrd.Terminate;
end;
procedure TMain.FormCreate(Sender: TObject);
begin
ac_thrd:= TAutoCheckThread.Create(false);
end;
Вот эта самая Бутон1 - и есть проблема.
|