Hola,
No sé si se me escapará algo, es muy problable, pero, a ver qué tal parece esto:
Código Delphi
[-]
<div align="left">function RutaEsSoloUnidad(ruta: string): boolean;
resourcestring
rsErrorNoDir = 'El directorio especificado no existe';
var
unidad, resto: string;
begin
Result := true; unidad := ExtractFileDrive(ruta);
resto := AnsiReplaceStr(ruta, unidad, '');
if (resto <> '\') and (resto <> '')
and DirectoryExists(unidad + resto) then
Result := false; if not DirectoryExists(unidad + resto) then
raise EInOutError.Create(rsErrorNoDir);
end;div>
<div align="left">procedure TForm1.Button1Click(Sender: TObject);
begin
if RutaEsSoloUnidad('C:\') then
ShowMessage('Es solo una unidad')
else ShowMessage('Es otro camino');
end;div>