[Илья С.]

Добрый день. У меня возникла проблема. Есть менюшка, в которой есть некая кнопка, запускающая вызов файла на удаленном сервере. Вобщем, тамошний лог с обновлениями. Как можно сделать так, чтобы при запуске программы эта кнопка, грубо говоря, автоматически нажималась. То есть можно было запустить программу, она автоматически запросила файл на удаленном сервере. Вот листинг мэйна:

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 - и есть проблема.

[Decoding]

В OnCreate или OnShow (короче, там, где нужно) напиши

Button1.Click;

или

Button1.OnClick( Sender );

[Aristarh Dark]

На событие FormShow повешай вызов

Код:

Button1Click(nil);

[Илья С.]

Спасибо. Вопрос решился =) теперь еще один. В принципе тоже самое, надо чтобы по тому же принципу запускался .exe файл, лежащий на
локальном компютере. Вот кусочек кода:

procedure TMain.Button2Click(Sender: TObject);
begin
if ShellExecute(handle, 'Open', 'system\dbclear.exe, '', 'system\', SW_SHOWNORMAL) <= 32 then begin
MessageBox(handle, 'Error: File ..\system\dbclear.exe not found!', 'Error: File not found, MB_OK+MB_ICONERROR);
end;
end;

Данный кусок следует за вышеприведенным. Нужно, чтобы и этот бутон 2 запустился так же автоматически.

[Илья С.]

тут вся проблема еще заключается в том, чтобы прога должалась окончания обновления, вызванного бутоном1, после чего уже автоматом запустила бутон 2. Делей не походит, ибо у всех разные скорости скачки...

[Decoding]

Посмотри пример и скажи, это то, чего ты хотел?

primer.zip

[Илья С.]

да, совершенно верно. Теперь надо сообразить,как это все интегрировать... Просто я далеко не дока в программировании. На работе сказали "делай", а то что я делфей не занимался лет 6 - это мало кого волнует... =)

[Илья С.]

Так, интегрировал, все замечательно. Одно но - здесь идет просчет по i до 5000. А мне надо, чтобы как нажалась кнопка 1 и ЗАВЕРШИЛСЯ прцоесс обновления, запустилась кнопка 2. То есть надо, вероятно, придумать флаг... Я вот что подумал. У меня есть такой кусочек кода

Info:= 'Обновление завершено успешно.';
Synchronize(SetInfo);
Synchronize(OK);

Как сделать так, чтобы к этому инфо, то есть к его появлению, привязать нажимание бутона2?

[Decoding]

Ты с примером внимательно разбирался? Там флаг и используется. Перед запуском потока флаг сбрасывается.

Код:

CanStop := false

После запуска потока программа входит в бесконечный цикл с обработкой сообщений. В этом цикле она ожидает момента, когда поток, закончивший свою работу, установит сброшенный флаг (CanStop).

Код:

while not CanStop do
   Application.ProcessMessages;

Поток заканчивает свою работу тогда, когда полностью отработала процедура Execute созданного потока. Неважно, что происходит внутри Execute, просто в самом конце нужно установить флаг (CanStop), сброшенный перед созданием потока.

Код:

procedure Taaa._Stop;
begin
   CanStop := true;
end;

procedure Taaa.Execute;
begin
   ...
   Synchronize( _Stop );
end;

Как только флаг устоновлен, твоя программа точно знает, что поток завершен. Теперь можешь программно нажать на нужную тебе кнопку.