Discussion :

[MedGIR]

Il y a quelque temps j'avais récupéré il me semble sur ce site, un bout de code qui permettait d'afficher notepad dans une fenetre delphi.

Je ne veux pas lancer une notepad à l'extérieur de mon programme, mais bien au sein de mon programme.

Je pense que je dois être fatigué, mais j'ai beau chercher sur le net, dans le forum.. mais je ne retrouve rien...

Est ce que quelqu'un peut m'aider?

Merci d'avance

[defluc]

Qu'est-ce que tu veux dire par

bien au sein de mon programme

ShellExecute ne te satisferait pas ?

[MedGIR]

Non, je ne croit pas que shellexecute permet d'afficher dans une fenetre de mon programme notepad ou autre.. En fait, shellexecute lance une instance de notepad à l'extérieur mon programme.

Je vais continuer de chercher

[shell13010]

alors si j'ai bien compris,tu veux charger un fichier text etc... a l'interieur de ta fiche?

si c'est sa alors dans une forme colle un RichEdit et un boutonet un OpenDialog

puis colle ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.execute;
  RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

en esperant t'avoir aider

[Lung]

Il y a quelque temps j'avais récupéré il me semble sur ce site, un bout de code qui permettait d'afficher notepad dans une fenetre delphi.

Je ne veux pas lancer une notepad à l'extérieur de mon programme, mais bien au sein de mon programme.

J'ai trouvé çà (c'est pas de moi):

