PROCEDURE THiAsmClass.GetDiscs;
  var
    i: Char;
  begin
    for i:= 'A' to 'Z' do if (GetDriveType(PChar(i+':\'))=3) then _hi_onEvent(Res,i+':\');
  end;