[angvelem]

Вы пробовали хоть РАЗ воспользоваться справкой или поиском? Мне не сложно ответить, но так вы никогда не научитесь ничего самостоятельно делать. Пока же ваше поведение напоминает сибаритство.

[unity]

Сообщение от angvelem

Вы пробовали хоть РАЗ воспользоваться справкой или поиском? Мне не сложно ответить, но так вы никогда не научитесь ничего самостоятельно делать. Пока же ваше поведение напоминает сибаритство.

да канечно вон скока вкладок в опере
_http://s48.radikal.ru/i122/1107/f1/7f3c6487af2a.jpg

[angvelem]

Сообщение от unity

а только по классу окна нельзя опредилить его hwnd
или по Id процеса?

также хотелось бы узнать как сделать окно полупразрачным?

и самй главный вопрос как сделать окно поверх всех окон
даже поверх игровых приложений?
(такое можно сделать, даже раньше у меня програмка такая
было выбираеш окно и оно становиться поверх любой игры)

1. Можно top
2. AlphaBlend
3. HWND_TOPMOST

вон скока вкладок в опере

Направления для поиска даны

[unity]

Сообщение от angvelem

1. Можно top
2. AlphaBlend
3. HWND_TOPMOST

Направления для поиска даны

всё нашёл как делать и вроде работает

вот так сделал (точнее скапирывал=))

Код:

with form1 do
SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

[angvelem]

Всё правильно, в данном случае выполняются условия:
1. Сделать поверх всех (активных на данный момент) окон.
2. Не менять активность программы (если активна оставить активной, если нет соответственно нет)
3. Не перемещать
4. Не менять размер.

[unity]

Сообщение от angvelem

Всё правильно, в данном случае выполняются условия:
1. Сделать поверх всех (активных на данный момент) окон.
2. Не менять активность программы (если активна оставить активной, если нет соответственно нет)
3. Не перемещать
4. Не менять размер.

всётаки неполучается так
оно так работает пока игра в оконом режими а когда её делаеш на весь экран то это непомагает
вроде это тяжело сделать чтоб поверх игры было

[angvelem]

Если имеется несколько окон с таким флагом (HWND_TOPMOST), то верхним будет то, что активировано последним. Игра скорее всего использует DirectX, а там не всегда этот фокус прокатывает.

[unity]

вот что я нашёл
было написано что эти стили которые выводяться поверх игр:

Window Styles:
WS_POPUP
WS_VISIBLE
WS_CLIPSIBLINGS

Extended Styles:
WS_EX_LEFT
WS_EX_LTRREADING
WS_EX_RIGHTSCROLLBAR
WS_EX_TOPMOST
WS_EX_TOOLWINDOW
WS_EX_LAYERED

куда мне название стиля вводить?

делал так но поверх игры нечего невыводиться:

Код:

procedure TForm1.Btn1Click(Sender: TObject);

var

Style : Longint;

begin

{старый стиль окна}

Style:=GetWindowLong(Btn1.Handle,WS_VISIBLE);

{меняем стиль окна}

Style:=Style or WS_OVERLAPPEDWINDOW;

SetWindowLong(Btn1.Handle,WS_VISIBLE, Style);

{обновление окна (Invalidate не сработает)}

SetWindowPos(Btn1.Handle, HWND_TOP, 0, 0, 0, 0,

SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER or SWP_DRAWFRAME

or SWP_NOACTIVATE);

end;

[angvelem]

Сообщение от unity

вот что я нашёл
было написано что эти стили которые выводяться поверх игр:

Window Styles:
WS_POPUP - применяется для всплывающих окон, чаще всего для меню
WS_VISIBLE - стиль окна видимый
WS_CLIPSIBLINGS - используется для дочерних окон (т.е. для контролов)

Extended Styles:
WS_EX_LEFT - выровнять влево
WS_EX_LTRREADING - этот стиль используется по-умолчанию
WS_EX_RIGHTSCROLLBAR - скрол бар располагается справа
WS_EX_TOPMOST - окно верхнего уровня
WS_EX_TOOLWINDOW - окно для плавающих тулбаров
WS_EX_LAYERED - использовать прозрачность

