Api do Windows para Trocar o nome do Volume do disco


// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] AlterarNomeVolumeDisco (<UnidadeDisco> is string, <NomeVolumeDisco> is string, <debug> is boolean)
//
// Parameters:
// UnidadeDisco (ANSI string):
// NomeVolumeDisco (ANSI string): <specify the role of NomeVolumeDisco>
// debug (boolean): <specify the role of debug>
// Example:
// <Specify a usage example>
//
PROCEDURE AlterarNomeVolumeDisco(UnidadeDisco is string, NomeVolumeDisco is string, debug is boolean)

IF Length(NomeVolumeDisco) > 11 THEN
IF debug = True
Info("Nome do Volume acima de 11 caracteres")
END
RETURN False
END

IF Length(UnidadeDisco) > 2 OR Middle(UnidadeDisco,2,1) <> ":" THEN
IF debug = True
Info("Erro ao informar a Unidade de Disco fora do padrão")
END
RETURN False
ELSE
FunctionReturn is boolean = False // C type:BOOL

UnidadeDisco = Upper(NoSpace(UnidadeDisco))

NomeVolumeDisco = Upper(NoSpace(NomeVolumeDisco))

FunctionReturn = API("KERNEL32","SetVolumeLabelA",UnidadeDisco,NomeVolumeDisco)

IF debug = True
Info("Unidade de Disco "+UnidadeDisco+", alterado o nome para: "+NomeVolumeDisco)
END

RETURN True
END