D_yang的烂摊子

2005年3月15日,发布于: http://zyyang.spaces.live.com/blog/cns!193DAE30814DFA36!210.entryprocedure TApplication.Run;begin  FRunning := True; //I am Running.  try    AddExitProc(DoneApplication); //Add the cur

 2005年5月18日, 发布于: http://zyyang.spaces.live.com/blog/cns!193DAE30814DFA36!225.entry很简单的做了一下.procedure TRoundRectPanel.paint;begin  Canvas.Pen.Color:= FBorderColor;  Canvas.RoundRect(1,1,Width-1, Heigh

 2005年3月28日, 发布于:http://zyyang.spaces.live.com/blog/cns!193DAE30814DFA36!217.entry实现一个App,当第二个实例启动时, 第一个实例的主窗口弹出到最前. 然后第二个退出.在网上看到过很多种实现.各有优缺点.我的做法是, 判断Mutex->查找第一个实例主窗体的Handle->发给原窗体一个消息->退出.在原来的窗体里面