Discussion :

[deetox]

Bonsoir,

Alors, en gros, je veux pouvoir lister les applications en cour mais pas sous forme de processus !!! Je m'explique : quand on fait ctrl+alt+supr dans windows XP, on obtient une page avec plusieurs onglets dont un nommé "applications". Je veux juste ca !!!

En fait, en synthétisé : je voudrais pouvoir récupérer les processus qui ont une fenêtre visible !!!

J'arrive pas a me dépatouiller de getmodulefilename, getwindow et tout ces trucs là !!!!

Quelqu'un peut-il m'aider ???

Merci

DeeTOX.

[delphichem]

Regardes ici
http://membres.lycos.fr/mphilippe/trucs.htm

[deetox]

bonsoir

c'est gentils, mais apparement, j'ai pas ToolsHelp sur mon pc... Je tourne avec delphi7 et quand j'le met dans les uses, il me dis que ca existe pas ! ( logique : il est pas sur mon pc )...

As tu une solutions ??? PArce que ce bout de code me semble bon, les noms des fonctions me plaise bien ! ;)

merci.

DeeTOX.

[Lung]

Et avec ca ?

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
function EnumWindowsProc(Wnd: HWND; lParam: lParam): BOOL;   stdcall;
   function GetText(Wnd: HWND): String;
   var
      nTextLength: Integer;
      Text: PChar;
   begin
      nTextLength := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);
      if nTextLength = 0 then
         Result := ''
      else
      begin
         GetMem(Text, nTextLength + 1);
         SendMessage(Wnd, WM_GETTEXT, nTextLength + 1, Integer(Text));
         Result := Text;
         FreeMem(Text);
      end;
   end;
begin
   Result := True;
      if(IsWindowVisible(Wnd) or IsIconic(wnd)) and ((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or (GetWindowLong(Wnd, GWL_HWNDPARENT) = Int(GetDesktopWindow))) and (GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0) then
      begin
         MainForm.RichEdit.Lines.Add('   Handle : ' + FormatFloat('#0000000,000', Wnd) + ',' + #9 + 'Titre :  ' + GetText(Wnd));
         Inc(MainForm._nNbFen);
      end;
end;
 
// Pour appeller.
 EnumWindows(@EnumWindowsProc, Param);

[deetox]

ca ca marche !!!

Merci beaucoup !!!

Bonne soirée à tous.

DeeTOX.