function SHLoadIndirectString(pszSource, psuOutBuf: PWideChar; const ccOutBuf:
     UINT; var ppvReserved: Pointer): HRESULT; stdcall; external 'ShLwApi.dll';
  function GetDirectStr(ArgText: WideString): string;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//=============================================================================
//  先頭が @ の文字列は文字列のリソース
//  DLL 内の文字列リソースを取り出す例
//  Windows API の SHLoadIndirectString 関数を使用して取得できる
//
//  取得した文字列は，必ずしもテキストとは限らない
//  画像ファイル，音楽ファイル等，他のオブジェクトのパス名のこともある
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LRegItem : string;
  LResText : string;
begin
  Memo1.Lines.Clear;

  LRegItem := '@%SystemRoot%\system32\shell32.dll,-31361';
  LResText := GetDirectStr(LRegItem);
  Memo1.Lines.Add(LResText);
end;

//-----------------------------------------------------------------------------
//  SHLoadIndirectString 関数を利用するための関数
//-----------------------------------------------------------------------------
function GetDirectStr(ArgText: WideString): string;
var
  LBuffer  : array [0..4095] of WideChar;
  LPointer : Pointer;
begin
  Result := '';
  if ArgText = '' then Exit;

  FillChar(LBuffer[0], SizeOf(LBuffer), #0);
  if SHLoadIndirectString(PWideChar(ArgText),
                          LBuffer,
                          Length(Lbuffer),
                          LPointer) = S_OK then begin
    Result := Lbuffer;
  end;
end;

implementation

uses
  System.StrUtils,
  Winapi.ShellAPI;

{$R *.DFM}

//=============================================================================
//  「DLL のパス名,数字」形式の文字列
//  アイコン画像のリソースを意味する
//  例 :
//    %systemRoot%\system32\shell32.dll,-13
//    C:\Windows\system32\shell32.dll,-13
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LRegItem  : string;
  LPos      : Integer;
  LFilePath : string;
  LResID    : Integer;
  LIcon     : TIcon;
begin
  Image1.Picture.Assign(nil);
  LRegItem := '%systemRoot%\system32\shell32.dll,-13';

  LPos := Pos(',', LRegItem);
  LFilePath := Copy(LRegItem, 1, LPos - 1);
  LResID    := Abs(StrToInt(Copy(LRegItem, LPos + 1, Length(LRegItem))));

  LIcon := TIcon.Create;
  try
    LIcon.Handle :=  ExtractIcon(hInstance, PChar(LFilePath), LResID);
    Image1.Picture.Assign(LIcon);
  finally
    FreeAndNil(LIcon);
  end;
end;

//=============================================================================
//  「DLL のパス名,数字」形式の文字列
//  アイコン画像のリソースを意味する
//  例 :
//    %systemRoot%\system32\shell32.dll,-13
//    C:\Windows\system32\shell32.dll,-13
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LRegItem  : string;
  LStrList  : TStringList;
  LFilePath : string;
  LResID    : Integer;
  LIcon     : TIcon;
begin
  Image1.Picture.Assign(nil);
  LRegItem := '%systemRoot%\system32\shell32.dll,-13';

  LStrList := TStringList.Create;
  LIcon := TIcon.Create;
  try
    LStrList.Text := ReplaceText(LRegItem, ',-', sLineBreak);
    LFilePath := LStrList[0];
    LResID    := StrToInt(LStrList[1]);

    LIcon.Handle :=  ExtractIcon(hInstance, PChar(LFilePath), LResID);
    Image1.Picture.Assign(LIcon);
  finally
    FreeAndNil(LIcon);
    FreeAndNil(LStrList);
  end;
end;

implementation

uses
  Winapi.ShellAPI;

{$R *.DFM}

//=============================================================================
//  DLL 内のアイコンの数を取得
//  RT_GROUP_ICON リソースの数
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LFilePath : string;
  LIconCnt  : Integer;
begin
  LFilePath := '%systemRoot%\system32\shell32.dll';

  LIconCnt :=  ExtractIcon(hInstance, PChar(LFilePath), Cardinal(-1));
  MessageBox(Handle, PChar(IntToStr(LIconCnt)), 'アイコン数', MB_ICONINFORMATION);
end;