fenetre activeRésolu

Question

salut
quelqu'un peut m'expliquer comment determiner le nom de la fenetre active !!!! (determiner le texte dans la barre de titre de la fenetre active )
merci d'avance

merci ;)

l0sth34d2 · Accepted Answer

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;

Guillemouze · Answer

screen.activeform.caption ?

hardouz · Answer

salut
-determiner le nom de la fenetre active sur windows pas de mon application :)

hardouz · Answer

apparement c'est GetForeGroundWindow pour renvoyer le handle de la fenetre active mais comment l'utiser pour afficher le texte de cette fenetre  Getwindows text ?

merci ;)

hardouz · Answer

salut
merci ça marche trés bien mais pourquoi le +1 et c'est quoi le trimright ?
merci d'avance

japee · Answer

Salut,

Je suppose :
+ 1 parce que GetWindowText retourne un résultat tronqué d'un caractère dans la plupart des cas => donc TrimRight pour les autres cas.

Personnellement, je prèfère utiliser un array of Char pour récupérer la valeur, ça simplifie et raccourcit le code :

var
  Handle: THandle;
  Title: array[0..255] of Char;
begin
  Result := '';
  Handle := GetForegroundWindow;
  if Handle <> 0 then
  begin
    GetWindowText(Handle, Title, SizeOf(Title));
    Result := Title;
  end;  
end;

Bonne prog'

Fenetre active

6 réponses

Votre réponse