这是一个网友的文章 你可以在启动时候运行这个程序 设定只有你的程序可以运行 然后输入了正确的密码后就允许其他的程序运行了
虽然可能还会有很多问题 不过我想这也算是一种解决方案吧 可以再研究一下
在注册表中有一个关键字（'Hkey_current_usersoftwaremicrosoftwindowscurrentversionpoliciesexplorerrestrictrun'），
当此关键字存在，且此关键字中有一个二进制数（restrictrun），当把二进制数的值为设置为1时，表明可限制当前用使用权限，
在注册表中还不一关键字（'softwaremicrosoftwindowscurrentversionpoliciesexplorerrestrictrun'），此关键字中，存放有字符串值，
字符串的值为授权可以使用的程序名（注、此名字只能是程序名，不能含路径），字符串名字可按数值序列新建，在WIN9X中，你只需要通过
“Regedit.exe”程序添加（'softwaremicrosoftwindowscurrentversionpoliciesexplorer'）关键字，
然后在添加（'softwaremicrosoftwindowscurrentversionpoliciesexplorerrestrictrun'）关键字，在此关键字中添加相应的程序名就可以设置WIN9X中应用程序的使用权限。
在Delphi 实现
步骤：
1、新建一个窗口，在窗口中加入一个BUTTON，名字为BUTTON1功能为设置使用在WIN9X程序权限。在BUTTON1click中加入如下代码。
procedure TForm1. BUTTON1 Click(Sender: TObject);
var
myReg:TRegistry;
i:integer;
begin
myreg:=tRegistry.Create ;
myreg.RootKey:=HKEY_CURRENT_USER;
myreg.OpenKey('softwaremicrosoftwindowscurrentversionpoliciesexplorer',true);//如果没有这个关键字则新建并打开。
myreg.writeinteger('restrictrun',1);//把restrictrun的值设置为1。
myreg.OpenKey('softwaremicrosoftwindowscurrentversionpoliciesexplorerrestrictrun',true);
if opendialog1.Execute then
begin
assignfile(right_file, opendialog1.FileName );
reset(right_file);//通过权限文件设置WIN9X使用程序权限。
readln(right_file,s_r);
myreg.WriteString('1',s_r);//写入一个可以使用程序
//
例：myreg.WriteString('1',’winword.exe’)
i:=1;
while not eof(right_file) do
begin
i:=i+1;
readln(right_file,s_r);
myreg.WriteString(inttostr(i),s_r);
end;
i:=i+1;
while myreg.ValueExists(inttostr(i)) do
begin //删除在注册表中添加进的多余的程序。
myreg.DeleteValue(inttostr(i));
i:=i+1;
end;
end;
closefile(right_file);
myreg.CloseKey;
end;
2、可以在窗口（FORM）中加入另一个BUTTON，名字为BUTTON2，功能为取消使用在WIN9X程序权限。在BUTTON2click中加入如下代码。
procedure TForm1.BitBtn2Click(Sender: TObject);
var
myReg:TRegistry;
begin
myreg:=tRegistry.Create ;
myreg.RootKey:=HKEY_CURRENT_USER;
myreg.OpenKey('softwaremicrosoftwindowscurrentversionpoliciesexplorer',true);
myreg.writeinteger('restrictrun',0);
myreg.CloseKey;
end;
