这个问题很简单,也很奇怪!(100分)

  • 主题发起人 主题发起人 Superdong
  • 开始时间 开始时间
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;
 
说清楚点
 
做屏保啊!不是要进入设置吗?就是进入不了设置?Form1为主窗体,Form2为设置窗体。
 
研究一下www.csdn.net/dev/delphi的例子,怎么玩都可以拉。
 
窗口创建了就可以了??
不要显示啊??
 
是命令行参数吗啊?
 
Ido
nt know
 
你的代码在WIN32系统中是不会进入到else
部分的, 因为hPrevInst恒等于0.[:(]
这段代码在Windows31还可以. 不过我试验的结果是能够进入'/S'分枝
 
后退
顶部