Thandle und Fillchar nicht deklarierte Bezeichner?

**blacmesa**

Hallo, ich habe hier im Forum einen Code gefunden zum Auslesen von Icons.
Da wird auch ein Thandle Object benutzt. Dieses kennt Delphi aber im Moment nicht.
In der Hilfe habe ich auch nichts gefunden, wie ich das deklarieren muss.

Könnte mir da jemand unter die Arme greifen, was ich machen muss, damit diese
jetzt verfügbar sind: Das gleiche Problem habe ich mit Fillchar.

Ich benutze Delphi 2005 Personal

markieren

Code:

			interface

uses

  System.Drawing, System.Collections, System.ComponentModel,

  System.Windows.Forms, System.Data, Borland.Vcl.SyncObjs

 ,Borland.Vcl.Graphics , System.Resources, shellapi, Classes, SysUtils;

//---Wegen der Übersichtlichkeit weggelassen. Ist alles was Delphi selbst generiert hat

function FileIcon(Name: String):ticon;

var

  FileInfo: TSHFileInfo;

  ImageListHandle: THandle;

  aIcon: TIcon;

begin

  FillChar(FileInfo, SizeOf(FileInfo), #0);

  ImageListHandle := SHGetFileInfo(

    PChar(Name), 0, FileInfo, SizeOf(FileInfo),

    SHGFI_ICON or SHGFI_LARGEICON

  );

  try

    aIcon := TIcon.Create; 

    try

      aIcon.Handle := FileInfo.hIcon;

      aIcon.Transparent := True;

    except end; 

  except end;

  result:=aicon;

end;

Thandle und Fillchar nicht deklarierte Bezeichner?

Thandle und Fillchar nicht deklarierte Bezeichner?

Forumregeln