LceMeaning

摘要： 程序需要禁止重复启动, 但需要保留新的、关闭旧的.=================================================从主窗口的类名下手吧; 写了一个函数, 在 OnCreate 中调用即可: 1 { 函数 } 2 procedure CloseSameClassNameWindow(ACurrentWindow: HWND; const AClassName: string); 3 var 4 h: HWND; 5 buf: array[0..255] of Char; 6 begin 7 h := ACurrentWindow; 8 while... 阅读全文