Question

delphi程序中为什么运行后程序窗口不显示，进程中有

procedure TForm1.FormCreate(Sender: TObject);
var
systemtime:TSystemTime;
datetime:TDateTime;
t:string;
f:TextFile;
begin
AssignFile(f,getcurrentdir+'\nts.cfg');
Reset(f);
Readln(f,t);
//SetWindowPos(Application.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);//始终显示在最前端
//SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); //取消任务栏和系统栏显示
IdSNTP2.Host:=Trim(t);
IdSNTP2.Port:=123;
datetime:=idsntp2.datetime;
DateTimeToSystemTime(datetime,systemtime);
SetLocalTime(systemtime);
lbl1.Caption:=FormatDateTime('yyyy-mm-dd hh:nn:ss',Now);
end;
代码放在按钮中就运行正常，而且是有些电脑可用，有些不可用

Answer 1

不能放在create事件中，窗体中放一个timer，enable=false，启动后在formcreate中置为true，然后在timer事件中执行上述代码，（记住，在timer事件中先把timer置为false，然后在放入这些代码），窗体就可以显示了

Answer 2

首先你确定程序已经运行起来了吗？你的代码省略了一部分文件操作的吧，从代码中看似乎没啥大问题，你把窗口设成一个不可移动、不可改变大小的工具窗口，但好像并不是在最上层显示，问题的关键应该在setWindowsLong这一句里面，你试着把括号里头的参数改变一下，应该会有你想要的结果。

追问

注释掉都不行

追答

如果你在系统的任务管理器里能看到这个程序的进程，那么应该就是在datetime:=idsntp2.datetime;
这一句里出了问题。

另外，你说程序在某些机器上能正常运行而有些不能，那就要考虑到软件运行环境，是否是有些控件未安装？

仅仅是个人猜测，希望能给你起到某些提示作用。

Answer 3

从你的代码上看，最有可能的就是IdSNTP2.Host:=Trim(t);其中的地址 t 获取不到时间，导致程序卡在那。无法显示窗体。建议将这部分写到一 button里面试试。
IdSNTP2.Host:=Trim(t); IdSNTP2.Port:=123;
datetime:=idsntp2.datetime;
DateTimeToSystemTime(datetime,systemtime);
SetLocalTime(systemtime);
lbl1.Caption:=FormatDateTime('yyyy-mm-dd hh:nn:ss',Now);