ListView Icon Transparenz Problem

[tomkupitz]

Code:

function GetWinDir: string;
var len: DWord;

begin
  len:=MAX_PATH+1;

  SetLength(result, len);

  len:=GetWindowsDirectory(PChar(result), len);

  if len>0 then
    SetLength(result, len)
  else
    RaiseLastOSError;
end;