Весь гугл перерыл, толкового ответа не нашел.
Определяю имя активного окна функцией:
Код
function GetEWName: string;
var
header:HWND;
apchar:array[0..254] of char;
begin
header:=GetForegroundWindow;
GetWindowText(header, apchar, Length(apchar));
result := ' [ '+apchar+' ] ';
end;
Но помимо имени окна, мне нужно еще узнать имя процеса, которым создано это окно.
В конечном итоге result хочу такой: [ Вопросы по Delphi - Google Chrome ] { chrome.exe }
У кого нибудь есть наработки, кто может помочь?