怎样禁止一个程序被运行(0分)

  • 主题发起人 主题发起人 奔腾的堃
  • 开始时间 开始时间

奔腾的堃

Unregistered / Unconfirmed
GUEST, unregistred user!
我看到过一篇文章 以为老兄作的 可以指定哪些程序可以被运行
那么相反 怎么样禁止某个程序被运行呢?
 
procedure TForm1.Button1Click(Sender: TObject);
var
hwndcalc:hwnd;
begin
hwndcalc:=findwindow(nil,'窗口标题');
if hwndcalc<>0 then
sendmessage(hwndcalc,wm_close,0,0);
end;
 
写注册表,任何exe文件都由你先打开
 
影子兄说的方法我知道 但是我是想从注册表里面解决问题的
楼上的说的是设置可以打开的程序 而我想设置不允许打开的程序
假设我有一百个EXE 想要禁用其中一个 我总不能去设置那九十九个把
 
把他删掉就一定不能运行。
 
后退
顶部