S
Superdong
Unregistered / Unconfirmed
GUEST, unregistred user!
下面代码怎么就进不了设置呢?很奇怪!!!各大虾有知道的吗?
if hPrevInst = 0 then
begin
//如果当前实例是唯一实例
if ParamCount <= 0 then
begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
end;
if (ParamCount > 0) and (UpperCase(ParamStr(1)) = '/S') then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
end
else
if (ParamCount > 0) and (UpperCase(ParamStr(1)) = '/C') then
begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
end;
end
else
begin
if (UpperCase(ParamStr(1)) = '/C') then
begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
end;
end;
Application.Run;
if hPrevInst = 0 then
begin
//如果当前实例是唯一实例
if ParamCount <= 0 then
begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
end;
if (ParamCount > 0) and (UpperCase(ParamStr(1)) = '/S') then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
end
else
if (ParamCount > 0) and (UpperCase(ParamStr(1)) = '/C') then
begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
end;
end
else
begin
if (UpperCase(ParamStr(1)) = '/C') then
begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
end;
end;
Application.Run;