本人遇到的问题如下:
1:别人的应用程序也自动,而且他的程序是主导,即我的程序只能跟着他走,但他在登陆的时候会关闭我的应用程序;
2:必须他在登陆以后才可以让我的应用程序可用;
3:我如果阻止他关闭我的应用程序,这时假如说重新启动机器就不不能用
4:系统是window98;

解决方案 »

  1.   

    1,可以在两个应用程序之间发送消息,比如登陆那里
    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;
      

  2.   

    你的程序做成個 dll 或 包, 就可以了吧??