Capturar Letra do HD ativo

[LucAlucard]

Olá a todos... Gente por favor to precisando bastante de uma força de vocês de novo...

Gostaria de saber se vocês sabem de algum jeito de capturar a letra do meu HD ativo... Por exemplo: Tenho o Windows 7 no C: e o Windows XP no D: os 2 usam HDs diferentes não.. pera.. vamo complicar um pouco mais.. os dois usam o mesmo HD só estão particionados com sistemas operacionais diferentes... Alguém sabe como conseguir saber em qual letra (C: , D:) eu posso instalar um programa?

No meu caso preciso criar um programa instalavel no próprio Delphi mas preciso saber qual a letra do PC do cliente pra poder seguir a instalação (não.. pior que não posso permitir que ele escolha o diretório..)

Vlw gente vlws pela força! Um forte abraço a todos!

[Micheus]

Gostaria de saber se vocês sabem de algum jeito de capturar a letra do meu HD ativo... Por exemplo: Tenho o Windows 7 no C: e o Windows XP no D: os 2 usam HDs diferentes não.. pera.. vamo complicar um pouco mais.. os dois usam o mesmo HD só estão particionados com sistemas operacionais diferentes... Alguém sabe como conseguir saber em qual letra (C: , D:) eu posso instalar um programa?

talvez você possa verificar via variável de ambiente, não sei se no Windows7 o nome seria o mesmo, mas experimente "windir":

var
  WinDisc,
  WinPath :string;
begin
  WinPath := GetEnvironmentVariable('windir');
  WinDisc := Copy(WinPath, 1, 3);  // aqui você teria algo como 'C:\'
  ...
end;

No meu caso preciso criar um programa instalavel no próprio Delphi mas preciso saber qual a letra do PC do cliente pra poder seguir a instalação (não.. pior que não posso permitir que ele escolha o diretório..)

Em alguns casos, você pode não conseguir gravar a informação onde quizer, por não ter direito de acesso (a menos que seja um admin). De qualquer forma, veja se não fazer um mecanismo de infecção. ;)

[LucAlucard]

Vlw Micheus funcionou direitinho =D

Brigadão pela força, e pela resposta! ^^