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

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;

[Dust Signs]

Soweit ich das erkennen kann, verwendest du .NET - der Code ist aber für Win32...

Dust Signs

[SirThornberry]

THandle ist nix anderes als ein Cardinal (unter win32) und FillChar müsste in der Unit System declariert sein die bei einem win32-Projekt nicht explizit eingebunden werden muss.

[blacmesa]

Hallo, danke.

Ja war ein .NET project.
Habe jetzt auch die Win32 Projecte gefunden.

Habs jetzt geändert und ging

Best dank (verschämt guck)