Lister les applications en cour...

Version imprimable

12/10/2005, 21h57
deetox

Lister les applications en cour...

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.
13/10/2005, 00h20
delphichem

Regardes ici
http://membres.lycos.fr/mphilippe/trucs.htm
13/10/2005, 02h13
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.

Et avec ca ?

Code:

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);

:wink:

13/10/2005, 19h50
deetox

c'est ca !

ca ca marche !!!

Merci beaucoup !!!

Bonne soirée à tous.

DeeTOX.