我想在 Windows 任务管理器的应用程序选项卡(不是进程选项卡)中获取正在运行和可见的程序列表,并在硬盘上获取它们的位置?
我需要在 Delphi 中完成。有人可以帮忙吗?
问问题
7604 次
2 回答
4
据我所知,任务管理器中的应用程序选项卡是一个顶级窗口列表,这些窗口不属于其他窗口,没有父窗口,也不是工具窗口。在我的Process Info中,我有一个名为 AppInfo.pas 的单元,它返回具有此类特征的窗口列表,并且该列表与您在任务管理器中看到的内容相匹配。这是编写为 EnumWindows API 函数的回调函数的代码的主要部分:
{$IFDEF DELPHI2007UP}
class function TAppWindowCollection.EnumWinProc(wHandle: HWND; lparam: integer): Bool;
{$ELSE}
function EnumWinProc(wHandle: HWND; lparam: integer): Bool; stdcall;
{$ENDIF}
Const
MAX_TEXT = MAX_PATH;
var
WindowItem : TWindowItem;
strText,strClass : array [0..MAX_TEXT] of char;
IsAppMainWin : Boolean;
begin
//Check if the window is a visible application main window.
IsAppMainWin := IsWindowVisible(wHandle) AND //Visible
(GetWindow(wHandle,GW_OWNER) = 0) AND //Not owned by other windows
(GetParent(wHandle) = 0) AND //Does not have any parent
(GetWindowLong(wHandle,GWL_EXSTYLE) AND WS_EX_TOOLWINDOW = 0); //Not a tool window
if IsAppMainWin then
begin
WindowItem := TAppWindowCollection(lparam).Add;
GetWindowText(wHandle,strText,MAX_TEXT);
GetClassName(wHandle,strClass,MAX_TEXT);
WindowItem.FCaption := strText;
WindowItem.FHandle := wHandle;
WindowItem.FWindowClass := strClass;
GetWindowThreadProcessId(wHandle,WindowItem.FProcessID);
end;
Result := True;
end;
完整的源代码可以参考AppInfo.pas。
并在硬盘上获取他们的位置
这些只是窗户。如果要获取每个项目对应的EXE文件的路径,首先要找到拥有这个窗口的进程,使用GetWindowThreadProcessID API函数。这就是我在上面的代码中所做的。获得进程 ID 后,您可以从中获取进程句柄,并枚举其模块。第一个模块是主 EXE 文件。我在我的 TProcessInfo 组件中实现了这一点,该组件包含在与 AppInfo.pas 相同的包中。
于 2010-08-01T15:13:59.423 回答
3
这是一个完整的独立解决方案(不再有断开的链接)
program ApplicationList;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
Winapi.Windows,
Winapi.PsAPI;
function GetPathFromPID( const PID : cardinal ) : string;
var
hProcess : THandle;
path : array [0 .. MAX_PATH - 1] of char;
begin
hProcess := OpenProcess( PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, PID );
if hProcess <> 0
then
try
if GetModuleFileNameEx( hProcess, 0, path, MAX_PATH ) = 0
then
RaiseLastOSError;
Result := path;
finally
CloseHandle( hProcess )
end
else
RaiseLastOSError;
end;
function EnumWinProc( wHandle : hWnd; lparam : integer ) : Bool; stdcall;
Const
MAX_TEXT = MAX_PATH;
var
strText, strClass : array [0 .. MAX_TEXT] of char;
strPath : string;
IsAppMainWin : Boolean;
ProcId : cardinal;
begin
// Check if the window is a visible application main window.
IsAppMainWin := IsWindowVisible( wHandle ) AND // Visible
( GetWindow( wHandle, GW_OWNER ) = 0 ) AND // Not owned by other windows
( GetParent( wHandle ) = 0 ) AND // Does not have any parent
( GetWindowLong( wHandle, GWL_EXSTYLE ) AND WS_EX_TOOLWINDOW = 0 ); // Not a tool window
if IsAppMainWin
then
begin
GetWindowText( wHandle, strText, MAX_TEXT );
GetClassName( wHandle, strClass, MAX_TEXT );
GetWindowThreadProcessID( wHandle, ProcId );
try
strPath := GetPathFromPID( ProcId );
except
strPath := '???';
end;
WriteLn( ProcId, ' - ', strClass, ' - ', strText, ' - ', strPath );
end;
Result := True;
end;
procedure DoEnumWindows;
var
FirstWnd : cardinal;
begin
EnumWindows( @EnumWinProc, cardinal( @FirstWnd ) );
end;
begin
try
DoEnumWindows;
except
on E : Exception do
WriteLn( E.ClassName, ': ', E.Message );
end;
ReadLn;
end.
于 2013-01-07T08:22:26.097 回答