如何编程实现禁止指定程序的运行！请各位高手帮忙

wxw1999gl 2003-05-15 08:12:04

windows98中如何编程实现禁止指定程序的运行！

...全文

95 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

888888888888 2003-05-18

打赏
举报

关注

RamjetZhang 2003-05-18

打赏
举报

98够呛，nt系列的，使用ntfs分区，禁止对文件的访问即可（可针对用户）

tanlijun37 2003-05-18

打赏
举报

改注册表怎么改》》》》
能不能告诉我。。

dancedog 2003-05-17

打赏
举报

liguoyiao(我爱编程) 的方法在NT4.0下不能正常运行！
98，me，2000都可以，xp没有试过。

ahjoe 2003-05-17

打赏
举报

不让运行的程序删除掉。

liguoyiao 2003-05-16

打赏
举报

你可以这样做吗？即把你要运行的程序不禁止，其它的程序一律不运行！

wxw1999gl 2003-05-16

打赏
举报

但是程序名改变了不是又可以运行了！

jun_01 2003-05-16

打赏
举报

改注册表，可以使所有程序禁止运行，但是你指定的那几个除外。
不过，用计划任务就可以使你禁止的照样运行。

chenquan 2003-05-16

打赏
举报

就l0f(凌风) 很方便也简单

智商无下限 2003-05-16

打赏
举报

H:=findwindow('nil','程序名');
sendmessage(h,close,0,0);

firetoucher 2003-05-16

打赏
举报

findwindow不用程序名，而是窗口栏上的名称，只要那个不变就行了。
--------------------------------------
看见了么，
那支蛾子，
正飞向太阳，
那就是我！
--------------------------------------

liguoyiao 2003-05-15

打赏
举报

放一个timer控件，
uses shellapi;

progname:='你要禁止运行的程序名和扩展名';

procedure Tfrmmain.Timer1Timer(Sender: TObject);
var
m_handle:THandle;
procEntry32:TProcessEntry32;
notEnd:Bool;
hh:hwnd;
ss:string;
begin
m_handle:=createToolhelp32snapshot(TH32CS_SNAPPROCESS,0);
//TH32CS_SNAPPROCESS代表捕捉进程，给进程照个相
procEntry32.dwSize:=sizeof(TProcessEntry32);
notEnd:=Process32First(m_handle,procEntry32);//找第一个进程
while notEnd do
begin
ss:=extractFileName(procEntry32.szExeFile);
if AnsiContainsText(progname,ss) then
begin
hh:=OpenProcess(PROCESS_ALL_ACCESS,true,procEntry32.th32ProcessID);
TerminateProcess(hh,0);
end;
notEnd:=Process32Next(m_handle,procEntry32);//继续找下一个进程
end;

end;

microjuz 2003-05-15