Работа с чужим окном определенного заголовка

[Marsel737]

Всем доброго времени суток!

Хотел узнать, можно ли как то обращаться к окну, учитываю его заголовок, т.е. например, если заголовок окна "Мой компьютер", то тогда обращаемся к этому окну, а если какой то другой, то нет.

Вот такой код нашол в интернете, там роде это как раз реализовано, но я не могу понять как это можно реализовать в своей программе, мне нужно сделать примерно так:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  если заголовок окна "Мой коипьютер", то
  ...
end;

Если кто-нибудь понял что именно я хочу, то пожалуйста подскажите как это реализовать.

unit Unit1; 

interface 

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

type 
      TForm1 = class(TForm) 
        HotKey1: THotKey; 
        ComboBox1: TComboBox; 
        Edit1: TEdit; 
        Button2: TButton; 
        Button3: TButton; 
        ListBox1: TListBox; 
        procedure Button2Click(Sender: TObject); 
        procedure Button3Click(Sender: TObject); 
        procedure ComboBox1Click(Sender: TObject); 
        procedure FormClose(Sender: TObject; var Action: TCloseAction); 
      private 

                  Hotkey_id1,Hotkey_id2,Hotkey_id3,Hotkey_id4,Hotkey_id5, 
                  Hotkey_id6,Hotkey_id7,Hotkey_id 8,H otk ey_id9,Hotkey_id10, 
                  Hotkey_id11,Hotkey_id12 : Integer; 

        procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY; 
        procedure ShortCutToHotKey(HotKey: TShortCut; var Key : Word; var Modifiers: Uint); 
            
        { Private declarations } 
      public 

        { Public declarations } 
      end; 

var 
      Form1: TForm1; 
      wnd, wndd: HWND; 
implementation 

{$R *.dfm} 

{ TForm1 } 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
          if wnd = 0 then 
begin 
          wnd := FindWindow(0, PChar(Edit1.Text)); 
          if wnd <> 0 then 
          application.MessageBox('Окно успешно подключено','Выполнено'); 
     end 

else 
          application.MessageBox('Сначала нужно отключить окно','Ошибка'); 
end; 

procedure TForm1.Button3Click(Sender: TObject); 
begin 
        if wnd <> 0 then 
      begin 
          wnd := 0; 
          application.MessageBox('Окно отключено','Выполнено'); 
      end 
else 
          application.MessageBox('Сначала нужно подключить окно','Ошибка'); 
end; 

procedure TForm1.ComboBox1Click(Sender: TObject); 
var 
          Key : Word; 
          Modifiers: UINT; 

begin 

          if   ComboBox1.ItemIndex=0 then 
          ShortCutToHotKey(HotKey1.HotKey, Key, Modifiers); 
          Hotkey_id1 := GlobalAddAtom('MyHotKey_1'); 
          RegisterHotKey(Handle, Hotkey_id1, Modifiers, Key); 

          ListBox1.Items.Add(ShortCutToText (HotKey1.HotKey) + ' =' + ComboBox1.Text ); 
          if   ComboBox1.ItemIndex=1 then 
          ShortCutToHotKey(HotKey1.HotKey, Key, Modifiers); 
          Hotkey_id2 := GlobalAddAtom('MyHotKey_2'); 
          RegisterHotKey(Handle, Hotkey_id2, Modifiers, Key); 

          if   ComboBox1.ItemIndex=2 then 
          ShortCutToHotKey(HotKey1.HotKey, Key, Modifiers); 
          Hotkey_id3 := GlobalAddAtom('MyHotKey_3'); 
          RegisterHotKey(Handle, Hotkey_id3, Modifiers, Key); 
... 

end; 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
          UnRegisterHotKey(Handle, Hotkey_id1); 
          GlobalDeleteAtom(Hotkey_id1); 
...
end; 

procedure TForm1.ShortCutToHotKey(HotKey: TShortCut; var Key: Word; 
      var Modifiers: Uint); 
var 
          Shift: TShiftState; 
