怎样让程序在最前端启动? ( 积分: 50 )

  • 主题发起人 主题发起人 lxm7805
  • 开始时间 开始时间
L

lxm7805

Unregistered / Unconfirmed
GUEST, unregistred user!
为防止用户杀掉系统进程,想在每次启动时,在别的程序启动之前就启动?怎么做呢
 
为防止用户杀掉系统进程,想在每次启动时,在别的程序启动之前就启动?怎么做呢
 
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Registry, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
//////////////////////////////////////////////////////////////////////////////
//10.用某一程序替换windows启动时启动的Explorer.ext
//////////////////////////////////////////////////////////////////////////////
procedure DisplaceExplorer(FileName:String);
var
Form1: TForm1;

implementation

{$R *.dfm}
//////////////////////////////////////////////////////////////////////////////
//10.用某一程序替换windows启动时启动的Explorer.exe
//////////////////////////////////////////////////////////////////////////////
procedure DisplaceExplorer(FileName:String);
var
Regf:TRegistry;
begin
Regf:=TRegistry.Create;
Regf.RootKey:=HKEY_LOCAL_MACHINE;

if Length(FileName)>0 then
try
RegF.OpenKey('SOFTWARE/Microsoft/Windows NT/CurrentVersion/Winlogon',false);
RegF.WriteString('Shell',FileName);
except
end;
RegF.CloseKey;
RegF.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//将你的程序拷贝到 windows目录下,然后执行下面的代码
DisplaceExplorer('Explorer.exe,你的程序.exe');
end;

end.
 
就是把程序放在shell后面explorer,路径:/*.exe文件,我试了下,如果启动这个程序失败,系统便无法运行了啊
 
把程序按照上面做好,shell=Explorer,c:/programe Files/radius/radius.exe,认证通过后,显不了系统桌面,保有一个资源浏览器啊
 
你最好是把你的程序放到 windows目录下面
写法是这样
Explorer.exe,你的程序.exe
我的程序运行很正常的
 
程序是用户自定义选择安装的,我这样程序认证通过后,别的都没有了啊,程序桌面之类的啊
 
怎么认证一啊,什么样的程序亚
 
http://www.2ccc.com/article.asp?articleid=1893
 
客户端使用的一个程序,像网吧管理软件那样,有个登录界面,没用户登录时,全屏显示这个用户界面,用户登陆认证通过后,可以正常使用电脑。所以想在启动时最先启动,显示这个登陆界面,
 
那我看你还是需要交点银子,我给你做一个能完全防止别人越过你的程序进入到系统的例子吧。
我给大连的一所高校做机房管理程序,1年了,和各种想免费上网的人做斗争,现在基本上已经没有人能越过我的登陆界面直接进到系统了
 
还有总共25个积分可送,都给你了啊,行不?呵呵
 
兄弟,行行好行不?没办法了啊,
 
这可是我的智慧结晶呀,我不知道你做什么用,如果你也想做类似于网管软件的话,相信有我的帮助你会少走很多弯路的,(因为这些弯路我都已经走完了)。
如果你自己做,也能做出来,不过你要想完全控制住你这个入口可能就不止半年的时间了。
 
也是做个类似网管理软件的,现在主要是防用户破解之类的,可能现在正在走你走过的弯路吧,不管怎么,太感谢老兄了
 
也是想防止用户绕过软件使用机器上网
 
如果你需要的话可以联系我,一般的问题我也就面费帮你解决了,不过这个技术确实是付出了我很多的心血。你在时间和开发效率上还有系统健壮性做个选择吧。
 
呵呵,多多感谢!
 
不搞了,没时间搞这个
 
这个我也不懂
 
后退
顶部