Başlangıç > Kodlar > Delphi ile sürücü formatlamak

Delphi ile sürücü formatlamak

Api kullanarak Sürücü formatlama

SURUCU FORMATLAMA
SHFormatDrive API’si ile herhangi bir sürücüyü formatlamak için kullanılabilen standart format penceresi açılabilir ve format işlemi yaptırılabilir.
Bu API’nin tanımı aşağıdaki gibidir.
Function SHFormatDrive ( Handle: HWND; Drive, ID, Options: Word ) :
LongInt; stdcall; external ‘shell32.dll’;
Handle Programınızın handle numarası
Drive Formatlanacak sürücü numarası. A sürücüsünün numarası 0’dır. Ve
Diğer sürücü numaraları sırayla gider. (c=2, d=3 vb.)
Options Bu özellik formatlamanın nasıl yapılacağını belirler.
0 Tam format
1 Hızlı format
2 Windows ME öncesi sistemlerden çalışan bu özellik disketi
formatlamadan sadece sistem dosyalarının transfer edilmesini sağlar.
Fonksiyondan geriye dönen değerler ve anlamları şunlardır.
-1 Hata
-2 Formatlanmadan kapatıldı
-3 Formatlanamaz sürücü
6 Formatlandı

Bu bilgilerden sonra formumuza bir tane buton 3 tane radiobutton ve bir tanede sürücüleri sececeğimiz combobox kutusu koyuyoruz bu işlemden sonra butonun click olayına aşağıdaki kodu yazıyoruz

procedure TForm1.Button1Click(Sender: TObject);
var
x: LongInt;
surucu,ozellik:Integer;
begin
//Sürücü harfini sayıya cevir
surucu:=Ord(Upcase(DriveComboBox1.Drive))-65;
if RadioButton1.Checked Then Ozellik:=0;
if RadioButton2.Checked Then Ozellik:=1;
if RadioButton3.Checked Then Ozellik:=2;
x:=SHFormatDrive (Handle,surucu, $FFFF,ozellik);
case x of
-1: ShowMessage ('Formatlanmıyor');
-2: ShowMessage ('Formatlanmadan kapatıldı veya iptal edildi');
-3: ShowMessage ('Seçtiğiniz sürücü formatlanamaz');
6: ShowMessage ('Formatlandı');

end;

end;
end.


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: