30分﹐请教 delphi开发的两个小问题..有兴趣的请进来……

Question

30分﹐请教 delphi开发的两个小问题..有兴趣的请进来……1, 输入画面中﹐如果delete失败了 ﹐我想在ondeleteerror 事件中通过错误的
返回代码﹐自已定义报错语句﹐而不希望系统的报错语句出现﹐应如何做呢 ﹖2﹐我想在窗体显示时﹐给窗体传一个参数 ﹐在窗体的初始化事件中接收该参数﹐不知该如何来做。 

Answer 1

问题1
try
    {delete}
except
    begin
    ShowMessage('自定义语句');
    end;
end;

Answer 2

第一题：没明白。
第二题：
procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to ParamCount do
  begin
    showmessage(paramstr(i));
  end;
end;

Answer 3

问题2
procedure TForm1.FormCreate(Sender: TObject);//这是接受参数的程序
var
  i: Integer;
begin
  for i:=1 to ParamCount  do
  begin
    if LowerCase(ParamStr(i)) = 'beep' then
      Application.MessageBox('Demo','beep',IDOK )
   else if LowerCase(ParamStr(i))='exit' then
      Application.Terminate;
  end;
end;Winexec('test.exe beep',SW_Normal);//发送参数的程序