Hej, Palle.
Dette kune være løsningen (Husk Uses ShellAPI):
procedure TForm1.FormatFloppy(Drive: byte);
{ proc to show the standard Windows format dialog to format a }
{ floppy drive. Pass 0 for A:\ or 1 for B:\ }
type
TSHFormatDrive = function (hWnd: HWND;
Drive: Word;
fmtID: Word;
Options: Word): Longint stdcall;
var
SHFormatDrive: TSHFormatDrive;
LibHandle: THandle;
begin
LibHandle := LoadLibrary(PChar('Shell32.dll'));
if LibHandle <> 0 then
@SHFormatDrive := GetProcAddress(LibHandle, 'SHFormatDrive')
else
begin
MessageDlg('Failed to load Shell32.dll.', mtError, [mbOK], 0);
Exit;
end;
if @SHFormatDrive <> nil then
SHFormatDrive(Application.Handle,
Drive, { 0 = A:\, 1 = B:\ }
$FFFF,
0);
FreeLibrary(LibHandle);
@SHFormatDrive := nil;
end;
Med venlig hilsen
Gunnar Martensen
"Palle M. Pedersen" <pmp@vip.cybercity.dk> skrev i en meddelelse
news:WsJW7.5598$Zm5.552964@news000.worldonline.dk...
> Jeg vil gerne slette en diskette (Delphi 5), så jeg er sikker på at der er
> rigeligt plads til det jeg vil putte ned på den.
>
> Man kan gøre det på den hårde måde ved at finde alle filer i alle mapper,
> først slette alle filer og så alle mapper.
>
> Men der må da være en nemmere måde. F.eks. en hurtig lille quick format.
Men
> jeg kan ikke finde Windows kaldet.
>
> Har nogen et tip?
>
> Hilsen Palle
>
>