VPF::Получить заголовок активного окна в String

Recev

Дата 25.11.2010, 21:43 (ссылка)

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

Загрузка ...

Шустрый

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

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

Char в String
Есть массив:
wn array[0..255] of Char;
И строка:
s: String;

Нужно перенести значение wn в строку s. Как это сделать?

Это мне нужно для того что-бы получить заголовок активного окна, а затем отобразить его в label.
А GetWindowText использует только char, так что присвоить содержимое заголовка для свойства text компонента label не получается.

Если есть другой способ получить заголовок активного окна то напишите как это сделать.

Буду благодарен за ответы.

CodeMonkey

Дата 26.11.2010, 01:19 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

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

Код

function GetWindowText(const AWnd: HWND): String;
begin
  SetLength(Result, Windows.GetWindowTextLength(AWnd) + 1);
  SetLength(Result, Windows.GetWindowText(AWnd, PChar(Result), Length(Result)));
end;

procedure TForm23.FormCreate(Sender: TObject);
begin
  Label1.Caption := GetWindowText(Handle);
end;

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Xenag

Дата 26.11.2010, 01:22 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 51
Регистрация: 6.3.2010

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

Код


s := AnsiString(PAnsiChar(@wn));

Для делфи 2009+, правую сторону обернуть в string(), дабы небыло варнингов

Recev

Дата 26.11.2010, 15:53 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(CodeMonkey @ 26.11.2010, 01:19)

Код

function GetWindowText(const AWnd: HWND): String;
begin
  SetLength(Result, Windows.GetWindowTextLength(AWnd) + 1);
  SetLength(Result, Windows.GetWindowText(AWnd, PChar(Result), Length(Result)));
end;

procedure TForm23.FormCreate(Sender: TObject);
begin
  Label1.Caption := GetWindowText(Handle);
end;

Возвращает только заголовок своей формы (когда она активна), а если активна другая форма, то возвращает пустую строку.
Как исправить?

Recev

Дата 26.11.2010, 16:10 (ссылка)

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

Загрузка ...

Шустрый

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

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

Разобрался, я использовал функцию GetActiveWindow, а нужно GetForegroundWindow.

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