begin 
          ShortCutToKey(HotKey, Key, Shift); 
          Modifiers := 0; 
          if (ssShift in Shift) then 
          Modifiers := Modifiers or MOD_SHIFT; 
          if (ssAlt in Shift) then 
          Modifiers := Modifiers or MOD_ALT; 
          if (ssCtrl in Shift) then 
          Modifiers := Modifiers or MOD_CONTROL; 

end; 

procedure TForm1.WMHotKey(var Msg: TWMHotKey); 
begin 

      if Msg.HotKey = Hotkey_id1 then 
        PostMessage(wnd, WM_KEYDOWN, VK_f1, 0); 
          if Msg.HotKey = Hotkey_id2 then 
        PostMessage(wnd, WM_KEYDOWN, VK_f2, 0); 
          if Msg.HotKey = Hotkey_id3 then 
        ...
end; 

end.

[russian-stalker]

procedure TForm1.Button1Click(Sender: TObject);
var
s:Pchar;
h:hwnd;
begin
h:=handle;
windows.GetWindowText(h,s,windows.GetWindowTextLength(h));
//s-Искомый текст
end;

Проверка будет что-то типа:

if pos(ansiuppercase('Мой Компьютер'),ansiuppercase(s))<>0 then
//Нужное действие

[Gerzs]

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

Хотел узнать, можно ли как то обращаться к окну, учитываю его заголовок, т.е. например, если заголовок окна "Мой компьютер", то тогда обращаемся к этому окну, а если какой то другой, то нет.

Найди его хэндел и обращайся

Handle:= FindWindow(nil, ' Мой компьютер')

[Marsel737]

russian-stalker, сделал так как вы предложили, но не работает почемуто. "s - искомый текст", я так понял в s будет записываться заголовок окна?

Gerzs, можно поподробней?

[Gerzs]

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

Gerzs, можно поподробней?

Что вы хотите с окном сделать?

[Marsel737]

Gerzs, в игре есть горячая клавиша, например от 0 до 9, я сделал так что эти клавиши могут нажиматься автоматически с определенным интревалом, который можно задавать, но эти клавиши нажимаются глобально, а мне нужно чтобы только в игре нажимались

[Gerzs]

var
   wnd: HWND;
 begin
   wnd := FindWindow(nil, ' Мой компьютер')
    SendMessage(wnd, WM_CHAR, Word('1'), 0);

либо keybd_event

[Marsel737]

Сделал так, не работает.

procedure TfrmMain.Timer4Timer(Sender: TObject);
var
  wnd: HWND;
begin
  try
    if ComboBox3.Text<>'' then
    begin
      Number2:=StrToInt(ComboBox3.Text)+96;
      wnd := FindWindow(nil, ' Мой компьютер');
      keybd_event(number2,0,0,0);
      keybd_event(number2,0,KEYEVENTF_KEYUP,0);
    end;
  except
    Exit;
  end;
end;

И так тоже не работает:

var
   wnd: HWND;
 begin
   wnd := FindWindow(nil, ' Мой компьютер');
    SendMessage(wnd, WM_CHAR, Word('1'), 0);

[Marsel737]

Не пойму почему не работает:

procedure TfrmMain.Timer1Timer(Sender: TObject);
var
  s:Pchar;
  h:hwnd;
begin
  h:=handle;
  windows.GetWindowText(h,s,windows.GetWindowTextLength(h));
  if pos(ansiuppercase('Мой компьютер'),ansiuppercase(s))<>0 then
    begin
      keybd_event(97,0,0,0);
      keybd_event(97,0,KEYEVENTF_KEYUP,0);
    end;
end;

Что не так?

[BOBAH13]

Жесть...

procedure TfrmMain.Timer1Timer(Sender: TObject);
var
  s:Pchar;
  h:hwnd;
begin
  h:=handle;
  s := getmem((windows.GetWindowTextLength(h) + 1) * sizeof(char) {или wchar}); // !!!!!!!!!!!!!!!
  windows.GetWindowText(h,s,windows.GetWindowTextLength(h));
  if pos(ansiuppercase('Мой компьютер'),ansiuppercase(s))<>0 then
    begin
      keybd_event(97,0,0,0);
      keybd_event(97,0,KEYEVENTF_KEYUP,0);
    end;
  freemem(s); // !!!!!!!!!!!!!!!
end;