procedure TfChat.sSpeedButton2Click(Sender: TObject);
var o:HWND;
begin
o := GetForegroundWindow();
end;
Окно в фокусе
как узнать окно в фокусе или нет?
Мне надо чтобы если окно не в фокусе то проигрывалась мелодия, если в фокусе - то нет
Мне надо чтобы если окно не в фокусе то проигрывалась мелодия, если в фокусе - то нет
GetFocus()
GetForegroundWindow()
GetForegroundWindow()
сделал так:
но как мне теперь посмотреть название окна?
Код:
но как мне теперь посмотреть название окна?
Что-то беда...
сделал так:
не работает
сделал так:
Код:
procedure TfChat.sSpeedButton2Click(Sender: TObject);
var o:HWND;
buf: PWideChar;
begin
o := GetForegroundWindow();
GetWindowText(o,buf,100);
end;
var o:HWND;
buf: PWideChar;
begin
o := GetForegroundWindow();
GetWindowText(o,buf,100);
end;
не работает
Что значит "не работает"?
Какую ошибку возвращает?
Кто будет выделять память для buf?
Какую ошибку возвращает?
Кто будет выделять память для buf?
Ошибка
Что-то давно это Делфи было. уже все позабывал. Help me.
Код:
Access violation at address 00000000. Read of address 00000000
Что-то давно это Делфи было. уже все позабывал. Help me.
Все решил проблему. Для будущих поколений кто будет использовать GetForegroundWindow() и GetWindowText
Код:
procedure TfChat.sSpeedButton2Click(Sender: TObject);
var o:HWND;
buf: string;
begin
SetLength(buf, 100);
o := GetForegroundWindow();
GetWindowText(o,PChar(buf),100);
ShowMessage(buf);
end;
var o:HWND;
buf: string;
begin
SetLength(buf, 100);
o := GetForegroundWindow();
GetWindowText(o,PChar(buf),100);
ShowMessage(buf);
end;