本人遇到的问题如下:
1:别人的应用程序也自动,而且他的程序是主导,即我的程序只能跟着他走,但他在登陆的时候会关闭我的应用程序;
2:必须他在登陆以后才可以让我的应用程序可用;
3:我如果阻止他关闭我的应用程序,这时假如说重新启动机器就不不能用
4:系统是window98;
1:别人的应用程序也自动,而且他的程序是主导,即我的程序只能跟着他走,但他在登陆的时候会关闭我的应用程序;
2:必须他在登陆以后才可以让我的应用程序可用;
3:我如果阻止他关闭我的应用程序,这时假如说重新启动机器就不不能用
4:系统是window98;
var Myhwnd:Thandle;Myhwnd:=FindWindow('要查找的程序主窗体的类名',nil)
if hwnd1<>0 then
SendMessage(Myhwnd,wm_close,0,0);//关闭你的应用程序
2,他登陆后可以在一个公用的配置文件里面改写标志,你的程序读到这个标志才能用
3,如果重起机器,可以截获windows重新启动、关机的消息,然后处理这个消息就可以了
声明消息:
procedure WMQUERYENDSESSION(var Msg: TWMQUERYENDSESSION); message WM_QUERYENDSESSION;procedure TForm1.WMQUERYENDSESSION(var Msg: TWMQUERYENDSESSION);
begin
在这里做你要做的事情,比如改写一个标志,防止窗体关闭;
Inherited;
end;