Denne artikkelen viser hvordan du formaterer en stasjon fra en Delphi application.procedure FormatDriveDialog; begynne ShellExecute (Application.Handle, 'Open', 'C: \\ Windows \\ rundll32.exe', 'Shell32.dll, SHFormatDrive', ' C: \\ Windows ', SW_SHOWNORMAL); ende; funksjon SHFormatDrive (hWnd: HWND; Drive, fmtID, Alternativer: LongInt): longint; STDCALL; ekstern 'shell32.dll'; Prosedyren QuietFormatDrive; konst 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; begynne tilfelle SHFormatDrive (Håndtak, 0, SHFMT_ID_DEFAULT, SHFMT_OPT_FULL) av SHFMT_ERROR: ShowMessage ('Feil på siste format, kan drive beformatable'); SHFMT_CANCEL: ShowMessage ('Last formatet ble kansellert'); SHFMT_NOFORMAT: ShowMessage ('Drive er ikke formatable'); end, end; Anmeldelser