[Rat]

Delphi 2010.
Делаю так:

Код:

procedure TFindComputerForm.FormCreate(Sender: TObject);
var
  icn: TIcon;
  WinDir: PAnsiChar;
begin
 GetMem(WinDir, 255);
 GetWindowsDirectory(WinDir, 255);
// Get standart image "computer"
  icn:=TIcon.Create;
  icn.Handle:=ExtractIcon(HInstance, WinDir+'\system32\shell32.dll', 15);
  ImageList1.AddIcon(icn);
  icn.Free;
end;

Ругается на:

Код:

 GetWindowsDirectory(WinDir, 255);
[DCC Error] FindComputerNetworkUnit.pas(90): E2010 Incompatible types: 'AnsiChar' and 'Char'

и

  icn.Handle:=ExtractIcon(HInstance, WinDir+'\system32\shell32.dll', 15);
[DCC Error] FindComputerNetworkUnit.pas(93): E2010 Incompatible types: 'string' and 'PWideChar'