formatar hd - excluir partição
olá pessoal,
gostaria de saber se existe alguma rotina do delphi que formate hd ou exclua partição, se existir alguém pode mostrar o código.
gostaria de saber se existe alguma rotina do delphi que formate hd ou exclua partição, se existir alguém pode mostrar o código.
Awtb
Curtidas 0
Respostas
Nigro
09/01/2004
Isso tá mei cheirando a trrojan ou virus... em Delphi não sei como fazer, creio que a saída seria você verificar como isso é feito em Assembler, assim você roda a rotina em Assembler dentrro do Delphi
GOSTEI 0
Awtb
09/01/2004
ok, nigro valeu, mas eu gostaria de saber mermo o código no delphi, pois já procurei na net inteira é não encontrei nada deste tipo para delphi, o que me deixa encucado é que eu não acredito que numa ferramenta de desenvolvimento de grande porte como é o delphi não exista um código desses. não acredito.
ou senão a galera não tá querendo passar pra nois, mas é isso vamo esperar se tem algum cabra de bom coração que saiba e passe pra nois.
valeu, meu chapa
ou senão a galera não tá querendo passar pra nois, mas é isso vamo esperar se tem algum cabra de bom coração que saiba e passe pra nois.
valeu, meu chapa
GOSTEI 0
Nigro
09/01/2004
Esse código abaixo é para formatar disquete, eu nunca usei, mas se quiser dar uma olhada e ver se como formatar a hd... manda bala... outra coisa, acho que o Windows não iria deixa formatar a hd... segue o código...
Coloque o código abaixo imediatamente abaixo da palavra implementation:
const
SHFMT_ID_DEFAULT = $FFFF;
{ Opções de formatação }
SHFMT_OPT_QUICKFORMAT = $0000; { Formatação rápida }
SHFMT_OPT_FULL = $0001; { Formatação completa }
SHFMT_OPT_SYSONLY = $0002; { Copia sistema }
{ Códigos de errros }
SHFMT_ERROR = $FFFFFFFF; { Ocorreu erro }
SHFMT_CANCEL = $FFFFFFFE; { Foi cancelado }
SHFMT_NOFORMAT = $FFFFFFFD; { Não formatou }
function SHFormatDrive(Handle: HWND; Drive, ID, Options: Word):LongInt;
stdcall; external ´shell32.dll´ name ´SHFormatDrive´
{ Coloque um botão no form e altere o evento OnClick dele conforme
abaixo: }
procedure TForm1.Button3Click(Sender: TObject);
var
Erro: DWord;
Msg: string;
begin
Erro := SHFormatDrive(Handle, 0, SHFMT_ID_DEFAULT,
SHFMT_OPT_QUICKFORMAT);
case Erro of
SHFMT_ERROR: Msg := ´Ocorreu um erro.´;
SHFMT_CANCEL: Msg := ´A formatação foi cancelada.´;
SHFMT_NOFORMAT: Msg := ´Não foi possível formatar.´;
else
Msg := ´Disco formatado com sucesso.´;
end;
ShowMessage(Msg);
end;
Observações: Para formatação completa troque SHFMT_OPT_QUICKFORMAT por
SHFMT_OPT_FULL. O segundo parâmetro (zero no exemplo) indica a unidade, sendo
que A é 0 (zero), B é 1, etc.
Coloque o código abaixo imediatamente abaixo da palavra implementation:
const
SHFMT_ID_DEFAULT = $FFFF;
{ Opções de formatação }
SHFMT_OPT_QUICKFORMAT = $0000; { Formatação rápida }
SHFMT_OPT_FULL = $0001; { Formatação completa }
SHFMT_OPT_SYSONLY = $0002; { Copia sistema }
{ Códigos de errros }
SHFMT_ERROR = $FFFFFFFF; { Ocorreu erro }
SHFMT_CANCEL = $FFFFFFFE; { Foi cancelado }
SHFMT_NOFORMAT = $FFFFFFFD; { Não formatou }
function SHFormatDrive(Handle: HWND; Drive, ID, Options: Word):LongInt;
stdcall; external ´shell32.dll´ name ´SHFormatDrive´
{ Coloque um botão no form e altere o evento OnClick dele conforme
abaixo: }
procedure TForm1.Button3Click(Sender: TObject);
var
Erro: DWord;
Msg: string;
begin
Erro := SHFormatDrive(Handle, 0, SHFMT_ID_DEFAULT,
SHFMT_OPT_QUICKFORMAT);
case Erro of
SHFMT_ERROR: Msg := ´Ocorreu um erro.´;
SHFMT_CANCEL: Msg := ´A formatação foi cancelada.´;
SHFMT_NOFORMAT: Msg := ´Não foi possível formatar.´;
else
Msg := ´Disco formatado com sucesso.´;
end;
ShowMessage(Msg);
end;
Observações: Para formatação completa troque SHFMT_OPT_QUICKFORMAT por
SHFMT_OPT_FULL. O segundo parâmetro (zero no exemplo) indica a unidade, sendo
que A é 0 (zero), B é 1, etc.
GOSTEI 0
Awtb
09/01/2004
OK cara funcionou blz, consegui fazer com o que o programa enchergasse a unidade C e tentasse formatá-la mas porém ao tentar o ruindows não deixar porque a unidade está em uso, mas mesmo assim obrigado............ vamos tentar achar outro código ou implementar que forçe uma formatação mesmo com a mensagem do windows, valeu.
quem souber por vafor poste aqui..... prá nois
quem souber por vafor poste aqui..... prá nois
GOSTEI 0