SHFormatDrive

Delphi

09/03/2003

Alguém sabe qual a uses que eu tenho que utilizar para executar esta linha de comando???

SHFormatDrive(Handle, Drv, SHFMT_ID_DEFAULT, TipoFormatacao);

Obrigado

Poeta Noturno


Poeta Noturno

Poeta Noturno

Curtidas 0

Respostas

Anonymous

Anonymous

09/03/2003

Pega ai a rotina ja pronta...

Function FormataDisquete(Drive: String; FormatarRapido: Boolean; FormatarCompleto: Boolean; CopiaSistema: Boolean): Integer;
Var Handle: HWND;
MSG: STRING;
Drv: Integer; //Indica o Drive;
TipoFormatacao: Integer;
Const
Drives = ´ABCDEFGHIJKLMNOPQRSTUVWZYZ´;
SHFMT_ID_DEFAULT = $FFFF;
begin
Handle:=Application.Handle;
Drv:=Pos(UpperCase(Drive),Drives)-1;
//Seta o Tipo de Formatacao.
if FormatarRapido then
TipoFormatacao:=0
else
if FormatarCompleto then
TipoFormatacao:=1
else
if CopiaSistema then
TipoFormatacao:=2;
Result:=SHFormatDrive(Handle, Drv, SHFMT_ID_DEFAULT, TipoFormatacao);
end;


Um Abraço
Werlon Goulart


GOSTEI 0
POSTAR