启动参数问题

Question

如何在Exe文件后加不同的参数来执行程序内不同的函数或过程
例如：运行Project1.exe ,只启动程序，不加载任何函数
      Project1.exe   -s  //加-s参数时，程序启动后自动显示showmessage('Hello')对话框

Answer 1

procedure TForm1.FormActivate(Sender: TObject);
var
  I: Integer;
  S: String;
begin
  for I := 1 to ParamCount do
  begin
    S := ParamStr(I);
    if S = '-s' then
      ShowMessage('Hello');
  end;
end;

Answer 2

var
  NetSource : TNetResource;
begin
  with NetSource do
  begin
    dwType := RESOURCETYPE_ANY;
    lpLocalName := 'Z:'; //网络驱动器编号
    lpRemoteName := '\\192.168.1.8\Share'; //地址以及共享路径
    lpProvider := nil;
  end;
  WnetAddConnection2(NetSource, '密码', '用户名', CONNECT_UPDATE_PROFILE);
//查看最后这个函数的返回值，如果返回值=85则表示“本地设备名已在使用中。 ”不能使用，呵呵
end;