Uncloseable Window

Hi there, basically, I would like some code that will stop my app from closing. On RM networks, it closes any applications that are not meant to be running when you log off the network and i want my program to keep running.

thanks for your help, Jack.
Portal111Asked:
Who is Participating?
 
cookreConnect With a Mentor Commented:
Here's one link of many to VB samples:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=1012&lngWId=-10

Do a search on 'registerserviceprocess 95 vb' to see all of them.  

Note that not only does the process survive a logoff, it doesn't show up in the ctrl-alt-delete task list either.
0
 
Anthony PerkinsCommented:
Please maintain your open questions:

Hiding Objects Date: 07/13/2001 10:20AM PST
http://www.experts-exchange.com/jsp/qShow.jsp?ta=flash&qid=20150504
Getting Process Icons Date: 01/07/2002 11:30PM PST
http://www.experts-exchange.com/jsp/qShow.jsp?ta=visualbasic&qid=20252540
Using The Tint Command / If There is One Date: 12/05/2001 10:18AM PST
http://www.experts-exchange.com/jsp/qShow.jsp?ta=javascript&qid=20243976

Thanks,
Anthony
0
 
cookreCommented:
Here's a snippet that references a largely undocumented API call that let's the caller survive a logoff.  This is one of the tings I do to simulate services on 95.

Yes, I know it's not not VB, but the switch to VB should go pretty easy.

Kernel32=GetModuleHandle("KERNEL32.DLL");
if (Kernel32==NULL)
   {
   PostMsg("Unable to get KERNEL32.DLL");
   DestroyWindow(hWnd);
   return 0;
   }

RegisterServiceProcess=(ExRegSrvProc)GetProcAddress(Kernel32,"RegisterServiceProcess");
if (RegisterServiceProcess==NULL)
   {
   PostMsg("RegisterServiceProcess entry point not found in KERNEL32");
   DestroyWindow(hWnd);
   return 0;
   }
if (1!=RegisterServiceProcess(GetCurrentProcessId(),1))
   {
   PostMsg("Unable to register service");
   DestroyWindow(hWnd);
   return 0;
   }
0
 
n_narayananCommented:
In your form query unload event

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
cancel = true
End Sub
0
 
Portal111Author Commented:
Nice1, thanks! sorry for the really really slow response. Jack
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.