| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3277445
建立时间:2005年6月6日 |
| |
|
 [delpih编程]delphi关闭原先已被打开的word文档的函数
软件技术
吕向阳 发表于 2011/4/10 21:27:17 |
| procedure TForm1.closedoc(filename: string);var H: THandle; P: DWORD; afile: string;begin afile := ExtractFileName(filename); H := FindWindow(nil, PChar(afile + ' - Microsoft Word')); if H <> 0 then begin GetWindowThreadProcessId(H, @P); if P <> 0 then TerminateProcess(OpenProcess(PROCESS_TERMINATE, False, P), $FFFFFFFF); end;end; |
|
|