unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,disk, FileCtrl,IniFiles,Unit2;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Button1: TButton;
    Memo1: TMemo;
    DriveComboBox1: TDriveComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
function Username:string;//取得當前用戶名
function Computername:string;//取得計算機名

var
  Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.Button2Click(Sender: TObject);
var
  TotalBytes : double;
  TotalFree,x : double;
  i:double;
  drv:string;
begin
  drv:='c:\';
  GetDiskSizeAvail(pchar(drv),TotalBytes,TotalFree);
  x:= TotalBytes/1024;
  x:= x/1024;
  x:= x/1024;
  i:= int(x*100);
  i:=i /100;
  label1.Caption:= '驅動器'+drv+'總共容量: ' + FloatToStr(i)+'G字節';
  x:= TotalFree/1024;
  x:= x/1024;
  x:= x/1024;
  i:= int(x*100);
  i:=i /100;
  label2.Caption:=  '驅動器'+drv+'可用容量: ' + FloatToStr(i)+'G字節';
end;




procedure TForm1.Button1Click(Sender: TObject);
var
  x,y:integer;
  driver:pchar;
  dtype:string;
  TotalBytes : double;
  TotalFree,i : double;
  filename:string;
  myinifile:Tinifile;
begin
  filename:=ExtractFilePath(paramstr(0))+'myini.ini';//打開ini文件
  myinifile:=TInifile.Create(filename);//創建ini文件對象
{
定義
在Interface的Uses節增加IniFiles；
在Var變量定義部分增加一行：myinifile:Tinifile;

打開INI文件
myinifile:=Tinifile.create('program.ini');
上面這一行語句將會為變量myinifile與具體的文件 program.ini建立聯系，然后，就可以通過變量
myinifile，來讀寫program.ini文件中的關鍵字的值了。
值得注意的是，如果括號中的文件名沒有指明路徑的話，那么這個Program.ini文件會存儲在Windows目錄
中，
把Program.ini文件存儲在應用程序當前目錄中的方法是：為其指定完整的路徑及文件名。
下面的兩條語句可以完成這個功能：
Filename:=ExtractFilePath(Paramstr(0))+'program.ini';
myinifile:=Tinifile.Create(filename);

vs:=myinifile.Readstring('小節名'，'關鍵字'，缺省值); 讀取string類型
vi:=myinifile.Readinteger('小節名'，'關鍵字'，缺省值); 讀取integer類型
vb:=myinifile.Readbool('小節名'，'關鍵字'，缺省值); 讀取boolean類型
其中缺省值為該INI文件不存在該關鍵字時返回的缺省值。

myinifile.writestring('小節名','關鍵字',變量或字符串值); 寫入string類型
myinifile.writeinteger('小節名','關鍵字',變量或整型數值); 寫入integer類型
myinifile.writebool('小節名','關鍵字',變量或True或False); 寫入boolean類型
當這個INI文件不存在時，上面的語句還會自動創建該INI文件。

myinifile.DeleteKey('小節名','關鍵字'); 刪除關鍵字

小節操作
myinifile.EraseSection('小節名');刪除一個小節
myinifile.readsection('小節名',TStrings變量);可將指定小節中的所有關鍵字名讀取至
一個字符串列表變量中；
myinifile.readsections(TStrings變量);可將INI文件中所有小節名讀取至
一個字符串列表變量中去。
myinifile.readsectionvalues('小節名',TStrings變量);可將INI文件中指定小節的
所有行（包括關鍵字、=、值）讀取至一個字符串列表變量中去。

myinifile.destory; 釋放myinifile

}
  myinifile.writestring('名稱','服務器名',Computername);//取得計算機名
  myinifile.writestring('名稱','用戶名稱',Username);//取得用戶名稱
  memo1.Lines.append('服務器名='+myinifile.ReadString('名稱','服務器名',' '));
  memo1.Lines.append('用戶名稱='+myinifile.ReadString('名稱','用戶名稱',' '));
  y:=DriveComboBox1.Items.Count-1;
  for x :=0  to y do
  begin
    driver:=pchar(copy( DriveComboBox1.Items[x],1,2)+'\');
    dtype:=GetDiskType(driver);
    myinifile.writestring('驅動器類型',driver,dtype);
    if dtype='固定驅動器' then
      begin
        GetDiskSizeAvail(driver,TotalBytes,TotalFree);
        i:= int(TotalBytes/1024/1024/1024*100);
        i:=i /100;
        memo1.Lines.append('驅動器'+driver+'總共容量: ' + FloatToStr(i)+'G字節');
        myinifile.writestring('總共容量',driver,FloatToStr(i));
        i:= int(TotalFree/1024/1024/1024*100);
        i:=i /100;
        memo1.Lines.append('驅動器'+driver+'可用容量: ' + FloatToStr(i)+'G字節');
        myinifile.writestring('可用容量',driver,FloatToStr(i));
      end;
  end;
  myinifile.Destroy;//釋放ini文件對象

end;

procedure TForm1.Button3Click(Sender: TObject);//身份證15位升18位
var
  id:string;
begin
  id:=edit1.text;
  edit2.Text:=f(id);
end;

function Username:string;//取得當前用戶名
var
  Username : pChar;
  nSize : DWORD;
  name:string;
begin
  Username:=StrAlloc(30);
  nSize:=30;
  GetUserName(Username,nSize);
  name:=username;
  Result:=name;
  StrDispose(Username);
end;

function Computername:string;//取得計算機名
var
  Username : pChar;
  nSize : DWORD;
  name:string;
begin
  Username:=StrAlloc(30);
  nSize:=30;
  GetComputerName(Username,nSize);
  name:=username;
  Result:=name;
  StrDispose(Username);
end;

end.