program onlyRunOne;
uses
Forms,Windows,SysUtils, Dialogs,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
var
myMutex:HWND;
begin
myMutex:=CreateMutex(nil,false,'11111'); //名称只能全系统唯一。
if WaitForS
Delphi中的循环结构For循环for循环的格式:<pre name="code" class="delphi">for i:= 0 to 10 do
begin
{在这里完成你的业务功能}
end;<pre name="code" class="delphi">for i:= 10 downto 0 do
begin
{在
