Pesquisar Neste Blog 1

Função: Verifica se a Unidade e de CD ROM - Códigos Delphi

0

Código Delphi

// Função: Verifica se é Unidade de CD ROM.

// Verifica se a Unidade Especificada é um CD-Rom.

Código

function IsDriveCD(Drive : char) : longbool;
var
DrivePath : string;
TipDrive : Integer;
begin
DrivePath := Drive + ':\';
TipDrive := GetDriveType(PChar(DrivePath));
if TipDrive = 5 then
begin
Result := True;
end
else
begin
Result := False;
end;
end;

Postar um comentário

0 Comentários
* Por Favor, Não Faça Spam Aqui. Todos os Comentários São Revisados Pelo Administrador.
Postar um comentário (0)

#buttons=(Aceito !) #days=(365)

COOKIES: Esse Site Guarda Estatísticas de Visitas Para Melhorar a Sua Experiência de Navegação e Disponibilizar Funcionalidades Adicionais, Saiba Mais em Nossa Política de Privacidade
Aceito !