VPF::Заголовок окна - Форум программистов

Client

Дата 9.7.2009, 13:47 (ссылка)

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

Загрузка ...

Новичок

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

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

Привет всем
Я открываю блокнот и хочу вывести его заголовок в Label при нажатии кнопки. Как это сделать?
моя бредовая попытка

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  q:HWND;
  s:TStringList;;
  ss:array [0..127]of char;
begin

  q:=FindWindow('calc','');
  GetWindowText(q,ss,10);
  Label1.Caption:=ss;

end;

Rrader

Дата 9.7.2009, 14:44 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191

У Вас класс окна явно не "блокнотовский"

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
  Len: Integer;
  Wnd: HWND;
begin
  Wnd := FindWindow('Notepad', nil);
  if Wnd <> 0 then
  begin
    Len := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);
    if Len > 0 then
    begin
      SetLength(S, Len);
      SendMessage(Wnd, WM_GETTEXT, Len + 1, LPARAM(@S[1]));
      Label1.Caption := S;
    end;
  end;
end;

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

Let's do this quickly!
Rest in peace, Vit!

Client

Дата 9.7.2009, 18:15 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо, работает

Цитата

У Вас класс окна явно не "блокнотовский"

Я открывал блокнот и калькулятор, ни чего не сработало, скопировал версию с калькулятором. В общем сути не меняет по-моему

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