Question : ShellExecute SW_HIDE

Quand using ShellExecute SW_HIDE, comment obtenez-vous la poignée ONU-cachez-vous l'application using ShowWindow ? class= de

Réponse : ShellExecute SW_HIDE

Le classname pour le bloc - notes n'est pas notepad.exe…
Cependant, voici quelque chose que vous pourriez être intéressé dedans. Peter ci-dessous à la délivrance encore…


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 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
94 :
95 :
96 :
97 :
98 :
99 :
100 :

unité Unit1 ;

interface

utilisations
  Windows, messages, SysUtils, variantes, classes, graphiques, commandes, formes,
  Dialogues, StdCtrls, ShellAPI, TlHelp32 ;

type
  TForm1 = classe (TForm)
    Button1 : TButton ;
    procédé Button1Click (expéditeur : TObject) ;
  privé
    {Déclarations privées}
  public
    {Déclarations publiques}
  extrémité ;

variété
  Form1 : TForm1 ;

exécution

{$R *.dfm}

type
  TEnumData = disque
    hW : HWND ;
    PID : DWORD ;
  extrémité ;

fonction EnumProc (hw : HWND ; données de variété : TEnumData) : Bool ; stdcall ;
variété
  PID : DWORD ;
commencer
  Résultat : = rectifier ;
  si (GetWindowLong (hw, GWL_HWNDPARENT) = 0) et
     (IsWindowVisible (hw) ou IsIconic (hw)) puis
  commencer
    GetWindowThreadProcessID (hw, @pID) ;
    Si PID = puis data.pID
    commencer
      data.hW : = hW ;
      Résultat : = faux ;
    extrémité ; {Si}
  extrémité ; {Si}
extrémité ; {EnumProc}

fonction WindowFromProcessID (PID : DWORD) : HWND ;
variété
  données : TEnumData ;
commencer
  data.pID : = PID ;
  data.hW : = 0 ;
  EnumWindows (@EnumProc, longint (@data)) ;
  Résultat : = data.hW ;
extrémité ; {WindowFromProcessID}

fonction WindowFromAppname32 (appname : Corde) : HWND ;
  {Prise seulement le nom de fichier d'application, chemin non plein !
    Le besoin de passer la prolongation aussi bien. }
variété
  instantané : Poignée en T ;
  processEntry : TProcessEntry32 ;
commencer
  Résultat : = 0 ;
  appName : = haut de casse (appname) ;
  instantané : = CreateToolhelp32Snapshot (
                TH32CS_SNAPPROCESS,
                0) ;
  s'instantané <> 0 puis
  essai
    processEntry.dwSize : = Sizeof (processEntry) ;
    si Process32First (instantané, processEntry) puis
    répétition
      si AnsiCompareText (
           appname,
           ExtractFilename (StrPas (processEntry.szExeFile))
           ) = 0
      puis
      commencer
        Résultat : = WindowFromProcessID (processEntry.th32ProcessID) ;
        Coupure ;
      extrémité ; {Si}
    jusque pas à Process32Next (instantané, processEntry) ;
  finalement
    CloseHandle (instantané) ;
  extrémité ; {essai}
extrémité ; {WindowFromAppname32}

procédé TForm1.Button1Click (expéditeur : TObject) ;
variété
  X : Poignée en T ;
commencer
  ShellExecute (0, « s'ouvrent », « c:\WINDOWS\notepad.exe », '', '', SW_SHOW) ;
  X : = WindowFromAppname32 (« NotePad.exe ") ;
  ShowMessage (IntToStr (x)) ;
extrémité ;

extrémité.
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us