给你个函数,记住要在uses处添加winprocs。
function F_FileFind(B_FileHead:String):boolean; //检查文件是否已打开
var B_Hwnd:Hwnd;
begin
B_Hwnd:=Winprocs.FindWindow(nil,PChar(b_FileHead));
if B_Hwnd<> 0 then Result:=true else Result:=false;
end;
B_FileHead是文件打开时显示在任务栏上的标题。如:
if F_FileFind('aaa - Microsoft Word') then showmessage('aaa文档已被打开!');