куда мне название стиля вводить?

Переводчик тяжело самому было использовать?

[angvelem]

Сообщение от unity

делал так но поверх игры нечего невыводиться:

С каких пор кнопки стали самостоятельными окнами?

[unity]

Код:

procedure TForm1.tmr1Timer(Sender: TObject);
begin
if getasynckeystate($71)<>0 then  
t:= PChar(edt1.Text);       // считывает назавание окна из edt1
 id:=FindWindow(nil,(t));   // узнаёт hwnd окна
 PostMessage(id,WM_KEYDOWN,vk_F1, 0); //посылает нажатие кнопки f1 окну
     PostMessage(id,WM_KEYUP,vk_F1, 0); // посылает отжатие кнопки f1 окну
end;

как сделать чтобесли я нажал 1 раз F2 то и в окно 1раз было послоно нажатиеи отжатие F1
(щас у меня после тогокак нажал 1раз F2 в окно посылаеться множество нажатий)

[angvelem]

PostMessage - послать сообщение с возможной потерей в дороге
SendMessage - послать и забыть, программа прерывается до ответа функции

Попробуй вторую функцию.

[unity]

Сообщение от angvelem

PostMessage - послать сообщение с возможной потерей в дороге
SendMessage - послать и забыть, программа прерывается до ответа функции

Попробуй вторую функцию.

так вообще неработает
я вотнашёл тока я незнаю как использавать (тоесть я знаю что нада в конце добавить
код который делает так что клавиша уже ненажата):

function GetAsyncKeyState(Key: Integer): Integer;

Опpеделяет состояние виpтуальной клавиши.

Паpаметpы:
Key: Код виpтуальной клавиши.

Возвpащаемое значение:
Если установлен стаpший байт, клавиша Key находится в нажатом положении, а если младший - то клавиша Key была нажата после пpедыдущего вызова функции.


как задавать младший байт?

[bussianko]

Сообщение от unity

получилось, а что значат эти нули?

как интервал задавать вручную с окна программы?

как вставлять переменные?

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    tmr1: TTimer;
    btn1: TBitBtn;
    procedure tmr1Timer(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  d:Integer;

implementation

{$R *.dfm}

procedure TForm1.tmr1Timer(Sender: TObject);
begin
keybd_event(VK_F1, 0, 0, 0); // нажатие
 keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, 0); // отпускание
end;


procedure TForm1.btn1Click(Sender: TObject);
begin
  Tmr1.Interval:= d; // интервал
 Tmr1.Enabled:= Not(Tmr1.Enabled); // вкл / выкл
end;

end.

как сделать чтоб в програми можно было изменять значение D (интервала)

из палитры компонентов на вкладке стандарт выбери компонент TEdit и кинь куда нить на форму.

Вот немного модифицированный вариант нажатия на кнопке:

procedure TForm1.btn1Click(Sender: TObject);
begin
if d <> StrToInt(Edit1.Text) then
begin
d:= StrToInt(Edit1.Text)
Tmr1.Interval:= d; // интервал
Tmr1.Enabled:= Not(Tmr1.Enabled); // вкл / выкл
end
else
begin
Tmr1.Interval:= d; // интервал
Tmr1.Enabled:= Not(Tmr1.Enabled); // вкл / выкл
end;

end;

[bussianko]

из палитры компонентов на вкладке стандарт выбери компонент TEdit и кинь куда нить на форму.

Вот немного модифицированный вариант нажатия на кнопке:

procedure TForm1.btn1Click(Sender: TObject);
begin
if d <> StrToInt(Edit1.Text) then
begin
d:= StrToInt(Edit1.Text)
Tmr1.Interval:= d; // интервал
Tmr1.Enabled:= Not(Tmr1.Enabled); // вкл / выкл
end
else
begin
Tmr1.Interval:= d; // интервал
Tmr1.Enabled:= Not(Tmr1.Enabled); // вкл / выкл
end;

end;