Program İçerisinden Harddisk Formatlamak

Yazan:
6 Ekim 2010
Reklam Alanı

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 surucuNo: Word;
begin
if Drive in ['a'..'z'] then Dec(Drive, $20);
surucuNo:= Ord(Drive) – $41;
try
Result := ShFormatDrive(Application.Handle,surucuNo,
SHFMT_ID_DEFAULT,
SHFMT_OPT_FULL);
except
Result := -1;
end;
end;

Kullanım:

procedure TForm1.Button1Click(Sender: TObject);
var Result: Integer;
begin
Result := FormatDrive(‘A’);
if Result < 0 then
ShowMessage(işlem Başarısız’)
else
ShowMessage(‘Formatlama basarili’);
end;

Etiketler : Program içerisinden disk formatlamak, disk formatlamak, kod ile disk formatlamak, delphi ile disk formatlamak, harddisk formatlamak

administrator2009-08-24 00:37:50

Benzer Yazılar:

  1. Metin İçerisinden Bir Karakter Silmek
  2. CxGrid de Arama Yapmak
  3. Metnin İçerisindeki Kelime Sayısını Bulan Kod
  4. Sayılara Binde Ayracı Eklemek
  5. Yazılan Fiyatı Metine Çevirmek
  6. ListView içeriğini Dosyaya Kaydetmek ve Açmak
  7. Listbox İtemlerinin Sırasını Mause ile sürükleyerek Değiştirmek
  8. Ekran Klavyesi
  9. Delphi Yazı ile YTL Para Functionu
  10. Bilgisayardaki Sürücü Listesini Almak
 Etiketler:
Borland Delphi

Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.

Yorum yapın

Güvenlik Kodunun Resmi
*

Gizlilik Politikası