Delphi基础开发技巧

http://tech.ddvip.com   2007年07月23日    社区交流

内容摘要:本文介绍Delphi基础开发的一些技巧

  [DELPHI]读硬盘序列号

function GetDiskSerial(DiskChar: Char): string;
var
SerialNum : pdword;
a, b : dword;
Buffer : array [0..255] of char;
begin
result := "";
if GetVolumeInformation(PChar(diskchar+":"), Buffer, SizeOf(Buffer), SerialNum,
a, b, nil, 0) then
  Result := IntToStr(SerialNum^);
end;

  [INTERNET]CSS常用综合技巧

  1。P:first-letter { font-size: 300%; float: left }//首字会比普通字体加大三倍。

  2。//连接一个外部样式表

  3。嵌入一个样式表

  4。 //内联样式

  Arial//SPAN接受STYLE、CLASS和ID属性 DIV可以包含段落、标题、表格甚至其它部分

  5。CLASS属性 //定义见3。

  6。ID属性 //定义见3。

  7。属性列表

  字体风格:font-style: [normal | italic | oblique];

  字体大小:font-size: [xx-small | x-small | small | medium | large | x-large | xx-large | larger | smaller | <长度> | <百分比>]

  文本修饰:text-decoration:[ underline || overline || line-through || blink ]

  文本转换:text-transform:[none | capitalize | uppercase | lowercase]

  背景颜色:background-color:[<颜色> | transparent]

  背景图象:background-image:[ | none]

  行高:line-height: [normal | <数字> | <长度> | <百分比>]

  边框样式:border-style: [ none | dotted | dashed | solid | double | groove | ridge | inset | outset ]

  漂浮:float: [left | right | none]

责编:豆豆技术应用

正在加载评论...