亚洲国产日韩欧美一区二区三区,精品亚洲国产成人av在线,国产99视频精品免视看7,99国产精品久久久久久久成人热,欧美日韩亚洲国产综合乱

characters




<<Delphi6函數(shù)大全5-SysUtils.pas>>

首部      function InquireSignal(RtlSigNum: Integer): TSignalState;      $[SysUtils.pas
功能 <NULL>
說明 Kylix函數(shù)
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure      AbandonSignalHandler(RtlSigNum: Integer); $[SysUtils.pas
功能      <NULL>
說明 Kylix函數(shù)
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure      HookSignal(RtlSigNum: Integer); $[SysUtils.pas
功能 <NULL>
說明      Kylix函數(shù)
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure      UnhookSignal(RtlSigNum: Integer; OnlyIfHooked: Boolean = True);      $[SysUtils.pas
功能 <NULL>
說明 Kylix函數(shù)
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure HookOSExceptions;      $[SysUtils.pas
功能 <NULL>
說明 Kylix函數(shù)
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function MapSignal(SigNum:      Integer; Context: PSigContext): LongWord; $[SysUtils.pas
功能      <NULL>
說明 Kylix函數(shù)
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure      SignalConverter(ExceptionEIP: LongWord; FaultAddr: LongWord; ErrorCode:      LongWord); $[SysUtils.pas
功能 <NULL>
說明 Kylix函數(shù)
參考      <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure      SetSafeCallExceptionMsg(Msg: String); $[SysUtils.pas
功能      <NULL>
說明 Kylix函數(shù)
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure      SetSafeCallExceptionAddr(Addr: Pointer); $[SysUtils.pas
功能      <NULL>
說明 Kylix函數(shù)
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function      GetSafeCallExceptionMsg: String; $[SysUtils.pas
功能 <NULL>
說明      Kylix函數(shù)
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function      GetSafeCallExceptionAddr: Pointer; $[SysUtils.pas
功能 <NULL>
說明      Kylix函數(shù)
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function      LoadLibrary(ModuleName: PChar): HMODULE; $[SysUtils.pas
功能      <NULL>
說明 Kylix函數(shù)
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function FreeLibrary(Module:      HMODULE): LongBool; $[SysUtils.pas
功能 <NULL>
說明 Kylix函數(shù)
參考      <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function      GetProcAddress(Module: HMODULE; Proc: PChar): Pointer;      $[SysUtils.pas
功能 <NULL>
說明 Kylix函數(shù)
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function      GetModuleHandle(ModuleName: PChar): HMODULE; $[SysUtils.pas
功能      <NULL>
說明 Kylix函數(shù)
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function      GetPackageModuleHandle(PackageName: PChar): HMODULE; $[SysUtils.pas
功能      <NULL>
說明 Kylix函數(shù)
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure Sleep(milliseconds:      Cardinal);{$IFDEF MSWINDOWS} stdcall; {$ENDIF} $[SysUtils.pas
功能      讓程序休眠一段時間
說明 以微米為單位
參考 <NULL>
例子      Sleep(3000);
━━━━━━━━━━━━━━━━━━━━━
首部 function GetModuleName(Module:      HMODULE): string; $[SysUtils.pas
功能 返回動態(tài)連接庫的名稱
說明      如果參數(shù)為0則返回當前程序的名稱
參考 function      Windows.GetModuleFileName
例子
///////Begin GetModuleName
procedure      TForm1.Button1Click(Sender: TObject);
var
vHandle:      THandle;
begin
vHandle := LoadLibrary(PChar(Edit1.Text));
Caption      := GetModuleName(vHandle);
FreeLibrary(vHandle);
end;
///////End      GetModuleName
━━━━━━━━━━━━━━━━━━━━━
首部 function      ExceptionErrorMessage(ExceptObject: TObject; ExceptAddr: Pointer; Buffer:      PChar; Size: Integer): Integer; $[SysUtils.pas
功能 返回操作指針失敗的信息長度
說明      信息放在緩沖Buffer中
參考 function Windows.VirtualQuery;function      Windows.GetModuleFilename
例子
///////Begin      ExceptionErrorMessage
procedure TForm1.Button1Click(Sender:      TObject);
var
vBuffer: array[0..255] of      Char;
begin
ExceptionErrorMessage(Self, Self, vBuffer,      255);
Caption := vBuffer;
end;
///////End      ExceptionErrorMessage
━━━━━━━━━━━━━━━━━━━━━
首部 procedure      ShowException(ExceptObject: TObject; ExceptAddr: Pointer);      $[SysUtils.pas
功能 提示一個操作指針失敗的錯誤
說明 支持控制臺程序
參考 function      SysUtils.ExceptionErrorMessage;var System.IsConsole;function      System.FindResourceHInstance
例子 ShowException(Self,      Self);
━━━━━━━━━━━━━━━━━━━━━
首部 procedure Abort;      $[SysUtils.pas
功能 引起放棄的意外處理
說明 不顯示任何錯誤信息
參考 type      SysUtils.EAbort
例子 Abort;
━━━━━━━━━━━━━━━━━━━━━
首部 procedure      OutOfMemoryError; $[SysUtils.pas
功能 觸發(fā)內(nèi)存益出異常
說明 <NULL>
參考      var SysUtils.OutOfMemory
例子 OutOfMemoryError;
━━━━━━━━━━━━━━━━━━━━━      
首部 procedure Beep; $[SysUtils.pas
功能 觸發(fā)計算機出聲
說明      MessageBeep(0);
參考 function Windows.MessageBeep
例子      Beep;
━━━━━━━━━━━━━━━━━━━━━
首部 function ByteType(const S: string;      Index: Integer): TMbcsByteType; $[SysUtils.pas
功能      返回字符串S位置Index上的字符在MBCS中類型
說明 多字節(jié)字符系統(tǒng):Multi-Byte Character System      (MBCS)
參考 var SysUtils.SysLocale
例子 SpinEdit1.Value :=      Ord(ByteType(Edit1.Text, SpinEdit2.Value));
━━━━━━━━━━━━━━━━━━━━━
首部      function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType;      $[SysUtils.pas
功能 返回指針字符串Str位置Index上的字符在MBCS中類型
說明 Index從0開始
參考      var SysUtils.SysLocale
例子 SpinEdit1.Value :=      Ord(StrByteType(PChar(Edit1.Text),      SpinEdit2.Value));
━━━━━━━━━━━━━━━━━━━━━
首部 function      ByteToCharLen(const S: string; MaxLen: Integer): Integer;      $[SysUtils.pas
功能 返回字符串S中有多少個多字節(jié)字符
說明 MaxLen指定處理字符個數(shù)
參考 function      SysUtils.ByteToCharIndex
例子 SpinEdit1.Value :=      ByteToCharLen(Edit1.Text, SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部      function CharToByteLen(const S: string; MaxLen: Integer): Integer;      $[SysUtils.pas
功能 返回字符串S中有多少個字符
說明 MaxLen指定處理多字節(jié)字符個數(shù)
參考 var      SysUtils.SysLocale
例子 SpinEdit1.Value := CharToByteLen(Edit1.Text,      SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function      ByteToCharIndex(const S: string; Index: Integer): Integer;      $[SysUtils.pas
功能 返回字符位置對應(yīng)的多字節(jié)字符位置
說明 ByteToCharIndex('你好', 2) =      1;ByteToCharIndex('你好', 3) = 2
參考 function SysUtils.NextCharIndex
例子      SpinEdit1.Value := ByteToCharIndex(Edit1.Text,      SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function      CharToByteIndex(const S: string; Index: Integer): Integer;      $[SysUtils.pas
功能 返回多字節(jié)字符位置對應(yīng)的字符起始位置
說明 CharToByteIndex('你好', 1) =      1;CharToByteIndex('你好', 2) = 3
參考 function System.Length
例子      SpinEdit1.Value := CharToByteIndex(Edit1.Text,      SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function      StrCharLength(const Str: PChar): Integer; $[SysUtils.pas
功能      返回第一個字符的寬度
說明 參數(shù)為空則返回0
參考 function Windows.CharNext
例子      SpinEdit1.Value :=      StrCharLength(PChar(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部 function      StrNextChar(const Str: PChar): PChar; $[SysUtils.pas
功能      返回字符指針Str的下一個字符指針
說明 StrNextChar('1234') = '234';
參考 function      Windows.CharNext
例子 Edit2.Text :=      StrNextChar(PChar(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部 function      CharLength(const S: String; Index: Integer): Integer; $[SysUtils.pas
功能      返回字符串中指定位置的字符寬度
說明 CharLength('English漢', 1) = 1;CharLength('English漢',      8) = 2
參考 function System.Assert;function SysUtils.StrCharLength
例子      SpinEdit1.Value := CharLength(Edit1.Text,      SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function      NextCharIndex(const S: String; Index: Integer): Integer;      $[SysUtils.pas
功能 返回下一個字符的位置
說明 CharLength('你好', 1) =      3;CharLength('你好', 3) = 5
參考 function System.Assert;function      SysUtils.StrCharLength
例子 SpinEdit1.Value := NextCharIndex(Edit1.Text,      SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function      IsPathDelimiter(const S: string; Index: Integer): Boolean;      $[SysUtils.pas
功能 返回字符串S中指定位置Index上是否是一個路徑分隔符
說明      IsPathDelimiter('C:\Windows', 3) = True
參考 const      SysUtils.PathDelim;function SysUtils.ByteType
例子 CheckBox1.Checked :=      IsPathDelimiter(Edit1.Text,      SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function      IsDelimiter(const Delimiters, S: string; Index: Integer): Boolean;      $[SysUtils.pas
功能 返回字符串S中指定位置Index上是否是一個分隔符Delimiters
說明      IsDelimiter('@', 'wjhu111@21cn.com', 8) = True
參考 function      SysUtils.ByteType
例子 CheckBox1.Checked := IsDelimiter(Edit1.Text,      Edit2.Text, SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function      IncludeTrailingPathDelimiter(const S: string): string;      $[SysUtils.pas
功能 返回包括最后路徑分隔符
說明 最后一個字符是路徑分隔符則不變;否則加上一個路徑分隔符返回
參考      function SysUtils.IsPathDelimiter;function System.Length
例子 Edit1.Text      :=      IncludeTrailingPathDelimiter(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部      function IncludeTrailingBackslash(const S: string): string; platform;      $[SysUtils.pas
功能 返回包括最后斜線
說明 Result :=      IncludeTrailingPathDelimiter(S);
參考 function      SysUtils.IncludeTrailingPathDelimiter
例子 Edit1.Text :=      IncludeTrailingBackslash(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部      function ExcludeTrailingPathDelimiter(const S: string): string;      $[SysUtils.pas
功能 返回排除最后路徑分隔符
說明      最后一個字符不是路徑分隔符則不變;否則減去最后的路徑分隔符返回
參考 function      SysUtils.IsPathDelimiter;function System.Length;function      System.SetLength
例子 Edit1.Text :=      ExcludeTrailingPathDelimiter(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部      function ExcludeTrailingBackslash(const S: string): string; platform;      $[SysUtils.pas
功能 返回排除最后斜線
說明 Result :=      ExcludeTrailingPathDelimiter(S)
參考 function      SysUtils.ExcludeTrailingPathDelimiter
例子 Edit1.Text :=      ExcludeTrailingBackslash(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部      function LastDelimiter(const Delimiters, S: string): Integer;      $[SysUtils.pas
功能 返回最后一個分隔符的位置
說明 LastDelimiter('.',      'kingron.myetang.com') = 16
參考 function SysUtils.StrScan;function      SysUtils.ByteType
例子 SpinEdit1.Value := LastDelimiter(Edit1.Text,      Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function      AnsiCompareFileName(const S1, S2: string): Integer; $[SysUtils.pas
功能      返回比較兩個文件名
說明      當S1>S2返回值>0;當S1<S2返回值<0;當S1=S2返回值=0;區(qū)分大小寫
參考 function      SysUtils.AnsiCompareStr
例子 SpinEdit1.Value :=      AnsiCompareFileName(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━      
首部 function SameFileName(const S1, S2: string): Boolean;      $[SysUtils.pas
功能 返回兩個文件名是否相等
說明 區(qū)分大小寫
參考 function      SysUtils.AnsiCompareFileName
例子 CheckBox1.Checked :=      SameFileName(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部      function AnsiLowerCaseFileName(const S: string): string;      $[SysUtils.pas
功能 返回小寫文件名
說明 在非多字節(jié)字符系統(tǒng)上相當于AnsiLowerCase
參考      function SysUtils.AnsiLowerCase
例子 Edit2.Text :=      AnsiLowerCaseFileName(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function      AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas
功能      返回大寫文件名
說明 在非多字節(jié)字符系統(tǒng)上相當于AnsiUpperCase
參考 function      SysUtils.AnsiUpperCase
例子 Edit2.Text :=      AnsiUpperCaseFileName(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部      function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas
功能      返回子串Substr在字符中第一次出現(xiàn)的位置
說明 不存在則返回0
參考 SysUtils.AnsiStrPos
例子      SpinEdit1.Value := AnsiPos(Edit1.Text,      Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiStrPos(Str,      SubStr: PChar): PChar; $[SysUtils.pas
功能      返回指針子串Substr在指針字符中第一次出現(xiàn)的指針位置
說明 不存在則返回nil
參考 function      SysUtils.StrByteType
例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text),      PChar(Edit2.Text));
━━━━━━━━━━━━━━━━━━━━━
首部 function      AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas
功能      返回在指針字符串Str搜索字符Chr最后一個出現(xiàn)的地址
說明      支持多字節(jié)字符系統(tǒng);AnsiStrRScan('kingron.myetang.com', '.') = '.com'
參考 function      SysUtils.AnsiStrScan
例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text),      '.');
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiStrScan(Str: PChar; Chr:      Char): PChar; $[SysUtils.pas
功能 返回在指針字符串Str搜索字符Chr第一個出現(xiàn)的地址
說明      支持多字節(jié)字符系統(tǒng);AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com'
參考      function SysUtils.StrScan
例子 Edit2.Text :=      AnsiStrScan(PChar(Edit1.Text), '.');
━━━━━━━━━━━━━━━━━━━━━
首部      function StringReplace(const S, OldPattern, NewPattern: string; Flags:      TReplaceFlags): string; $[SysUtils.pas
功能 返回替換后的字符串
說明      rfReplaceAll為替換全部內(nèi)容;rfIgnoreCase為忽略大小寫
參考 function      SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function      System.Copy
例子
///////Begin StringReplace
procedure      TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Values['[]']      :=
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text,      []);
Memo1.Lines.Values['[rfReplaceAll]']      :=
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text,      [rfReplaceAll]);
Memo1.Lines.Values['[rfIgnoreCase]']      :=
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text,      [rfIgnoreCase]);
Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]']      :=
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll,      rfIgnoreCase]);
end;
///////End      StringReplace
━━━━━━━━━━━━━━━━━━━━━
首部 function WrapText(const Line,      BreakStr: string; const BreakChars: TSysCharSet; MaxCol: Integer): string;      overload; $[SysUtils.pas
首部 function WrapText(const Line: string;      MaxCol: Integer = 45): string; overload; $[SysUtils.pas
功能      返回對字符串自動換行
說明 Result := WrapText(Line, sLineBreak, [' ', '-', #9],      MaxCol);
參考 function SysUtils.CharLength;function      SysUtils.CompareText
例子 Memo1.Text := WrapText(Memo2.Text,      SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function      FindCmdLineSwitch(const Switch: string; const Chars: TSysCharSet;      IgnoreCase: Boolean): Boolean; overload; $[SysUtils.pas
首部 function      FindCmdLineSwitch(const Switch: string): Boolean; overload;      $[SysUtils.pas
首部 function FindCmdLineSwitch(const Switch: string;      IgnoreCase: Boolean): Boolean; overload; $[SysUtils.pas
功能      返回程序命令參數(shù)是否找到
說明 Result := FindCmdLineSwitch(Switch, SwitchChars,      True);
參考 function System.ParamCount;function System.ParamStr;function      SysUtils.AnsiCompareText
例子 CheckBox1.Checked :=      FindCmdLineSwitch(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 procedure      FreeAndNil(var Obj); $[SysUtils.pas
功能 釋放對象Obj并賦為空
說明      如果對象已經(jīng)釋放資源將觸發(fā)異常
參考 type System.TObject
例子
///////Begin      FreeAndNil
procedure TForm1.Button1Click(Sender:      TObject);
var
Temp: TObject;
begin
Temp :=      TObject.Create;
Temp.Free;
ShowMessage(Format('%p',      [Pointer(Temp)]));

Temp :=      TObject.Create;
FreeAndNil(Temp);
ShowMessage(Format('%p',      [Pointer(Temp)]));
end;
///////End      FreeAndNil
━━━━━━━━━━━━━━━━━━━━━
首部 function Supports(const      Instance: IInterface; const IID: TGUID; out Intf): Boolean; overload;      $[SysUtils.pas
首部 function Supports(const Instance: TObject; const IID:      TGUID; out Intf): Boolean; overload; $[SysUtils.pas
首部 function      Supports(const Instance: IInterface; const IID: TGUID): Boolean; overload;      $[SysUtils.pas
首部 function Supports(const Instance: TObject; const IID:      TGUID): Boolean; overload; $[SysUtils.pas
首部 function Supports(const      AClass: TClass; const IID: TGUID): Boolean; overload; $[SysUtils.pas
功能      返回對象是否支持指定的接口
說明 Result := AClass.GetInterfaceEntry(IID) <>      nil;
參考 type System.TObject
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━      
首部 function CreateGUID(out Guid: TGUID): HResult; $[SysUtils.pas
功能      返回創(chuàng)建全局標識是否成功
說明 返回S_OK表示成功
參考 function      Windows.CoCreateGuid
例子
///////Begin CreateGUID
procedure      TForm1.Button1Click(Sender: TObject);
var
vGUID:      TGUID;
begin
CreateGUID(vGUID);
Edit1.Text :=      GUIDToString(vGUID);
end;
///////End      CreateGUID
━━━━━━━━━━━━━━━━━━━━━
首部 function StringToGUID(const S:      string): TGUID; $[SysUtils.pas
功能 返回字符串S轉(zhuǎn)換成全局標識
說明      如果字符串非法將觸發(fā)異常
參考 fuction Windows.Succeeded
例子 Edit2.Text :=      GUIDToString(StringToGUID(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部      function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas
功能      返回全局標識GUID轉(zhuǎn)換成字符串
說明 <NULL>
參考 fuction Windows.Succeeded
例子      Edit2.Text :=      GUIDToString(StringToGUID(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部      function IsEqualGUID(const guid1, guid2: TGUID): Boolean;      $[SysUtils.pas
功能 返回兩個全局標識是否相同
說明 function IsEqualGUID; external      'ole32.dll' name 'IsEqualGUID';
參考 <NULL>
例子 CheckBox1.Checked      := IsEqualGUID(StringToGUID(Edit1.Text),      StringToGUID(Edit2.Text));
━━━━━━━━━━━━━━━━━━━━━
首部 function      LoadPackage(const Name: string): HMODULE; $[SysUtils.pas
功能      返回載入包資源
說明 <NULL>
參考 function      SysUtils.SafeLoadLibrary;function SysUtils.InitializePackage;function      Windows.FreeLibrary
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部      procedure UnloadPackage(Module: HMODULE); $[SysUtils.pas
功能      取消載入包資源
說明 <NULL>
參考 function      SysUtils.FinalizePackage;function Windows.FreeLibrary
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure      GetPackageInfo(Module: HMODULE; Param: Pointer; var Flags: Integer;      InfoProc: TPackageInfoProc); $[SysUtils.pas
功能 返回包的信息
說明      <NULL>
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function      GetPackageDescription(ModuleName: PChar): string; $[SysUtils.pas
功能      返回包的描述
說明 <NULL>
參考 function      System.LoadResourceModule;function Windows.LoadLibraryEx
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure      InitializePackage(Module: HMODULE); $[SysUtils.pas
功能 初始化包
說明      <NULL>
參考 function Windos.GetProcAddress
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure      FinalizePackage(Module: HMODULE); $[SysUtils.pas
功能 終止化包
說明      <NULL>
參考 function Windos.GetProcAddress
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure RaiseLastOSError;      $[SysUtils.pas
功能 觸發(fā)操作系統(tǒng)的最后一個異常
說明 如果沒有出現(xiàn)異常則默認調(diào)用Api函數(shù)異常
參考      function Windows.GetLastError
例子      RaiseLastOSError;
━━━━━━━━━━━━━━━━━━━━━
首部 procedure      RaiseLastWin32Error; deprecated; $[SysUtils.pas
功能      觸發(fā)Win32系統(tǒng)的最后一個異常
說明 如果沒有出現(xiàn)異常則默認調(diào)用Api函數(shù)異常
參考 function      SysUtils.RaiseLastOSError;
例子      RaiseLastWin32Error;
━━━━━━━━━━━━━━━━━━━━━
首部 function      Win32Check(RetVal: BOOL): BOOL; platform; $[SysUtils.pas
功能      返回檢測調(diào)用系統(tǒng)Api函數(shù)返回結(jié)果
說明 如果RetVal為False則觸發(fā)異常
參考 function      SysUtils.RaiseLastOSError
例子 CheckBox2.Checked :=      Win32Check(CheckBox1.Checked);
━━━━━━━━━━━━━━━━━━━━━
首部 procedure      AddTerminateProc(TermProc: TTerminateProc); $[SysUtils.pas
功能      添加一個退出過程到系統(tǒng)中
說明 執(zhí)行AddTerminateProc(nil)將導致系統(tǒng)異常
參考 const      System.TerminateProcList
例子
///////Begin      AddTerminateProc
function NewTerminateProc: Boolean;
begin
Result      := True;
ShowMessage('NewTerminateProc');
end;

procedure      TForm1.Button1Click(Sender:      TObject);
begin
AddTerminateProc(NewTerminateProc);
end;
///////End      AddTerminateProc
━━━━━━━━━━━━━━━━━━━━━
首部 function      CallTerminateProcs: Boolean; $[SysUtils.pas
功能 返回調(diào)用退出過程是否成功
說明      不建議調(diào)用
參考 const System.TerminateProcList
例子      CallTerminateProcs;
━━━━━━━━━━━━━━━━━━━━━
首部 function GDAL:      LongWord; $[SysUtils.pas
功能 <NULL>
說明 <NULL>
參考      <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure      RCS; $[SysUtils.pas
功能 <NULL>
說明 <NULL>
參考      <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure      RPR; $[SysUtils.pas
功能 <NULL>
說明 <NULL>
參考      <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function      SafeLoadLibrary(const Filename: string; ErrorMode: UINT =      SEM_NOOPENFILEERRORBOX): HMODULE; $[SysUtils.pas
功能      返回安全方式載入動態(tài)連接庫資源
說明 <參見LoadLibrary>
參考 function      Windows.LoadLibrary
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部      function GetEnvironmentVariable(const Name: string): string; overload;      $[SysUtils.pas
功能 返回過程環(huán)境變量
說明 配合SetEnvironmentVariable函數(shù)使用
參考      function Windows.GetEnvironmentVariable
例子 Edit1.Text :=      GetEnvironmentVariable(Edit2.Text);
///////Begin      GetEnvironmentVariable
procedure TForm1.Button1Click(Sender:      TObject);
begin
SetEnvironmentVariable(PChar(Edit2.Text),      PChar(Edit3.Text));
Edit1.Text :=      GetEnvironmentVariable(Edit2.Text);
end;
///////End      GetEnvironmentVariable
━━━━━━━━━━━━━━━━━━━━━
首部 function      InterlockedIncrement(var I: Integer): Integer; $[SysUtils.pas
功能      <NULL>
說明 Kylix函數(shù)
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function      InterlockedDecrement(var I: Integer): Integer; $[SysUtils.pas
功能      <NULL>
說明 Kylix函數(shù)
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function      InterlockedExchange(var A: Integer; B: Integer): Integer;      $[SysUtils.pas
功能 <NULL>
說明 Kylix函數(shù)
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function      InterlockedExchangeAdd(var A: Integer; B: Integer): Integer;      $[SysUtils.pas
功能 <NULL>
說明 Kylix函數(shù)
參考 <NULL>
例子      <NULL>
━━━━━━━━━━━━━━━━━━━━━

Previous article： Next article：