A voir également:
- Getforegroundwindow
- Getforegroundwindow delphi - Meilleures réponses
- Delphi getforegroundwindow - Meilleures réponses
- Capturer la fenetre active et la mettre dans un fichier - Codes sources - Visual Basic / VB.NET (Graphique)
- Lister les fenêtres actives *** - Codes sources - Visual Basic / VB.NET (Système)
- Visual Basic / VB.NET : Masquer/afficher/fermer les fenetres actives - CodeS SourceS - Guide
- Lister les fenetres actives windows - Codes sources - Visual Basic / VB.NET (Divers)
- Maintenir fenêtre active (débutant) ✓ - Forum - Javascript / DHTML
6 réponses
l0sth34d2
- Messages postés
- 76
- Date d'inscription
- mercredi 21 mars 2007
- Statut
- Membre
- Dernière intervention
- 13 novembre 2008
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;
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
- Messages postés
- 991
- Date d'inscription
- samedi 25 octobre 2003
- Statut
- Membre
- Dernière intervention
- 29 août 2013
screen.activeform.caption ?
hardouz
- Messages postés
- 196
- Date d'inscription
- jeudi 22 février 2007
- Statut
- Membre
- Dernière intervention
- 26 novembre 2009
salut
-determiner le nom de la fenetre active sur windows pas de mon application :)
-determiner le nom de la fenetre active sur windows pas de mon application :)
hardouz
- Messages postés
- 196
- Date d'inscription
- jeudi 22 février 2007
- Statut
- Membre
- Dernière intervention
- 26 novembre 2009
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 ;)
merci ;)
hardouz
- Messages postés
- 196
- Date d'inscription
- jeudi 22 février 2007
- Statut
- Membre
- Dernière intervention
- 26 novembre 2009
salut
merci ça marche trés bien mais pourquoi le +1 et c'est quoi le trimright ?
merci d'avance
merci ça marche trés bien mais pourquoi le +1 et c'est quoi le trimright ?
merci d'avance
japee
- Messages postés
- 1725
- Date d'inscription
- vendredi 27 décembre 2002
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2021
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'
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'