先谢谢了

我来试试！

上面的问题解决了！

再请教一下：如何写程序来防止重复登录啊？

不好意思，我没考虑到这么细！

就当作两种情况吧！一种是如果输入密码错误时，进行登录次数的限制，比如3次；还有一种情况是当一个用户已经登录了，那再用这个用户名和密码会不会又登录进去呢？

开始的时候我确实是只想到这方面的问题，请问楼上的这个问题怎么解决？

它与“当密码输入错误时，进行登录次数的限制”是不同的吧？那又如何解决“当密码输入错误时，进行登录次数的限制“呢？

谢谢了！

不过有些句子的用法我还是不懂！

我再去看看这些基础的来！

谢谢楼上的了！

无奈，我还是看不懂呀！能不能再解释一哈！

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1}; file://这个语句什么意思呀？
var
Mutex: THandle;
{$R *.res}
begin
Mutex := CreateMutex(nil,True,'OneInstance');
if GetLastError<>ERROR_ALREADY_EXISTS then file://红色字迹部分是变量还是系统自 带的函数？
begin
Application.Initialize; file://application是对象吧？什么作用？
Application.CreateForm(TfrmLogin, frmLogin);//frmlogin、frmmain是需要提前
Application.CreateForm(TfrmMain, frmMain); // 创建的窗体吗？
Application.Run;
end else
begin
ShowMessage('程序已经运行！');
ReleaseMutex(Mutex);

虽然问题多了点，不过还是希望看得懂的网友别嫌麻烦，回复一下吧！

谢谢了！