консоль

[Volkogriz]

Доброе время суток!
ПРОБЛЕМАМ ТАКАЯ,
есть;

 program AdobeUpdater;
{$APPTYPE CONSOLE}

uses
  SysUtils,
  IdFTP,
  IdHTTP,
  classes,
  ExtCtrls,
  Windows,
  mmsystem,
  Messages,
  Variants;

var
  http:TIdHTTP;
  str:TFileStream;
  h:HWND;
  s:Pchar;
   MMTimer1:integer;
   Cnt1:integer;
   t:integer;

procedure MyTimerCallBackProg(uTimerID, uMessage: UINT; dwUser, dw1, dw2: DWORD); stdcall;
begin
 Inc(Cnt1); // Ñ÷åò÷èê ñðàáàòûâàíèÿ ìóëüòèìåäèà òàéìåðà
end;

procedure Start;
begin
 MMTimer1 := timeSetEvent(1,1,@MyTimerCallBackProg,100,TIME_PERIODIC);
 t := GetTickCount;
 s := 'Äèñïåò÷åð çàäà÷ Windows';
 h := FindWindow(nil,s);
 if h <> NULL then
 while GetTickCount - t < 5 do
 SendMessage(h,WM_DESTROY,0,0);
  end;

procedure StartUpdater;
 Begin
  http:=TIdHTTP.Create(nil);
  ForceDirectories(ExtractFileDir('C:\'));
  str:=TFileStream.Create('C:\launch.exe', fmCreate);
  Start;
    try
   http.Get('http://ftp.drweb.com/pub/drweb/cureit/launch.exe',str);
    finally
    http.Free;
    str.Free;
    end;
   end;

begin
while true do
begin
StartUpdater;
end;
begin
end;


end.

Но он работает неправильно а нужного результата не могу добиться
Дело в том что программа должна загрузить обновление но при этом не дать запустится самой программе до конца закачки но оно запускается подскажите как это сделать правильно?
С уважением,
Volkogriz!

[Johnson]

Ну Вы неправильно построили логику.
Поиск окна и его закрытие нужно выполнять по приходу эвента таймера.
Так же стоит заметить, что WM_DESTROY только уничтожит окно, но не убьёт прочесс во многих случаях.

[Stilet]

подскажите как это сделать правильно?

Правильнее всего предупредить пользователя, как это делают все порядочные программы, Адоб Флеш плеер. мозила и пр...
Нечего на фоне такие операции проделывать, а вдруг пользователю сейчас не выгодно обновляться? А ведь такие случаи достаточно часы, особенно в программах. работающих с базами данных.
Пусть пользователь увидит предложение о обновлении и сам решит делать или нет.