function
SHFormatDrive(hWnd : HWND; Drive, fmtID, Options : WORD)
: longint; stdcall; external
'shell32.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin
If SHFormatDrive(Handle,0,$FFFF, 0) < 0 Then
ShowMessage('Pas de diquette dans le lecteur');
end;
|