技巧分享：計算機二級考試DELPHI基礎開發(fā)技巧

　　◇[DELPHI]動態(tài)讀取程序自身大小

　　function GesSelfSize: integer;

　　var

　　f: file of byte;

　　begin

　　filemode := 0;

　　assignfile(f, application.exename);

　　reset(f);

　　Result := filesize(f);//單位是字節(jié)

　　closefile(f);

　　end;

　　◇[DELPHI]讀取BIOS信息

　　with Memo1.Lines do

　　begin

　　Add(''MainBoardBiosName:''+^I+string(Pchar(Ptr($FE061))));

　　Add(''MainBoardBiosCopyRight:''+^I+string(Pchar(Ptr($FE091))));

　　Add(''MainBoardBiosDate:''+^I+string(Pchar(Ptr($FFFF5))));

　　Add(''MainBoardBiosSerialNo:''+^I+string(Pchar(Ptr($FEC71))));

　　end;

　　◇[DELPHI]動態(tài)建立MSSQL別名

　　procedure TForm1.Button1Click(Sender: TObject);

　　var MyList: TStringList;

　　begin

　　MyList := TStringList.Create;

　　try

　　with MyList do

　　begin

　　Add(''SERVER NAME=210.242.86.2'');

　　Add(''DATABASE NAME=db'');

　　Add(''USER NAME=sa'');

　　end;

　　Session1.AddAlias(''TESTSQL'', ''MSSQL'', MyList); //�廿進SSQL�O�W

　　Session1.SaveConfigFile;

　　finally

　　MyList.Free;

　　Session1.Active:=True;

　　Database1.DatabaseName:=''DB'';

　　Database1.AliasName:=''TESTSQL'';

　　Database1.LoginPrompt:=False;

　　Database1.Params.Add(''USER NAME=sa'');

　　Database1.Params.Add(''PASSWORD='');

　　Database1.Connected:=True;

　　end;

　　end;

　　procedure TForm1.Button2Click(Sender: TObject);

　　begin

　　Database1.Connected:=False;

　　Session1.DeleteAlias(''TESTSQL''); �O�W

　　end;

　　◇[DELPHI]播放背景音樂

　　uses mmsystem

　　//播放音樂

　　MCISendString(''OPEN e:\1.MID TYPE SEQUENCER ALIAS NN'', '''', 0, 0);

　　MCISendString(''PLAY NN FROM 0'', '''', 0, 0);

　　MCISendString(''CLOSE ANIMATION'', '''', 0, 0);

　　end;

　　//停止播放

　　MCISendString(''OPEN e:\1.MID TYPE SEQUENCER ALIAS NN'', '''', 0, 0);

　　MCISendString(''STOP NN'', '''', 0, 0);

　　MCISendString(''CLOSE ANIMATION'', '''', 0, 0);

　　◇[DELPHI]接口和類的一個范例代碼

　　Type{接口和類申明:區(qū)別在于不能在接口中申明數(shù)據(jù)成員、任何非公有的方法、公共方法不使用PUBLIC關鍵字}

　　Isample=interface//定義Isample接口

　　function getstring:string;

　　end;

　　Tsample=class(TInterfacedObject,Isample)

　　public

　　function getstring:string;

　　end;

　　//function定義

　　function Tsample.getstring:string;

　　begin

　　result:=''what show is '';

　　end;

　　//調(diào)用類對象

　　var sample:Tsample;

　　begin

　　sample:=Tsample.create;

　　showmessage(sample.getstring+''class object!'');

　　sample.free;

　　end;

　　//調(diào)用接口

　　var sampleinterface:Isample;

　　sample:Tsample;

　　begin

　　sample:=Tsample.create;

　　sampleInterface:=sample;//Interface的實現(xiàn)必須使用class

　　{以上兩行也可表達成sampleInterface:=Tsample.create;}

　　showmessage(sampleInterface.getstring+''Interface!'');

　　//sample.free;{和局部類不同,Interface中的類自動釋放}

　　sampleInterface:=nil;{釋放接口對象}

　　end;