czesc
siedze i sziedze i szukam i nie znalazlem...
jak odczytac duza ikone dysku o podanej literze?
czesc
siedze i sziedze i szukam i nie znalazlem...
jak odczytac duza ikone dysku o podanej literze?
ExtractIconEx??
30 sekund z google + 2 minuty przeglądania wyników + 1 minuta odpalenie delphi, napisanie i test :/
var
sfi: TSHFileInfo;
begin
SHGetFileInfo('G:\', 0, sfi, SizeOf(TSHFileInfo), SHGFI_ICON or SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
DrawIcon(Canvas.Handle, 100, 100, sfi.hIcon);
DestroyIcon(sfi.hIcon);
end;
Misiekd napisał(a)
30 sekund z google + 2 minuty przeglądania wyników + 1 minuta odpalenie delphi, napisanie i test :/
to to ja wiem... tylko ze to wciaz (no chyba ze na moim xp to inaczej dziala) jest ikona 32px...
byc moze ExtractIconEx rozwiazalo by sprawe, tylko ze ta funkcja wyciaga ikony tylko z plikow exe,dll itd...
zeby pobrac ikone dysku, musialbym sprawdzac jego typ (pendrive, cd, dysk twardy...) i ladowac odpowiednia ikone z shell32.dll czy tam innej biblioteki.
dodatkowo trzeba by tez sprawdzac czy do dysku nie zostala przypisana ikona w autorun.inf...
wiem ze da sie to zrobic w ten sposob ale szukalem czegos gotowego ;]
aha, juz nawet nie wspomne o specjalnych ikonach pochadzacych ze sterownika np czytnika kart.
dobra, znalazlem :-) :
uses ShellApi, Commctrl, ShlObj;
const
SHIL_LARGE = $00; //The image size is normally 32x32 pixels. However, if the Use large icons option is selected from the Effects section of the Appearance tab in Display Properties, the image is 48x48 pixels.
SHIL_SMALL = $01; //These images are the Shell standard small icon size of 16x16, but the size can be customized by the user.
SHIL_EXTRALARGE= $02; //These images are the Shell standard extra-large icon size. This is typically 48x48, but the size can be customized by the user.
SHIL_SYSSMALL = $03; //These images are the size specified by GetSystemMetrics called with SM_CXSMICON and GetSystemMetrics called with SM_CYSMICON.
SHIL_JUMBO = $04; //Windows Vista and later. The image is normally 256x256 pixels.
IID_IImageList: TGUID= '{46EB5926-582E-4017-9FDF-E8998DAA0950}';
function GetImageListSH(SHIL_FLAG:Cardinal): HIMAGELIST;
type
_SHGetImageList = function (iImageList: integer; const riid: TGUID; var ppv: Pointer): hResult; stdcall;
var
Handle : THandle;
SHGetImageList: _SHGetImageList;
begin
Result:= 0;
Handle:= LoadLibrary('Shell32.dll');
if Handle<> S_OK then
try
SHGetImageList:= GetProcAddress(Handle, PChar(727));
if Assigned(SHGetImageList) and (Win32Platform = VER_PLATFORM_WIN32_NT) then
SHGetImageList(SHIL_FLAG, IID_IImageList, Pointer(Result));
finally
FreeLibrary(Handle);
end;
end;
Procedure GetIconFromFile(aFile:String; var aIcon : TIcon;SHIL_FLAG:Cardinal);
var
aImgList : HIMAGELIST;
SFI : TSHFileInfo;
Begin
//Get the index of the imagelist
SHGetFileInfo(PChar(aFile), FILE_ATTRIBUTE_NORMAL, SFI,
SizeOf( TSHFileInfo ), SHGFI_ICON or SHGFI_LARGEICON or SHGFI_SHELLICONSIZE or
SHGFI_SYSICONINDEX or SHGFI_TYPENAME or SHGFI_DISPLAYNAME );
if not Assigned(aIcon) then
aIcon:= TIcon.Create;
//get the imagelist
aImgList:= GetImageListSH(SHIL_FLAG);
//extract the icon handle
aIcon.Handle:= ImageList_GetIcon(aImgList, Pred(ImageList_GetImageCount(aImgList)), ILD_NORMAL);
End;
i uzycie:
var
hicon :TIcon;
begin
hicon:= TIcon.Create;
try
GetIconFromFile('C:\Tools\reflector\readme.htm',hicon,SHIL_EXTRALARGE);
Image1.Picture.Icon.Assign(hIcon); //assign to timage
finally
hIcon.Free;
end;
end;
zamiast pelnej nazwy pliku mozemy spokojnie podac samo "C:".
na viscie i nowszych mozemy dostac jeszcze wieksze ikony (256x256) podajac SHIL_JUMBO.
pozdrawiam i dzieki za pomoc
już mi się nie chce sprawdzać, ale kod jest i podziękowania więc pewnie działa (kolejne 3min :p)
szukaj pod delphi + SHGetImageList oraz delphi + SHIL_EXTRALARGE