Como faço para chama esta Função ??

Delphi

17/02/2004

Eu quero o seguinte quando click no botão chamar esta função abaixo??
para verificar se o disquete esta no drive............[ ]s...jairo

[b:2296a361a0]function DiskInDrive(Drive: Char): Boolean;
// Disk can be a floppy, CD-ROM,...
var
ErrorMode: Word;
begin
{ make it upper case }
if Drive in [´a´..´z´] then Dec(Drive, $20);
{ make sure it´s a letter }
if not (Drive in [´A´..´Z´]) then
raise EConvertError.Create(´Not a valid drive ID´);
{ turn off critical errors }
ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
try
{ drive 1 = a, 2 = b, 3 = c, etc. }
if DiskSize(Ord(Drive) - $40) = -1 then
Result := False
else
Result := True;
finally
{ Restore old error mode }
SetErrorMode(ErrorMode);
end; [/b:2296a361a0]


Jairo-go

Jairo-go

Curtidas 0

Respostas

Maicongabriel

Maicongabriel

17/02/2004

if DiskInDrive(´A´) then 
  ShowMessage(´O Disquete esta no Drive!´)
else
  ShowMessage(´O Disquete não esta no Drive!´);
:wink:


GOSTEI 0
Jairo-go

Jairo-go

17/02/2004

maicongabriel.........muito obrigado pela dica.....[ ]s.....Jairo-GO


GOSTEI 0
POSTAR