Delphi6函数大全5-SysUtils.pas

帆帆资源网 · 发表于 2024-2-26 21:32:39

Delphi6函数大全5-SysUtils.pas

首部    function InquireSignal(RtlSigNum: Integer): TSignalState;    $[SysUtils.pas
功能 <NULL>
说明 Kylix函数
参考 <NULL>
例子    <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure    AbandonSignalHandler(RtlSigNum: Integer); $[SysUtils.pas
功能    <NULL>
说明 Kylix函数
参考 <NULL>
例子    <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure    HookSignal(RtlSigNum: Integer); $[SysUtils.pas
功能 <NULL>
说明    Kylix函数
参考 <NULL>
例子    <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure    UnhookSignal(RtlSigNum: Integer; OnlyIfHooked: Boolean = True);    $[SysUtils.pas
功能 <NULL>
说明 Kylix函数
参考 <NULL>
例子    <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure HookOSExceptions;    $[SysUtils.pas
功能 <NULL>
说明 Kylix函数
参考 <NULL>
例子    <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function MapSignal(SigNum:    Integer; Context: PSigContext): LongWord; $[SysUtils.pas
功能    <NULL>
说明 Kylix函数
参考 <NULL>
例子    <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure    SignalConverter(ExceptionEIP: LongWord; FaultAddr: LongWord; ErrorCode:    LongWord); $[SysUtils.pas
功能 <NULL>
说明 Kylix函数
参考    <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure    SetSafeCallExceptionMsg(Msg: String); $[SysUtils.pas
功能    <NULL>
说明 Kylix函数
参考 <NULL>
例子    <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure    SetSafeCallExceptionAddr(Addr: Pointer); $[SysUtils.pas
功能    <NULL>
说明 Kylix函数
参考 <NULL>
例子    <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function    GetSafeCallExceptionMsg: String; $[SysUtils.pas
功能 <NULL>
说明    Kylix函数
参考 <NULL>
例子    <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function    GetSafeCallExceptionAddr: Pointer; $[SysUtils.pas
功能 <NULL>
说明    Kylix函数
参考 <NULL>
例子    <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function    LoadLibrary(ModuleName: PChar): HMODULE; $[SysUtils.pas
功能    <NULL>
说明 Kylix函数
参考 <NULL>
例子    <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function FreeLibrary(Module:    HMODULE): LongBool; $[SysUtils.pas
功能 <NULL>
说明 Kylix函数
参考    <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function    GetProcAddress(Module: HMODULE; Proc: PChar): Pointer;    $[SysUtils.pas
功能 <NULL>
说明 Kylix函数
参考 <NULL>
例子    <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function    GetModuleHandle(ModuleName: PChar): HMODULE; $[SysUtils.pas
功能    <NULL>
说明 Kylix函数
参考 <NULL>
例子    <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function    GetPackageModuleHandle(PackageName: PChar): HMODULE; $[SysUtils.pas
功能    <NULL>
说明 Kylix函数
参考 <NULL>
例子    <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure Sleep(milliseconds:    Cardinal);{$IFDEF MSWINDOWS} stdcall; {$ENDIF} $[SysUtils.pas
功能    让程序休眠一段时间
说明以微米为单位
参考 <NULL>
例子    Sleep(3000);
━━━━━━━━━━━━━━━━━━━━━
首部 function GetModuleName(Module:    HMODULE): string; $[SysUtils.pas
功能返回动态连接库的名称
说明    如果参数为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
功能触发内存益出异常
说明 <NULL>
参考    var SysUtils.OutOfMemory
例子 OutOfMemoryError;
━━━━━━━━━━━━━━━━━━━━━
首部 procedure Beep; $[SysUtils.pas
功能触发计算机出声
说明    MessageBeep(0);
参考 function Windows.MessageBeep
例子    Beep;
━━━━━━━━━━━━━━━━━━━━━
首部 function ByteType(const S: string;    Index: Integer): TMbcsByteType; $[SysUtils.pas
功能    返回字符串S位置Index上的字符在MBCS中类型
说明多字节字符系统: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中有多少个多字节字符
说明 MaxLen指定处理字符个数
参考 function    SysUtils.ByteToCharIndex
例子 SpinEdit1.Value :=    ByteToCharLen(Edit1.Text, SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部    function CharToByteLen(const S: string; MaxLen: Integer): Integer;    $[SysUtils.pas
功能返回字符串S中有多少个字符
说明 MaxLen指定处理多字节字符个数
参考 var    SysUtils.SysLocale
例子 SpinEdit1.Value := CharToByteLen(Edit1.Text,    SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function    ByteToCharIndex(const S: string; Index: Integer): Integer;    $[SysUtils.pas
功能返回字符位置对应的多字节字符位置
说明 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
功能返回多字节字符位置对应的字符起始位置
说明 CharToByteIndex('你好', 1) =    1;CharToByteIndex('你好', 2) = 3
参考 function System.Length
例子    SpinEdit1.Value := CharToByteIndex(Edit1.Text,    SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function    StrCharLength(const Str: PChar): Integer; $[SysUtils.pas
功能    返回第一个字符的宽度
说明参数为空则返回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;区分大小写
参考 function    SysUtils.AnsiCompareStr
例子 SpinEdit1.Value :=    AnsiCompareFileName(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function SameFileName(const S1, S2: string): Boolean;    $[SysUtils.pas
功能返回两个文件名是否相等
说明区分大小写
参考 function    SysUtils.AnsiCompareFileName
例子 CheckBox1.Checked :=    SameFileName(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部    function AnsiLowerCaseFileName(const S: string): string;    $[SysUtils.pas
功能返回小写文件名
说明在非多字节字符系统上相当于AnsiLowerCase
参考    function SysUtils.AnsiLowerCase
例子 Edit2.Text :=    AnsiLowerCaseFileName(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function    AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas
功能    返回大写文件名
说明在非多字节字符系统上相当于AnsiUpperCase
参考 function    SysUtils.AnsiUpperCase
例子 Edit2.Text :=    AnsiUpperCaseFileName(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部    function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas
功能    返回子串Substr在字符中第一次出现的位置
说明不存在则返回0
参考 SysUtils.AnsiStrPos
例子    SpinEdit1.Value := AnsiPos(Edit1.Text,    Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiStrPos(Str,    SubStr: PChar): PChar; $[SysUtils.pas
功能    返回指针子串Substr在指针字符中第一次出现的指针位置
说明不存在则返回nil
参考 function    SysUtils.StrByteType
例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text),    PChar(Edit2.Text));
━━━━━━━━━━━━━━━━━━━━━
首部 function    AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas
功能    返回在指针字符串Str搜索字符Chr最后一个出现的地址
说明    支持多字节字符系统;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第一个出现的地址
说明    支持多字节字符系统;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为替换全部内容;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
功能    返回程序命令参数是否找到
说明 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并赋为空
说明    如果对象已经释放资源将触发异常
参考 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
功能    返回创建全局标识是否成功
说明返回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转换成全局标识
说明    如果字符串非法将触发异常
参考 fuction Windows.Succeeded
例子 Edit2.Text :=    GUIDToString(StringToGUID(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部    function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas
功能    返回全局标识GUID转换成字符串
说明 <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
功能触发操作系统的最后一个异常
说明如果没有出现异常则默认调用Api函数异常
参考    function Windows.GetLastError
例子    RaiseLastOSError;
━━━━━━━━━━━━━━━━━━━━━
首部 procedure    RaiseLastWin32Error; deprecated; $[SysUtils.pas
功能    触发Win32系统的最后一个异常
说明如果没有出现异常则默认调用Api函数异常
参考 function    SysUtils.RaiseLastOSError;
例子    RaiseLastWin32Error;
━━━━━━━━━━━━━━━━━━━━━
首部 function    Win32Check(RetVal: BOOL): BOOL; platform; $[SysUtils.pas
功能    返回检测调用系统Api函数返回结果
说明如果RetVal为False则触发异常
参考 function    SysUtils.RaiseLastOSError
例子 CheckBox2.Checked :=    Win32Check(CheckBox1.Checked);
━━━━━━━━━━━━━━━━━━━━━
首部 procedure    AddTerminateProc(TermProc: TTerminateProc); $[SysUtils.pas
功能    添加一个退出过程到系统中
说明执行AddTerminateProc(nil)将导致系统异常
参考 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
功能返回调用退出过程是否成功
说明    不建议调用
参考 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
功能    返回安全方式载入动态连接库资源
说明 <参见LoadLibrary>
参考 function    Windows.LoadLibrary
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部    function GetEnvironmentVariable(const Name: string): string; overload;    $[SysUtils.pas
功能返回过程环境变量
说明配合SetEnvironmentVariable函数使用
参考    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函数
参考 <NULL>
例子    <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function    InterlockedDecrement(var I: Integer): Integer; $[SysUtils.pas
功能    <NULL>
说明 Kylix函数
参考 <NULL>
例子    <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function    InterlockedExchange(var A: Integer; B: Integer): Integer;    $[SysUtils.pas
功能 <NULL>
说明 Kylix函数
参考 <NULL>
例子    <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function    InterlockedExchangeAdd(var A: Integer; B: Integer): Integer;    $[SysUtils.pas
功能 <NULL>
说明 Kylix函数
参考 <NULL>
例子    <NULL>

		自动登录	找回密码
密码			立即注册

[Delphi教程] Delphi6函数大全5-SysUtils.pas

相关帖子

客服中心

投诉建议