谢谢了！
我还用过ini呢，这就去查查怎么用吧！

如果要防止程序在本机运行第二次的话可以用下面的代码
var
handle:Thandle;
begin
handle:=findwindow('tform1','form1');
if handle=0 then
begin
application.initialize;
application.createform(tform1,form1);
application.run;
end
else
messagedlg('重复运行',mtinformation,[mbok],0);
setforegroundwindow(handle);
end;
如果防止用重新登录的话可以考虑用ini或在数据库中做一个新表。

谢谢了！

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

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

我认为12楼的程序不可行，

首先登录界面一般是登录过后就退出的界面

窗体已经释放，你在去查找是否有该窗体在运行，

这不是很明显的错误吗？（有一窗体始终是运行！）

我认为可以通过进程来判断！

我确实没有你想的周到，我做程序的时候往往把登录窗体作主。
谢谢你的提醒，以后还有很多问题要向你请教。

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
var
Mutex: THandle;
{$R *.res}
begin
Mutex := CreateMutex(nil,True,'OneInstance');
if GetLastError<>ERROR_ALREADY_EXISTS then
begin
Application.Initialize;
Application.CreateForm(TfrmLogin, frmLogin);
Application.CreateForm(TfrmMain, frmMain);
Application.Run;
end else
begin
ShowMessage('程序已经运行！');
ReleaseMutex(Mutex);
end;
end.

谢谢楼上的了！

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

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);

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

谢谢了！