delphi - System.RunError

本文整理自网络，侵删。

 学习官方示例 - System.RunError
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

var P: Pointer;

procedure TForm1.Button1Click(Sender: TObject);
begin
if P = nil then
RunError(204);
end;

end.

 

相关阅读 >>

Delphi 从字符串提取字符串

Delphi 获取系统mydocuments文件夹路径

Delphi 加载大文件显示进度条

Delphi 查看指定文件是否在进程列表中

Delphi 限制edit输入 多个例子

Delphi gethomepath - 获取用户程序数据目录

Delphi dbgrid应用

Delphi fmx 获取系统版本 android ios通用

Delphi playsound()函数应用

Delphi 以系统权限运行程序的代码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi - System.RunError