IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

API, COM et SDKs Delphi Discussion :

pb de API sous delphi


Sujet :

API, COM et SDKs Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Inscrit en
    Juillet 2006
    Messages
    295
    Détails du profil
    Informations forums :
    Inscription : Juillet 2006
    Messages : 295
    Par défaut pb de API sous delphi
    salut tt le monde
    svp je veux un aide
    mon pb c'est detrouver un code de delphi qui permet de compter le nombre les fenêtres ouvertes dans la barre de taches et aussi qui permet de tester la fenetre ouvert c'est un dossier ou bien une application
    et merci d'avance

  2. #2
    Expert confirmé
    Avatar de Cl@udius
    Homme Profil pro
    Développeur Web
    Inscrit en
    Février 2006
    Messages
    4 878
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Développeur Web
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Février 2006
    Messages : 4 878
    Par défaut
    Salut,

    Voici un exemple de code qui peut répondre à ta demande.
    L'exemple utilise la fonction API EnumWindows.

    Créé une form avec un bouton et un memo.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
     
    implementation
     
    {$R *.DFM}
     
    function EnumWindowsCallback(hWnd: HWND; lParam: LPARAM): BOOL; stdcall;
    var
      Caption, ClassName: array[0..255]of Char;
      IsExplorerWindow: Boolean;
    begin
      if IsWindowVisible(hWnd) then
      begin
        GetWindowText(hWnd, Caption, SizeOf(Caption));
        GetClassName(hWnd, ClassName, SizeOf(ClassName));
        IsExplorerWindow := (ClassName = 'ExploreWClass');
        Form1.Memo1.Lines.Add('Caption: ' + Caption + '    ' +
                              'ClassName: ' + ClassName + '    ' +
                              'ExplorerWindow: ' + BoolToStr(IsExplorerWindow, True));
      end;
     
      Result := True; // Pour éviter d'interrompre l'énumération
    end;
     
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Memo1.Clear;
      EnumWindows(@EnumWindowsCallback, 0);
    end;
     
    end.
    [EDIT]
    Pour obtenir plus d'infos sur l'utilisation de EnumWindows, tu peux consulter cet article de la FAQ:http://delphi.developpez.com/faq/?pa...dlefenetreproc
    [/EDIT]

    @+

  3. #3
    Membre éclairé
    Inscrit en
    Juillet 2006
    Messages
    295
    Détails du profil
    Informations forums :
    Inscription : Juillet 2006
    Messages : 295
    Par défaut
    merci bcp mon ami

Discussions similaires

  1. API MSN sous Delphi
    Par ouadie99 dans le forum API, COM et SDKs
    Réponses: 20
    Dernier message: 18/02/2008, 13h57
  2. comment peut se servire d'une Api en delphi
    Par maamar dans le forum API, COM et SDKs
    Réponses: 3
    Dernier message: 22/02/2003, 10h31
  3. Comment créér une collection sous Delphi
    Par PsyKroPack dans le forum Langage
    Réponses: 6
    Dernier message: 11/02/2003, 13h20
  4. calcul sous delphi
    Par djedje-08 dans le forum Langage
    Réponses: 5
    Dernier message: 08/02/2003, 17h39
  5. Réponses: 4
    Dernier message: 27/03/2002, 11h03

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo