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获取u盘序列号的代码

Delphi idhttp用法详解

Delphi调试服务程序的两种方法

Delphi tscrollbar 用于滚动窗口、组件内容

Delphi 双击listbox1内容，数据插入到memo1/synedit1鼠标指定位置

Delphi将字符串转换成utf8编码的函数

Delphi启动/停止windows服务,启动类型修改为"自动"

Delphi中禁用和取消android应用睡眠

Delphi shellexecute 打开文件夹

Delphi stopprocess 进程关闭函数

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

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