◇[DELPHI]动态读取程序自身大小
function GesSelfSize: integer;
var
f: file of byte;
begin
filemode := 0;
assignfile(f, application.exename);
reset(f);
Result := filesize(f);//单位是字节
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]动态建立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); //ミMSSQL
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'');
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{接口和类申明:区别在于不能在接口中申明数据成员、任何非公有的方法、公共方法不使用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;
//调用类对象
var sample:Tsample;
begin
sample:=Tsample.create;
showmessage(sample.getstring+''class object!'');
sample.free;
end;
//调用接口
var sampleinterface:Isample;
sample:Tsample;
begin
sample:=Tsample.create;
sampleInterface:=sample;//Interface的实现必须使用class
{以上两行也可表达成sampleInterface:=Tsample.create;}
showmessage(sampleInterface.getstring+''Interface!'');
//sample.free;{和局部类不同,Interface中的类自动释放}
sampleInterface:=nil;{释放接口对象}
end;
相关推荐：
2010年计算机等考三级网络技术历年试卷考点知识点汇总 计算机等级考试二级VB上机试题及答案汇总
计算机等级考试二级VB模拟试题及答案汇总
