Delphi7函数大全2

  首部  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
例子 
━━━━━━━━━━━━━━━━━━━━━ 
首部  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转换成字符串
说明 
参考  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';
参考 
例子  CheckBox1.Checked := IsEqualGUID(StringToGUID(Edit1.Text), StringToGUID(Edit2.Text));
━━━━━━━━━━━━━━━━━━━━━ 
首部  function LoadPackage(const Name: string): HMODULE; $[SysUtils.pas
功能  返回载入包资源
说明 
参考  function SysUtils.SafeLoadLibrary;function SysUtils.InitializePackage;function Windows.FreeLibrary
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure UnloadPackage(Module: HMODULE); $[SysUtils.pas
功能  取消载入包资源
说明 
参考  function SysUtils.FinalizePackage;function Windows.FreeLibrary
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure GetPackageInfo(Module: HMODULE; Param: Pointer; var Flags: Integer; InfoProc: TPackageInfoProc); $[SysUtils.pas
功能  返回包的信息
说明 
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function GetPackageDescription(ModuleName: PChar): string; $[SysUtils.pas
功能  返回包的描述
说明 
参考  function System.LoadResourceModule;function Windows.LoadLibraryEx
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure InitializePackage(Module: HMODULE); $[SysUtils.pas
功能  初始化包
说明 
参考  function Windos.GetProcAddress
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure FinalizePackage(Module: HMODULE); $[SysUtils.pas
功能  终止化包
说明 
参考  function Windos.GetProcAddress
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  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
功能 
说明 
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure RCS; $[SysUtils.pas
功能 
说明 
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure RPR; $[SysUtils.pas
功能 
说明 
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function SafeLoadLibrary(const Filename: string; ErrorMode: UINT = SEM_NOOPENFILEERRORBOX): HMODULE; $[SysUtils.pas
功能  返回安全方式载入动态连接库资源
说明  <参见LoadLibrary>
参考  function Windows.LoadLibrary
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  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
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function InterlockedDecrement(var I: Integer): Integer; $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function InterlockedExchange(var A: Integer; B: Integer): Integer; $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function InterlockedExchangeAdd(var A: Integer; B: Integer): Integer; $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子