Marcio, obrigado pela ajuda, e me desculpe pelo erro bobo, pois estou
trabalhando apenas com uma mão, a outra está engessada e não estou escrevendo
muito bem....
----- Original Message -----
From: Marcio Amorim de Araujo
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, October 18, 2005 11:07 AM
Subject: RES: [delphi-br] Ajuda
Verificar drive (só um detalhe: drive é o hardware; driver é o programa que
controla o hardware):
function TemDiscoNoDriveA : Boolean;
var
OldMode : Integer;
begin
OldMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
Result := DiskFree(1) >= 0;
finally
SetErrorMode(OldMode);
end;
end;
Formata disco:
SHFormatDrive(Handle,0,2,1);
Márcio.
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Wilson
Valdevite
Enviada em: terça-feira, 18 de outubro de 2005 09:30
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda
Pessoal, preciso de 2 rotinas, uma para verificar se existe diskete ni driver
A e outra para formatar o mesmo.
Se alguem tiver um link ou qq coisa q fale sobre esses assuntos agradeço.
Desculpem esse pedido mas perdi todo o material que tinha sobre isso e não
estou conseguindo encontrar.
----------
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.12.2/140 - Release Date: 18/10/2005
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
<http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_ps2_celv550.gif>
________________________________
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.12.2/140 - Release Date: 18/10/2005
----------
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.12.2/140 - Release Date: 18/10/2005
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