1 - tu lance Notepad grace à la fonction CreateProcess
2 - tu récupère le ProcessID de l'instance de Notepad que tu viens de lancer
3 - tu énumère l'ensemble des fenêtres en recherchant celle qui appartiennent au processus dont le ProcessID (PID) correspond à celui que tu as récupéré.
4 - Tu prends le premier handle de fenêtre (en principe pour Notepad, il ne devrait y en avoir qu'un).
5 - Tu utilise ce handle pour "trafiquer" la fenêtre.

Voici un exemple complet bricolé à partir des éléments de la FAQ. Ce n'est pas très élégant, mais ça fonctionne. A améliorer.

Code:

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
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
type 
  PFindWindowsStruct = ^TFindWindowsStruct; 
  TFindWindowsStruct = record 
    ProcessID: DWORD; 
    HandleList: TList; 
  end; 
 
function EnumWindowsProc(hwnd: HWND; lParam: LPARAM): boolean; stdcall; 
var 
  dwProcessId: DWORD; 
begin 
  if lParam <> 0 then 
  begin 
    GetWindowThreadProcessId(hwnd, dwProcessId); 
    with PFindWindowsStruct(lParam)^ do 
      if dwProcessID = ProcessID then 
        HandleList.Add(Pointer(hwnd)); 
    result:= true; 
  end 
  else 
    result:= false; 
end; 
 
procedure FindProcessWindows(ProcessID: Integer; Handles: TList); 
var 
  findWindowsStruct: TFindWindowsStruct; 
begin 
  findWindowsStruct.ProcessID:= ProcessID; 
  findWindowsStruct.HandleList:= Handles; 
  EnumWindows(@EnumWindowsProc, Integer(@findWindowsStruct)); 
end; 
 
function NotepadPID: Cardinal; 
var 
  StartInfo: TStartupInfo; 
  ProcessInfo: TProcessInformation; 
begin 
  result:= 0; 
  { Mise à zéro de la structure StartInfo } 
  FillChar(StartInfo, SizeOf(StartInfo), #0); 
  { Seule la taille est renseignée, toutes les autres options } 
  { laissées à zéro prendront les valeurs par défaut } 
  StartInfo.cb:= SizeOf(StartInfo); 
 
  { Lancement de la ligne de commande } 
  if CreateProcess(nil, 'Notepad.exe', nil, nil, false, 
    0, nil, nil, StartInfo, ProcessInfo) then 
    result:= ProcessInfo.dwProcessId 
  else 
    RaiseLastOSError; 
end; 
 
function FindHandle(PID: Cardinal): HWND; 
const 
  TIMEOUT = 5000; // 5 secs 
var 
  handles: TList; 
  ticks: DWORD; 
begin 
  handles:= TList.Create; 
  ticks:= GetTickCount; 
  try 
    while (handles.Count = 0) and (GetTickCount - ticks < TIMEOUT) do 
      FindProcessWindows(PID, handles); 
    if handles.Count > 0 then 
      result:= HWND(handles[0]) 
    else 
      result:= 0; 
  finally 
    handles.Free; 
  end; 
end; 
 
function StartNotepad: HWND; 
var 
  pid: Cardinal; 
begin 
  pid:= NotepadPID; 
  result:= FindHandle(pid); 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  h: HWND; 
begin 
  h:= StartNotepad; 
  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;

[MedGIR]

Merci beaucoup Lung, je vais essayer... il me semble que cela ressemble à ce que j'avais trouvé...

Merci aussi à shell13010, mais non malheureusement je ne veux pas afficher du texte dans mon programme, Notepad était un exemple... Je voulais juste afficher la fiche principale d'un exécutable dans une fenêtre de mon programme. J'avais réussi à la faire il y a quelque temps... mais maintenant je ne me souviens plus...

[ShaiLeTroll]

Le Windows.SetParent (la précision de l'unité est importante) fonctionne par exemple pour prendre le TreeView de l'explorateur Windows et le coller dans son application ... attention au violation d'accès ... voir ce sujet

[Jipété]

Salut,

Mon grain de sel :

Le code posté par Lung (merci à lui)

• fonctionne très bien avec le Bloc-notes (qui se redimensionne pour s'adapter au panel),
• moyennement avec la Calculatrice (car non redimensionnable),
• et très très mal avec un bête prog de test créé sous Delphi ne comportant qu'une simple feuille (redimensionnable) avec un bête bouton : j'ai bien quelque chose qui s'affiche dans le panel, mais pas de la couleur de la form de test, sans le bouton, avec barre de titre et boutons min-max-close, mais surtout, la "vraie" form du prog de test s'affiche à côté du prog conteneur... Le truc qui se met dans le panel s'y met avec le nom du prog en caption, quand le prog de test affiche bien le caption que j'ai créé.

Sur l'image jointe, en haut le prog conteneur, en bas le prog de test, qui devrait être contenu...

Bon, c'est pas mon topic mais je voulais en faire part à la communauté (j'aime bien jouer avec ce genre de truc).
Mes 2 cts,
--
jp

[Jipété]

Yep !

Il se trouve que je dispose de 2 progs, petits, très petits (13 et 15 ko), vous savez, ce genre de choses où l'on joue directement avec les API pour créer des petits exe's, totalement inutiles sauf pour ce genre de challenge.

L'un se contente d'afficher HelloWorld dans une form blanche tout en jouant un .wav au FormCreate, l'autre est quand même équipé de trois Listbox et trois boutons : eh bien, ces deux programmes s'affichent parfaitement dans le panel de destination !

Est-ce à dire que le défaut constaté dans mon post précédent est lié à la manière dont l'exe est fabriqué par Delphi (prog modifié en ayant viré l'unique bouton et la seule ligne de code qu'il contenait, défaut toujours présent) ?

Valà,
--
jp

[Zaki_SDwin]

Salut,

Mon grain de sel :

Le code posté par Lung (merci à lui)

• fonctionne très bien avec le Bloc-notes (qui se redimensionne pour s'adapter au panel),
• moyennement avec la Calculatrice (car non redimensionnable),
• et très très mal avec un bête prog de test créé sous Delphi ne comportant qu'une simple feuille (redimensionnable) avec un bête bouton : j'ai bien quelque chose qui s'affiche dans le panel, mais pas de la couleur de la form de test, sans le bouton, avec barre de titre et boutons min-max-close, mais surtout, la "vraie" form du prog de test s'affiche à côté du prog conteneur... Le truc qui se met dans le panel s'y met avec le nom du prog en caption, quand le prog de test affiche bien le caption que j'ai créé.

Sur l'image jointe, en haut le prog conteneur, en bas le prog de test, qui devrait être contenu...

Bon, c'est pas mon topic mais je voulais en faire part à la communauté (j'aime bien jouer avec ce genre de truc).
Mes 2 cts,
--
jp

Cela est ton message, t'as dit que ça fonctionne, pour moi le programme se compile sans aucune erreur, mais lorsque je clic sur le bouton le NotePad.exe ne se met pas dans le TPanel mais il s'exécute comme si on utilise ShellExecute.