fbpx

Como formatar disquetes pelo delphi

Como formatar disquetes pelo delphi

Share on facebook
Facebook
Share on twitter
Twitter
Share on linkedin
LinkedIn
Share on pinterest
Pinterest
Share on tumblr
Tumblr
Share on telegram
Telegram
Share on whatsapp
WhatsApp
Share on skype
Skype
Share on email
Email

Para formatar disquetes usando a API do Windows, com o Delphi, utilize as seguintes rotinas:

procedure FormatDriveDialog;
begin
ShellExecute(Application.Handle,’Open’,’C:\Windows\Rundll32.exe’,
‘Shell32.dll,SHFormatDrive’,’C:\Windows’,SW_SHOWNORMAL);
end;

function SHFormatDrive(hWnd : HWnd; Drive, fmtID, Options : LongInt):longint; stdcall; external ‘shell32.dll’;

procedure QuietFormatDrive;
const
SHFMT_ID_DEFAULT = $FFFF;
SHFMT_OPT_QUICK = $0000;
SHFMT_OPT_FULL = $0001;
SHFMT_OPT_SYSONLY = $0002;
SHFMT_ERROR = $FFFFFFFF;
SHFMT_CANCEL = $FFFFFFFE;
SHFMT_NOFORMAT = $FFFFFFFD;
begin
case SHFormatDrive(Handle, 0, SHFMT_ID_DEFAULT, SHFMT_OPT_FULL) of
SHFMT_ERROR : ShowMessage(‘Error on last format, drive may be formatable’);
SHFMT_CANCEL : ShowMessage(‘Last format was canceled’);
SHFMT_NOFORMAT : ShowMessage(‘Drive is not formatable’);
end;
end;

O que acha de nos pagar um Café ?

Se nosso conteúdo gratuito lhe ajudou de alguma forma em sua vida, ficamos muito felizes.

Ajude-nos a manter este site e expandir nosso trabalho, conhecendo o trabalho de nossos anunciantes ou fazendo uma doação.

Você pode doar qualquer valor  através do PagSeguro no link acima ou Aqui

Gostou do Post ? Compartilhe esta dica com seus amigos nas redes sociais.

Share on facebook
Facebook
Share on twitter
Twitter
Share on linkedin
LinkedIn
Share on pinterest
Pinterest
Share on tumblr
Tumblr
Share on telegram
Telegram
Share on whatsapp
WhatsApp
Share on skype
Skype
Share on email
Email

TALVEZ VOCÊ GOSTE TAMBÉM

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.