VPF::Остановка времени в чужом приложении.

Simplex

Дата 4.12.2005, 13:46 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Имеется чужое приложение, где в таймере уменьшается PorogressBar.Position. Как заставить остановиться таймер или в крайнем случае заморозить положение ProgressBar?

Буду благодарен за любую информацию.

Snowy

Дата 4.12.2005, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Заморозка прогресбара ничего не даст - это всего лишь отображение.
Здесь нужно или убивать user timer, чтобы он не тикал,
либо перехватывать сообщения от таймера к окну приложения и не пускать их дальше.

Girder

Дата 4.12.2005, 15:05 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 25
Всего: 155

Заморозь потоки. Пример приводил... воспользуйся поиском.

--------------------

Как слышим, так и пишим.
Истина где-то там...

Дата 4.12.2005, 17:50 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 7
Всего: 115

К примеру так.

Код



.............

var
     Hinst : THandle;
   WndArr : array of THandle;
   Wnd : THandle;

......

function GetTimerWindows(Handle: HWND; Info: Pointer): BOOL; stdcall;
const
 sClName ='TPUtilWindow';
var
 s : String;
begin
 Result := True;
 SetLength(s,Length(sClName)+1);
 GetClassName(Handle, PChar(s),Length(s));
 SetLength(s,Length(sClName)); 
 if (GetWindowLong(Handle, GWL_HINSTANCE) = Hinst) and
    (s=sClName)
 then
   begin
     SetLength(WndArr,High(WndArr)+2);
     WndArr[High(WndArr)]:=Handle;
   end;
end;

...............

Procedure KillTbyCaption(s:string);
var

 i : integer;
begin
 Wnd:=FindWindow(nil,Pchar(s));
 if Wnd=0 then Exit;
 hinst:=GetWindowLong(Wnd, GWL_HINSTANCE);
 EnumWindows(@GetTimerWindows,0);
 for i:=0 to High(WndArr) do
       KillTimer(WndArr[i],1);
end;

KillTbyCaption('Заголовок окна');

Это сообщение отредактировал(а) RAdmin - 4.12.2005, 17:52

Simplex

Дата 4.12.2005, 18:41 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

RAdmin, спасибо за код!

А на счет ProgressBar я вот как выкрутился.

Код


procedure TForm1.Timer1Timer(Sender: TObject);
var tpy  : TPoint;
    hwnd : THandle;
begin
  GetCursorPos(tpy);
  Label1.Caption:='X='+IntToStr(tpy.x);
  Label2.Caption:='Y='+IntToStr(tpy.y);
  hwnd:=WindowFromPoint(tpy);
  SendMessage(hwnd, WM_USER+2, 50, 0);
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »