请问接收用户录用用什么函数？

Question

请问接收用户录用用什么函数？

Answer 1

可以用下面的方法，顺便问一句你怎么不用edit控件?
function InputBox(const Acaption,Aprompt,Adefault:string):string;
 InputBox显示一个输入对话框以方便用户可以输入一个字符串。调用InputBox出现一个输入对话框，以方便使用者在编辑框中输入一个字符串。Acaption参数是对话框的标题，Aprompt参数是提示用户在编辑框输入的文本，Adefault参数是当对话框第一次出现时出现在编辑框内的字符串。当一个缺省值将被使用及使用者选择了Cancel或按Esc按钮来退出对话框时，可以使用InputBox函数。如果应用程序需要知道使用者是否选择了OK或Cancel,应使用InputQuery函数。
  这个例子呈现出一个输入对话框，当使用者点按了一个按钮时。输入对话框包括了一个提示字符串及一个缺省字符串。使用者在对话框中输入的字符串被存储在InputString变量中。Uses Dialogs;Procedure Tform1.Button1Click(Sender:TObject);var  InputString:string;begin  InputString:=InputBox(‘Input Box’,’Prompt’,’Default string’);end;