Delphi6函数大全5-SysUtils.pas

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>
━━━━━━━━━━━━━━━━━━━━━

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/591326.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

为什么选择 IBM LSF?

IBM Spectrum Computing 推出了全面的软件定义基础架构解 决方案产品组合&#xff0c;从而优化资源利用率以缩短成果实现时间并 降低成本&#xff0c;以高效地交付 IT 服务。IBM Spectrum Computing 解决方案非常适合技术和 HPC 应用&#xff0c;旨在简化和加速高性能 仿真和分…

Windows本地如何部署Apache服务器搭配内网穿透实现无公网IP远程访问?

文章目录 前言1.Apache服务安装配置1.1 进入官网下载安装包1.2 Apache服务配置 2.安装cpolar内网穿透2.1 注册cpolar账号2.2 下载cpolar客户端 3. 获取远程桌面公网地址3.1 登录cpolar web ui管理界面3.2 创建公网地址 4. 固定公网地址 前言 Apache作为全球使用较高的Web服务器…

【Kotlin】协程

Kotlin协程 背景定义实践GlobalScope.launchrunBlocking业务实践 背景 在项目实践过程中&#xff0c;笔者发现很多异步或者耗时的操作&#xff0c;都使用了Kotlin中的协程&#xff0c;所以特地研究了一番。 定义 关于协程&#xff08;Coroutine&#xff09;&#xff0c;其实…

深度学习|3.6 激活函数 3.7 为什么需要非线性激活函数

激活函数 主要有sigmoid函数、tanh函数、relu函数和leaky relu函数 tanh函数相比sigmoid函数是具有优势的&#xff0c;因为tanh函数使得输出值的平均值为0&#xff0c;而sigmoid函数使得输出值的平均值为1/2&#xff0c;对下一层来说tanh输出的0更好进行处理。 激活函数tanh…

# .NET Framework中使用命名管道进行进程间通信

.NET Framework中使用命名管道进行进程间通信 在.NET应用程序中&#xff0c;进程间通信&#xff08;IPC&#xff09;是一项常见需求。命名管道提供了一种高效、可靠的方式来在独立运行的进程之间传输数据。本文将展示如何在.NET Framework环境下创建一个WinForms管道客户端应用…

DIA数皆智能客户体验管理CEM获伊利“健康+AI”生态创新大奖

DIA数皆智能客户体验管理CEM获伊利“健康AI”生态创新大奖 数皆智能再获殊荣&#xff01; 北京&#xff0c;2023年12月26日 — 在全球瞩目的伊利集团“健康AI”生态创新大赛中&#xff0c;上海数皆智能技术有限公司大放异彩&#xff0c;其创新领先的“智能化客户体验管理CEM&a…

置顶> 个人学习记录一览

个人学习记录一览表 写个说明   知识学的好&#xff0c;不如笔记记得好&#xff0c;知识点的遗忘在所难免&#xff0c;这里记录我个人的学习过程&#xff0c;以备后面二次学习使用。 Linux 操作系统 Linux 操作系统 001-介绍 Linux 操作系统 002-VMware Workstation的相关操…

第19届楚天春晚在九省通衢大武汉闪亮登场

——中国明星后代女子歌舞团刘亦菲等兼任形象大使 2024年新年伊始&#xff0c;一场以繁荣中国传统文化为主旨的“楚天春晚”全国文旅活动在湖北武汉拉开帷幕&#xff01;以“文化强省&#xff0c;旅游大省”为神州特色的联合国世界品牌之都&#xff0c;在辞旧迎新的早春来临之…

kubeadm来快速搭建一个K8S集群

二进制搭建适合大集群&#xff0c;50台以下的主机 kubeadm更适合中下企业的业务集群 我们采用了二进制包搭建出的k8s集群&#xff0c;本次我们采用更为简单的kubeadm的方式来搭建k8s集群。 二进制的搭建更适合50台主机以上的大集群&#xff0c;kubeadm更适合中小型企业的集群…

RocketMQ 生产者源码分析:DefaultMQProducer、DefaultMQProducerImpl

&#x1f52d; 嗨&#xff0c;您好 &#x1f44b; 我是 vnjohn&#xff0c;在互联网企业担任 Java 开发&#xff0c;CSDN 优质创作者 &#x1f4d6; 推荐专栏&#xff1a;Spring、MySQL、Nacos、Java&#xff0c;后续其他专栏会持续优化更新迭代 &#x1f332;文章所在专栏&…

