CaptureGetResourceCount Example for Delphi 4.0
var
nCount : Integer;
begin
nCount := 0;
{are there any icons in the file?}
LEADScr1.CaptureGetResourceCount('c:\windows\calc.exe', CAPTURE_ICON, nCount);
If (nCount < 1) Then
ShowMessage('No Icons!')
else
ShowMessage('Number of Icons = ' + IntToStr(nCount));
end;