我把这段程序也贴上来吧,希望大侠能帮忙
uses
TLHelp32, WinInet, Registry, StrUtils;
function FindProcess(ExeName: string): Boolean; //检测应用程序是否被windows运行
var
Found: Boolean;
Hand: THandle;
pe32: TProcessEntry32;
begin
Hand := CreateToolHelp32SnapShot(TH32CS_SNAPALL, 0);
Found := Process32First(Hand, pe32);
while Found do
begin
if Pos(StrPas(pe32.szExeFile), ExeName) > 0 then
begin
Result := True;
Exit;
end
else
Found := Process32Next(Hand, pe32);
end;
Result := False;
end;
很明显,上述程序的核心在于采用了 Process32First和Process32Next两个windows函数,我怀疑这两个函数只是针对2000或XP的,在winme下是否改变了这个名称,如果是这样的,那又是什么名称?但是,由于对于windows编程不太熟悉,不敢确认。