Delphi 根据进程ID获取程序ICO图标

本文整理自网络，侵删。

 
uses  Winapi.ShellAPI,
  Winapi.TlHelp32;


function GetProcessFullPath(APid: Cardinal): string;
var
  hModuleSnap: THandle;
  ModuleEntry: TModuleEntry32;
begin
  Result := '';
  hModuleSnap := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, APid);
  if (hModuleSnap = INVALID_HANDLE_VALUE) then Exit;
  try
    FillChar(ModuleEntry, SizeOf(TModuleEntry32), #0);
    ModuleEntry.dwSize := SizeOf(TModuleEntry32);
    if not Module32First(hModuleSnap, ModuleEntry) then Exit;
    Result := PChar(@ModuleEntry.szExePath[0]);
  finally
    CloseHandle(hModuleSnap);
  end;
end;


function GetProcessIco(APid: Cardinal): HICON;
var
  lpiIcon: Word;
begin
  lpiIcon := 0;
  Result := ExtractAssociatedIcon(HInstance,PChar(GetProcessFullPath(APid)), lpiIcon);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Picture.Icon.Handle:=GetProcessIco(17036);

end;

效果图：

 

相关阅读 >>

Delphi copy 从字符串中复制指定范围中的字符

Delphi 跨平台打开网址链接

Delphi 下载整个网站图片例子

Delphi vcl 的 tpagecontrol 控件，实现对页签的拖动

Delphi判断电脑是否安装了excel

Delphi tcolortohex 与 hextotcolor

Delphi windowsapi: muldiv

Delphi中sendmessage给一个edit控件发送wm_settext消息

Delphi xe system.netencoding 字符串base64编码解码

Delphi win32_networkadapter 网卡 参数说明

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 根据进程ID获取程序ICO图标