Fórum Chamar função #217198
28/02/2004
0
[color=blue:616c56bcef]function DiskInDrive(const Drive: char): Boolean;
var
DrvNum: byte;
EMode: Word;
begin
result := false;
DrvNum := ord(Drive);
if DrvNum >= ord(´a´) then dec(DrvNum,$20);
EMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
if DiskSize(DrvNum-$40) <> -1 then result := true else messagebeep(0);
finally SetErrorMode(EMode);
end;
end;
[/color:616c56bcef]
como devo proceder para fazer esta verificação através de um Button?
Vanp
Curtir tópico
+ 0Posts
28/02/2004
Jose Luiz
Tente assim
no onclick de um botão..
DiskInDrive(a:); //nome da função + o driver a ser consultado;poderia ser c:,d: etc..
ok..
Gostei + 0
29/02/2004
Vanp
DiskInDrive(A);
da forma acima não funciona.
De repente se alguém conhecer uma outra forma de verificar se existe drive no disquete, serei muito grato.
Gostei + 0
29/02/2004
Marco Salles
if DiskInDrive(A)Then ShowMessage(´Tem Disquete No Drive "A" ´) else ShowMessage(´Não Tem Disquete No Drive "A" ´);
Gostei + 0
29/02/2004
Vanp
[Error] U_ColarNF.pas(239): Undeclared identifier: ´A´
Gostei + 0
29/02/2004
Marcelo.l
DiskInDrive(´A´);
com a letra do drive entre aspas já que é um chararacter.
Gostei + 0
29/02/2004
Marco Salles
Corrija Por Favor:
if DiskInDrive(´A´)Then ShowMessage(´Tem Disquete No Drive "A" ´) else ShowMessage(´Não Tem Disquete No Drive "A" ´);
Gostei + 0
29/02/2004
Jasig Aurumalfa
Crie uma variável booleana...
Ex: drivea :boolean;
E depois:
[b:e450800a5d]if DiskInDrive(´A´)Then
drivea:=true
else
drivea:=false;[/b:e450800a5d]
E depois²:
If drivea:=true then;
{...}
Isto é para facilitar, caso tenha muitas funções do tipo e você não tenha que colocar muitos If, e digitar isto toda vez... :wink:
Espero ter ajudado...
Gostei + 0
01/03/2004
Vanp
Valeu, Funcionou.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)