程序之运行一次

在工程单元加入一下代码:

CreateMutex(nil, True, '特殊标识字符');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
    Exit;
end;