Delphi ile harddiskimizin boyutunu ve boş alan boyutunu bulmak

Bu yazımızda harddiskimizin toplam boyutunu ve boş alanını bulacağız.
 

 Combobox1 içine kendi elimiz ile (daha sonra otomatik sürücü eklemeyi yazımızda belirtiriz.) Sürücü harflerini girin.(C,D,E) gibi.

Var değişlenimizi public altına yazalım. 

 var
  Disk: Integer;
...

Formumuza bir ComboBox1 ,iki label bir de button koyalım 
eventina aşağıdaki kodu ekleyelim. 

 procedure TForm1.Button1Click(Sender: TObject);
var
  Total, Free: LongInt;
begin
  Total:=DiskSize(Disk) div 1024;
  Free:=DiskFree(Disk) div 1024;
  Gauge1.MaxValue:=Total;
  Gauge1.Progress:=Free;
  Label1.Caption:='Toplam Alan - '+IntToStr(Total);
  Label2.Caption:='Boş Alan - '+IntToStr(Free);
end; 

Combobox1 Change eventına da aşağıdaki kodu ekleyelim. 

 procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Disk:=ComboBox1.ItemIndex+1;
end;

Bir daha ki yazımızda görüşmek üzere. 

Delphi ile Bilgisayarınızın Decimal Parametresini Öğrenmek

 Bu yazımızda bilgisayarın ayarlı olduğu decimal parametresini öğreniyoruz.Muhasebe programları yazarkan her bilgisayarın decimal parametresini düşünmek zorunda kalırsınız.İşte bu örnek kodlar ile decimal konusunda hata yapmazsanız.

GetLocaleInfo fonksiyonunu kullanacağız.

 Formumuza bir label ,bir button koyalım.Click eventına da aşağıdaki kodu yazalım.

procedure TForm1.Button1Click(Sender: TObject);
var
SistemDecimal: PChar;
begin
  SistemDecimal:=StrAlloc(10);
  GetLocaleInfo(
    LOCALE_SYSTEM_DEFAULT, 
    LOCALE_SDECIMAL, 
    MyDecimal, 
    10);
  Label1.Caption:='Sistemin Decimalı - "'+SistemDecimal+'"';
end;

bir sonraki yazımızda görüşmek üzere. 

Delphi ile Bilgisayar Adını Almak

 Bu yazımızda Bilgisayar adına nasıl erişiriz.Onun örneğini yapacağız.

GetComputerName fonksiyonunu kullanacağız.

 Formumuza bir Label ,bir button ekleyelim ve eventına aşağıdaki kodu yazalım.Programı derlediğinizde Buttona tıkladığınızda Label1 içine bilgisayarın adı yazacaktır.Belki bu özelliği programınızı şifrelemek
isteği için kullanabilirsiniz.

procedure TForm1.Button1Click(Sender: TObject);
var
  Bilgisayaradi: array[0..256] of Char;
  i: DWord;
begin
  i:=256;
  GetComputerName(Bilgisayaradi, i);
  Label1.Caption:=StrPas(Bilgisayaradi);
end;

Bir sonraki yazımızda görüşmek üzere. 

Delphi de Boot Sürücüyü Bulmak

 Bu yazımızda bilgisayarımızda bulunan boot sürücüyü  bulacağız.

 

Windows register ında  BootDir  değerine ulaşmamız gerekecek.

 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup:

Uses bölümüne aşağıdaki satırı ekleyelim
uses Registry; 

Formunuza bir Edit text , bir button ekleyin ve click eventına aşağıdaki kodu yazın.

 procedure TForm1.Button1Click(Sender: TObject);
begin
  with TRegistry.Create do
  begin
    RootKey:=HKEY_LOCAL_MACHINE;
    if OpenKey(
      'Software\Microsoft\Windows\CurrentVersion\Setup', 
      False) then
    try

    Edit1.Text:=ReadString('BootDir');
    except
      MessageDlg('Erişilemedi',mtError,[mbOk],0);
    end
    else
      MessageDlg('Register okumasında hata ',mtError,[mbOk],0);
    CloseKey;
  end;
end;

 

 Yeni bir yazımızda görüşmek üzere.