Mega Code Archive

 

Categories / Delphi / System

 

Her hangibir diskin program icerisinden formatlanmasi

// Kullanilabilecek Sabitler const SHFMT_OPT_FULL = $0001; SHFMT_ERROR = $FFFFFFFF; SHFMT_CANCEL = $FFFFFFFE; SHFMT_ID_DEFAULT = $FFFF; SHFMT_OPT_QUICKFORMAT = $0000; SHFMT_OPT_SYSONLY = $0002; function SHFormatDrive(hWnd : HWND; Drive, fmtID, Options : Word) : Longint; stdcall; external 'Shell32.dll' name 'SHFormatDrive' function FormatDrive(Drive: Char): Integer; var DriveNo: Word; begin if Drive in ['a'..'z'] then Dec(Drive, $20); DriveNo := Ord(Drive) - $41; try Result := ShFormatDrive(Application.Handle,DriveNo, SHFMT_ID_DEFAULT, SHFMT_OPT_FULL); except Result := -1; end; end; // Kullanimi: procedure TForm1.Button1Click(Sender: TObject); var Result: Integer; begin Result := FormatDrive('A'); if Result < 0 then ShowMessage('Formatlama islemi basarisiz') else ShowMessage('Formatlama islemi basarili'); end;