É partição NTFS ?
Código
{*****
* IsNTFS()
* Retorna 'True' se a partição é NTFS
*
* Autor: Jociel Eloy de Almeida
* Data: 07/AGO/2006
*}
FUNCTION IsNTFS(sFileName: String): Boolean;
var
oFso, oDrv: OleVariant;
begin
Result := False;
oFso := CreateOleObject('Scripting.FileSystemObject');
oDrv := oFso.GetDrive(oFso.GetDriveName(sFileName));
Result := oDrv.FileSystem = 'NTFS'
end;
Publicidade
Vote na dica
Quantidade de votos: 0 votos
Aceitação: 0%
Detalhes da dica
Categoria: Windows
Adicionada dia: 13/12/09
Por: Jociel Eloy De Almeida
Visualizada: 1919 vezes
Adicionada dia: 13/12/09
Por: Jociel Eloy De Almeida
Visualizada: 1919 vezes
COLUNISTAS
Publicidade
Enquete
O que achou do novo site?
Validações
Publicidade
Enquete
O que achou do novo site?
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009