Skjult program....

en non-visuel applikation laves ved at fjerne alle units fra et nyt project (i .dpr filen) for derefter at skrive al kode i selve .dpr filen. Du kan bruge så mange ekstra units du vil, så længe du ikke bruger visuelle komponenter nogen steder.

her er et lille eksempel jeg fandt i mit "arkiv".

program Launch;

uses
  shellAPI, windows, forms, sysutils;

{$R *.RES}

begin
  shellexecute(application.handle,nil,pchar(extractfilepath(paramstr(0))+paramstr(1)),'','',SW_MAXIMIZE);
end.


det er hele koden , og det står alt sammen i den eneste fil i projektet, nemlig launch.dpr

Hmmm.. Lad mig se... Jeg har koden derhjemme. Jeg svarer i morgen, hvis der ikke er accepteret nogen svar.

Denne kode skjuler godt nok kun programmet fra taskbar'en, men jeg synes lige jeg ville post'e det alligevel. Det kune jo være der var en anden der kunne få glæde af det hvis du ikke kan bruge det ;)

procedure TForm1.FormCreate(Sender: TObject);
var
  xWndLong: Longint;
begin
ShowWindow(Application.handle, SW_HIDE);
xWndLong := GetWindowLong(Application.handle, GWL_EXSTYLE);
SetWindowLong(Application.handle, GWL_EXSTYLE, xWndLong or WS_EX_TOOLWINDOW and not (WS_EX_APPWINDOW or WS_EX_TOPMOST));
ShowWindow(Application.handle, SW_SHOW);
end;

Snowball

http://www.eksperten.dk/spm.asp?id=5627
Der står hvordan du skjuler dit program for ctrl+alt+del listen

Det kan gøres meget enklere:

RegisterServiceProcess(GetCurrentProcessID, 1);

skjuler programmet i Luk program-vinduet, og

RegisterServiceProcess(GetCurrentProcessID, 0);

viser den igen.

Det virker hjemme ved mig.

Der findes en komponent der hedder Stealth den skjuler din form fra Taskbaren og Ctrl+Alt+Del menuen hvis du kaster din e-mail ud kan jeg sende den til dig(freeware).

sirius@mail.tele.dk

Delphidaner har ret ud over at han lige glemte det væsentligste:

Tilføj denne function til dit program.

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

(Den henter oplysningerne fra kernel32-dll så du skal ikke indsætte nogen begin og end;)


Herefter kalder du den med
RegisterServiceProcess(GetCurrentProcessID, 1);
under formens Oncreate event.

og du kan så bruge
RegisterServiceProcess(GetCurrentProcessID, 0);
til at vise den med som Delphidaner også sagde ...

frifoed >> Hvorfor bruge en 3rd party komponent, når der nu ikke skal skrives mere end 2 liners kode får at gøre tricket ?

Hvad angår det med at fjerne programmet fra taskbaren så kan Snowballs måde anbefales ..

Mvh. _DJ_

<dj>
Det er blot et forslag og da DelphiDaner allerede havde vist den anden metode så er der ikke andre tilbage. Plus at denne er lidt mere brugervenlig.

friefoed..

kan du ikke skrive lidt om hvordan man bruger det komponent..

frifoed  >> Brugervenligt ? Du mener altså at det er brugervenligt at kvadre et program ved at overlæsse det med tredjeparts komponenter der gør det umuligt at anvende koden på andre maskiner end din egen, istedet for at skrive koden selv ?

Hmmm... det ser ud til at frifoed's metode ikke er så god som den anden (i følge kommentarne)

er der så ikke en anden der kan forklare den anden metode noget mere...

<dj>Jeg er enig med din om at man skal prøve at bruge så lidt kode som overhovedt mulig for at mindske programstørrelsen, men skulle man ikke lade Sirius prøve begge metoder og skabe sin egen mening i stedet for at dikterer??!!
<sirius>
Komponenten skal installeres i Delphi's IDE dette varierer lidt fra version til version af Delphi. Men prøv med et klik i menubaren
Component>Install Component
Dernæst klikker du blot på \browse/ for alokere stealth.pas filen.
Efter komponenten er installeret ligger der et ikon inde fanebladet Additional der hedder Stealth du klikker blot på det og klikker så på din form. Herefer er ikonet så på din form og du kan ændre ved klik og din form skal være synlig fra task-baren og Ctrl+Alt+Delete menuen.
Hvis du så tilmed vil have at formen også skal være usynlig så fjerner du Border-Icons og borders i object Inspector. Og i formens onCreate skriver du Form1.Heigth := 0; Form1.Width := 0;

sirius >> Som delphidaner og jeg sriver ovenover er nøjagtigt den samme metode som bruges i stealth komponenten, så kig lidt på min kommentar der skulle stå alt hvad du har brug for, for at fjerne programmet fra CTRL+ALT+DEL menuen.

Når jeg prøver at tilføje komponentet som du skrev frifoed siger den:

The procedure entry point registerServiceProcess could not be located in the dynamic link libary KERNEL32.DLL

er det fordi jeg kører win2k eller er det fordi jeg laver noget forkert ??

ehh. ja, du kan kun gøre tricket i Win95/98, windows 2000 tillader ikke at man kan køre programmer der ikke bliver vist under enten taskmanageren eller services.

Beklager sirius jeg melder pas, men mit bud kunne være at API'en i WIN2K er anderledes end strukturen i Win9x.

Og så har programmer andre rettigheder... Vist ikke helt nemt at få lov til at pille i den grad som du gerne vil i NT (dvs. incl. win2K)..