O anda açık olan uygulamayı bulmak (GetAcxtiveWindow)

[mepc]

Arkadaşlar bir haftadır windowsta o anda kullanılan aktif programın hangisi olduğunu bulmaya çalışıyorum. ancak bir türlü bulamadım. GetAcxtiveWindow ile aktif uygulamanın handle nın alınacağını buldum ama bir türlü çalıştıramadım.

GetAcxtiveWindow metodunun kullanımı konusunda yardımcı olabilirmisiniz veya bunun dışında bir çözüm varmıdır

[SimaWB]

Aktif pencerenin başlığını almak için :

Kod: Tümünü seç

function ActiveCaption: string;
var
  Handle: THandle;
  Len: LongInt;
  Title: string;
begin
  Result := '';
  Handle := GetForegroundWindow;
  if Handle <> 0 then
  begin
    Len := GetWindowTextLength(Handle) + 1;
    SetLength(Title, Len);
    GetWindowText(Handle, PChar(Title), Len);
    ActiveCaption := TrimRight(Title);
  end;
end;