Solved

How To hide my application from tasklist? (win95/98)

Posted on 1998-11-21
14
385 Views
Last Modified: 2010-04-04
Hi!
    I tried to hide my application with following code:

    var i:longint;
        handle:longint;
    begin
    i:=GetCurrentProcessId;
    handle:=OpenProcess(PROCESS_ALL_ACCESS,true,i);
    RegisterServiceProcess(handle,1);
    end;

It do not work. Any idea?
0
Comment
Question by:drol
  • 4
  • 2
  • 2
  • +4
14 Comments
 

Expert Comment

by:bdtikast
ID: 1347527
At designtime I set the mainform invisible and Application.ShowMainForm to false. Below is the part in the application's .DPR I changed (View, Project Source).

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm:= false;
  Form1.Visible:= false;
  Application.Run;
end.

0
 
LVL 1

Expert Comment

by:xpher
ID: 1347528
drol

I have done this to hide the button from the taskbar. Added this to the project source (you must also add Windows to uses)
example

program YourApplication;

uses
  Windows,
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {AboutForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.ShowMainForm := False;
  Application.Title := 'Your Application';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TAboutForm, AboutForm);
  ShowWindow(Application.Handle, SW_HIDE);
  Application.Run;
end.
0
 
LVL 1

Expert Comment

by:xpher
ID: 1347529
if you wanted to show it again you would use SW_RESTORE inplace of SW_HIDE

Regards
Chris
0
PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

 
LVL 7

Expert Comment

by:ahalya
ID: 1347530
drol,

even though "RegisterServiceProcess" is supposed to register the application with the given handle, i have never seen/heard that it worked with third party programs.

if you are trying to remove YOUR program from the tasklist then you can call RSP with a parameter of 0 rather than the handle. The following works perfectly in Delphi.

ok := RegisterServiceProcess (0, RSP_SIMPLE_SERVICE);
if ok  = 0 then ShowMessage ('Error Registering Service');

i guess this is the info you're looking for.
0
 

Expert Comment

by:msac_m
ID: 1347531
Hi all,

  I could not undertand why you used OpenProcess, Simply try this

  RegisterServiceProcess(GetCurrentProcessID,1);

And as bdtikast  do not forget to hide the mainform

That is all I think,

Regards,

0
 

Expert Comment

by:msac_m
ID: 1347532
Sorry for mistyping the third to last line of my comment, it  would be

"And as bdtikast  SAID,  do not forget to hide the mainform "

Regards.
0
 

Author Comment

by:drol
ID: 1347533
i want to hide my application from tasklist not from taskbar.
0
 

Author Comment

by:drol
ID: 1347534
registerserviceprocess(0,1) does not work.
i'm running win98.
I use delphi 3 and include the function from kernel32.dll as 'external'. is there a unit that includes the function?

where in the code you use the function?
0
 
LVL 8

Accepted Solution

by:
ZifNab earned 80 total points
ID: 1347535
Hi drol,

this should work :

const
  RSP_SIMPLE_SERVICE = 1;
  RSP_UNREGISTER_SERVICE = 0;

function RegisterServiceProcess(dwProcessID, dwType: DWORD):DWORD;
stdcall; external 'KERNEL32.DLL';

When the program starts :
RegisterServiceProcess(GetCurrentProcessID, RSP_SIMPLE_SERVICE);

When the program stops :
RegisterServiceProcess(GetCurrentProcessID, RSP_UNREGISTER_SERVICE);

Regards, Zif.
0
 
LVL 7

Expert Comment

by:ahalya
ID: 1347536
drol,

RegisterServiceProcess(0, 1) works in Win95.
i Register the my serivces in the FormCreate method.
0
 

Author Comment

by:drol
ID: 1347537
Thank you all!
Now, it works.
I forgot the 'stdcall' statement. :-)
0
 
LVL 1

Expert Comment

by:sageryd
ID: 1347538
How do I hide the application from the taskbar and still have the main form unhidden?
0
 

Author Comment

by:drol
ID: 1347539
Hi Sageryd

try
Application.ShowMainForm:=false;
0
 
LVL 1

Expert Comment

by:sageryd
ID: 1347540
WRONG! That hides the form AND the taskbar-button. I want something that only hides my application from the taskbar, not the MainForm!
0

Featured Post

Complete VMware vSphere® ESX(i) & Hyper-V Backup

Capture your entire system, including the host, with patented disk imaging integrated with VMware VADP / Microsoft VSS and RCT. RTOs is as low as 15 seconds with Acronis Active Restore™. You can enjoy unlimited P2V/V2V migrations from any source (even from a different hypervisor)

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Delphi XE2 application frozen on Windows 10 10 311
add combobox item based on numbers 9 141
select query - oracle 16 100
control image tags in a string ? 12 129
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
This Micro Tutorial will teach you how to censor certain areas of your screen. The example in this video will show a little boy's face being blurred. This will be demonstrated using Adobe Premiere Pro CS6.
Two types of users will appreciate AOMEI Backupper Pro: 1 - Those with PCIe drives (and haven't found cloning software that works on them). 2 - Those who want a fast clone of their boot drive (no re-boots needed) and it can clone your drive wh…

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question