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 :

Comment "effacer" le cadre et la barre de menu d'une fenêtre d'un programme externe


Sujet :

API, COM et SDKs Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Femme Profil pro
    Inscrit en
    Avril 2012
    Messages
    14
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Suisse

    Informations forums :
    Inscription : Avril 2012
    Messages : 14
    Par défaut Comment "effacer" le cadre et la barre de menu d'une fenêtre d'un programme externe
    Bonjour,

    J'espère que j'écris ce message dans le bon forum.

    J'écris un programme en Delphi. Ce programme ouvre une autre application qui n'est pas écrit par mes soins, elle pourrait par exemple être la calculatrice de Windows.

    J'aimerais pouvoir "effacer" le cadre de la fenêtre et la barre de menu. Se serait bien si je ne pouvais afficher que le contenu de la fenêtre.

    Est-ce que c'est possible ? J'ai essayé de chercher du côté des Shell APIs mais sans grand succès.

    Pour information, j'utilise ShellExecute pour lancer l'application externe.

    Merci d'avance pour vos éventuelles réponses.

  2. #2
    Membre Expert
    Avatar de Lung
    Profil pro
    Analyste-programmeur
    Inscrit en
    Mai 2002
    Messages
    2 704
    Détails du profil
    Informations personnelles :
    Âge : 45
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Analyste-programmeur
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2002
    Messages : 2 704
    Par défaut
    En faisant une recherche, j'ai trouvé cette bidouille :
    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
    procedure TForm1.Button4Click(Sender: TObject); 
    const 
      TimeOut = 10000; // 10 secondes 
    var 
      h: THandle; 
      t: DWORD; 
    begin 
      // On lance la calculatrice 
      ShellExecute(self.Handle, 'Open', 'calc.exe', nil, nil, SW_SHOWNORMAL); 
     
      // On attend un peu jusqu'à ce que la fenêtre de la calculatrice soit visible 
      h:= 0; 
      t:= GetTickCount; 
      while (h = 0) and (GetTickCount - t < TimeOut) do 
      begin 
        h:= FindWindow(nil, 'Calculatrice'); 
        Application.ProcessMessages; 
      end; 
     
      if h <> 0 then 
      begin 
        // On change la taille de la fenêtre 
        SetWindowPos(h, 0, 0, 0, 320, 200, 0); 
     
        // On change le parent de la fenêtre par notre panel (par exemple) 
        Windows.SetParent(h, panel1.Handle); 
      end; 
    end;
    Mais, il y a sûrement moyen de faire mieux ...
    L'urgent est fait, l'impossible est en cours, pour les miracles prévoir un délai. :bug: ___ "http://club.developpez.com/regles/#LIII-A"Écrivez dans un français correct !!

    C++Builder 5 - Delphi 6#2 Entreprise - Delphi 2007 Entreprise - Delphi 2010 Architecte - Delphi XE Entreprise - Delphi XE7 Entreprise - Delphi 10 Entreprise - Delphi 10.4.2 Entreprise - Delphi 11.3 Entreprise - Visual studio 2022
    OpenGL 2.1 - Oracle 10g - Paradox - Interbase (XE) - PostgreSQL (15.7)

  3. #3
    Membre averti
    Femme Profil pro
    Inscrit en
    Avril 2012
    Messages
    14
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Suisse

    Informations forums :
    Inscription : Avril 2012
    Messages : 14
    Par défaut
    Merci pour ta réponse.

    Je pense qu'avec ça je vais m'en sortir.

    En résumé, il suffit de créer un TPanel dans lequel on va intégrer la fenêtre du programme que l'on exécute. Ensuite, on change la position de la fenêtre afin que ses bordures soient cachées derrière le TPanel. On utilise alors des valeurs négatives pour X et Y.

  4. #4
    Expert éminent
    Avatar de Paul TOTH
    Homme Profil pro
    Freelance
    Inscrit en
    Novembre 2002
    Messages
    8 964
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2002
    Messages : 8 964
    Par défaut
    juste par curiosité, puis-je savoir dans quel cadre (sans jeu de mot) cette solution se justifie-t-elle ?
    Developpez.com: Mes articles, forum FlashPascal
    Entreprise: Execute SARL
    Le Store Excute Store

  5. #5
    Membre averti
    Femme Profil pro
    Inscrit en
    Avril 2012
    Messages
    14
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Suisse

    Informations forums :
    Inscription : Avril 2012
    Messages : 14
    Par défaut
    J'en ai besoin pour un travail de diplôme. Je dois réaliser un petit programme de monitoring via un capteur de mouvement.

    Pour se faire, j'utilise un petit programme capable de capter la gestuelle de l'utilisateur. Je voulais donc afficher seulement une petite partie de ce programme, à savoir son retour vidéo. Le reste n'intéresse pas l'utilisateur.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Comment ajouter un bouton dans la barre de titre d'une fenêtre ?
    Par Interruption13h dans le forum C++Builder
    Réponses: 10
    Dernier message: 04/07/2006, 19h07
  2. [STRUTS] ApplicationResources.properties "s'efface"
    Par Gildas Huart dans le forum Eclipse Java
    Réponses: 2
    Dernier message: 17/05/2005, 18h34

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