Python 资源大全中文版

文末有链接 资源列表 环境管理 管理 Python 版本和环境的工具 p&#xff1a;非常简单的交互式 Python 版本管理工具。 pyenv&#xff1a;简单的 Python 版本管理工具。 Vex&#xff1a;可以在虚拟环境中执行命令。 virtualenv&#xff1a;创建独立 Python 环境的工具。 …

量子体积高达14082!这家公司正推动量子技术普及化

&#xff08;图片来源&#xff1a;网络&#xff09; Quantum AI致力于普及量子计算技术&#xff0c;成立仅一年&#xff0c;其研发的量子体积&#xff08;由IBM提出一个衡量量子计算机性能和错误率的专用指标&#xff09;已达到惊人的14082。 Quantum AI是Finlay MacKenzie和…

学习Go语言Web框架Gee总结--http.Handler(一)

学习Go语言Web框架Gee总结--http.Handler http-base/go.modhttp-base/main.gohttp-base/gee/gee.gohttp-base/gee/go.mod 网站学习来源&#xff1a;Gee 代码目录结构&#xff1a; http-base/go.mod //指定当前模块的名称为 "example" module example//指定当前模…

React16源码: context用法与createContext源码实现

context 1 &#xff09;概述 在react的设计中&#xff0c;组件与组件之间的通信通常是 父组件通过 props 给子组件传递子组件需要的属性父组件通过传递一些回调函数给子组件让子组件在某些特定的时候&#xff0c;可以调用一些父组件的特性 这种情况&#xff0c;会存在一个问题…

Spring ProxyFactoryBean

Spring的ProxyFactoryBean是一个非常有用的工具&#xff0c;它可以帮助我们创建代理对象&#xff0c;以实现AOP&#xff08;面向切面编程&#xff09;等功能。本文将介绍ProxyFactoryBean的基本概念、使用方法和注意事项。 ProxyFactoryBean的设计模式 ProxyFactoryBean是Spri…

谷歌AI模型Gemini被指演示视频造假 /深圳园区推出鸿蒙工程师租房优惠 |魔法半周报

我有魔法✨为你劈开信息大海❗ 高效获取AIGC的热门事件&#x1f525;&#xff0c;更新AIGC的最新动态&#xff0c;生成相应的魔法简报&#xff0c;节省阅读时间&#x1f47b; &#x1f525;资讯预览 谷歌AI模型Gemini被指演示视频造假&#xff0c;AI“神话”成“笑话” 深圳园…

TCP/IP的网络层(即IP层)之IP地址和网络掩码,在视频监控系统中的配置和应用

在给客户讲解我们的AS-V1000视频监控平台的时候&#xff0c;有的客户经常会配置错误IP地址的掩码和网关&#xff0c;导致出现一些网路问题。而在视频监控系统中&#xff0c;IP地址和子网掩码是用于标识网络中设备的重要标识符。IP地址被用来唯一地标识一个网络设备&#xff0c;…

Docker:部署若依前后端分离版

Docker&#xff1a;部署若依前后端分离版 1. 停止天翼云上的原来跑的若依项目2. 停止腾讯云上的若依项目3. 使用Docker部署3.1 天翼云数据库&Redis3.1.1 部署数据库3.1.2 部署Redis数据库3.1.1 部署Nginx(这里被天翼云坑了换的腾讯云运行nginx) 3.2 腾讯云部署后端&前端…

高性价比LDR6028Type-C转3.5mm音频和PD快充转接器

随着市面上的大部分手机逐渐取消了3.5mm音频耳机接口&#xff0c;仅保留一个Type-C接口&#xff0c;追求音质和零延迟的用户面临着一大痛点。对于这些用户&#xff0c;Type-C转3.5mm接口线的出现无疑是一大福音。这款线材在刚推出时就受到了手机配件市场的热烈欢迎&#xff0c;…

linux 测速 speedtest

Speedtest CLI: Internet speed test for the command line ubuntu、debian 非root加sudo sudo apt-get install curl -y curl -s https://packagecloud.io/install/repositories/ookla/speedtest-cli/script.deb.sh | sudo bash sudo apt-get install speedtest -yroot用户不…