Discussion :

[colorid]

Bonjour,

L'application lancée par shellexecute est une form de dimensions connue, comment récupérer son image ?

Merci

j'avais posé la question autrement mais je l'ai déclarée résolue

[ShaiLeTroll]

Pour la traçabilité : Dimensions application lancée par ShellExecute

C'était résolu ou pas alors ?
Donc si via FindWindow, tu as pu récupérer les dimensions, maintenant avec GetDC, tu peux récupérer un équivalent du Canvas, tu peux en faire des captures d'écran avec BitBlt

En C++Builder, je viens de te pondre ceci, je te laisse le traduire, j'ai testé, le Premier BitBlt peut déconner, le temps que l'exe soit prêt à se dessiner ... les suivants sont nickel !
Couplé à un Hook, tu pourras chopper l'image en permanence !
Très important, l'application doit être visible (et je suis persuadé que tu aurais aimé la cachée !)

Code c++ :

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
void __fastcall TVCLManipForm::BtnDrawCalcInPaintBoxClick(TObject *Sender)
{
  HWND CalcHandle = FindWindow("SciCalc", NULL);
  if ( ! CalcHandle)
    ShellExecute(NULL, "open", "calc", NULL, NULL, SW_SHOW);
 
  Sleep(100);
 
  CalcHandle = FindWindow("SciCalc", NULL);
  if (CalcHandle)
  {
    HDC CalcDC = GetDC(CalcHandle);
    if (CalcDC)
    {
      TRect CalcRect;
      GetWindowRect(CalcHandle, &CalcRect);
 
      SetForegroundWindow(CalcHandle);
      Sleep(100);
 
      // Dessin dans un TImage
      BitBlt(ImageCalc->Bitmap->Canvas->Handle,
        0, 0, CalcRect.Width(), CalcRect.Height(), CalcDC, 0, 0, SRCCOPY);
 
      ReleaseDC(CalcHandle, CalcDC);
    }
  }
}

[colorid]

avec la fonction que j'ai trouvée sur le net

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
function FindWindowExtd(partialTitle: string): HWND;
var
  hWndTemp: hWnd;
  iLenText: Integer;
  cTitletemp: array [0..254] of Char;
  sTitleTemp: string;
begin
  hWndTemp := FindWindow(nil, nil);
  while hWndTemp <> 0 do begin
    iLenText := GetWindowText(hWndTemp, cTitletemp, 255);
    sTitleTemp := cTitletemp;
    sTitleTemp := UpperCase(copy( sTitleTemp, 1, iLenText));
    partialTitle := UpperCase(partialTitle);
    if pos( partialTitle, sTitleTemp ) <> 0 then
      Break;
    hWndTemp := GetWindow(hWndTemp, GW_HWNDNEXT);
  end;
  result := hWndTemp;
end;

j'obtiens une valeur de handle non négligeable, avec le titre de l'appli que j'ai lancée, mais j'en fais quoi pour récupérer l'image de la form dans une bitmap ?

[ShaiLeTroll]

j'obtiens une valeur de handle non négligeable, avec le titre de l'appli que j'ai lancée

"non négligeable" ? un handle c'est comme un pointeur, la valeur n'est pas grand intérêt, tant que différent de zéro c'est tout ce qui compte !

j'obtiens une valeur de handle non négligeable, avec le titre de l'appli que j'ai lancée, mais j'en fais quoi pour récupérer l'image de la form dans une bitmap ?

J'ai déjà donné la réponse GetDC + BitBlt
voir mon code précédent qui le copy dans le Canvas d'un TImage.Bitmap

[colorid]

L'appli que je lance par ShellExecute est GcamWiewer.exe
j'utilise la fonction suivante

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
function FindWindowExtd(partialTitle: string): HWND;
var
  hWndTemp: hWnd;
  iLenText: Integer;
  cTitletemp: array [0..254] of Char;
  sTitleTemp: string;
begin
  hWndTemp := FindWindow(nil, nil);
  while hWndTemp <> 0 do begin
    iLenText := GetWindowText(hWndTemp, cTitletemp, 255);
    sTitleTemp := cTitletemp;
    sTitleTemp := UpperCase(copy( sTitleTemp, 1, iLenText));
    partialTitle := UpperCase(partialTitle);
    if pos( partialTitle, sTitleTemp ) <> 0 then
      Break;
    hWndTemp := GetWindow(hWndTemp, GW_HWNDNEXT);
  end;
  result := hWndTemp;
end;

Puis en m'inspirant de votre code C

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
procedure TMainForm.Button3Click(Sender: TObject);
var
  WinDC : HDC;
  WinHandle: HWND;
  WinRect: TRect;
begin
  WinHandle:= FindWindowExtd('GcamViewer');
  WinDC:=GetDC(WinHandle);
  try
    GetWindowRect(WinHandle, &WinRect);
    SetForegroundWindow(WinHandle);
    Sleep(100);
    // Dessin dans un TImage
    BitBlt(Image1.Picture.Bitmap.Canvas.Handle,
      0, 0, WinRect.Right, WinRect.Bottom, WinDC, 0, 0, SRCCOPY);
  finally
    ReleaseDC(WinHandle, WinDC);
  end;
  MainForm.BringToFront;
end;

Mais cela ne marche pas les dimensions de la fenêtre de l'application ne sont pas celles trouvées dans cette dernière procédure.
J'ai pris soin de lancer l'appli avec un bouton et de ne cliquer sur le bouton 3 que lorsque l'appli est visible. En traçant la première fonction il trouve bien les fenêtres active y compris Internet explorer

[ShaiLeTroll]

Normal !
Right et Bottom ne sont pas égaux à Width() et Height()
C'est des facilités syntaxique de C++Builder

corrige ceci

Code :

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

1
2
3
4
5
6
7
 
    // Dessin dans un TImage
    Image1.Width := WinRect.Right - WinRect.Left;
    Image1.Height:= WinRect.Bottom - WinRect.Top;
 
    BitBlt(Image1.Picture.Bitmap.Canvas.Handle,
      0, 0, Image1.Width, Image1.Height, WinDC, 0, 0, SRCCOPY);

Après, il faut être sûr que cela soit la bonne fenêtre, celle qui prend le focus lors du SetForegroundWindow est la bonne ?

[Paul TOTH]

à mon avis pour récupérée la fenêtre lancée, le plus simple est de l'appelée boomerang

mais plus sérieusement il est possible de partir sur un CreateProcess pour retrouver la fenêtre du bon process.