摘要:
具体代码 procedure SetDefaultPrinter(NewDefPrinter: string); var ResStr: array[0..255] of Char; begin StrPCopy(ResStr, NewdefPrinter); WriteProfileString( 阅读全文
摘要:
选择语句: 1.If…Then…Else选择语句: If (表达式) Then Begin 语句块; End Else If(表达式) Then Begin 语句块; End; Else Begin 语句块; End; 2.Case…Of…Else多分支控制语句: Case (表达式) Of 情况常 阅读全文