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;