SOS Disabling Ctr-Alt-Del

[tsipouro]

Kalimera!

pws mporw na apenergopoiisw to Ctr-Alt-Del apo ta Win98 kai ME, mesw regedit?

thnx

[GrMikeD]

Auto pou les mesw tou registry, ginetai mono se Windows NT kai 2000. Malista ekei den boreis na kaneis disable to ctrl+alt+del, alla mono ta koubia pou deixnei. Gia perissoteres plirofories, pigaine edw:

http://is-it-true.org/nt/registry/rtips3.shtml

 

Gia Windows 98 kai ME, ginetai mono programamatistika. Enas kwdikas pou to kanei einai o parakatw:

 

>
#include <windows.h>
#include <winuser.h>

int main(int argc, char** argv)
{
  int a;
  SystemParametersInfo( SPI_SETSCREENSAVERRUNNING, 1, &a, 0);
  return 0;
}

 

Palia ton exw xrisimopoiisei, elpizw na ton thimamai kala. Den exw pleon 98 gia na ton testarw.

 

Diladi tha prepei na ftiakseis auto to programmataki kai na to trexeis eite sto startup eite otan thes na kaneis disable.

[tsipouro]

afto pou xreiazomai einai otan "mpei" o xristis sta windows (98/ME) na MHN mporei na patisei ta pliktra afta!!!

[GrMikeD]

Tote isws prepei na ftiakseis ena programmataki me ton parapanw kwdika pou esteila,kai na trexei sto startup!

[tsipouro]

mporei omws na patisei ta C-A-D prin treksei to programmataki afto

[GrMikeD]

eeee upothetw oti trexei arketa grigora gia na min prolabei.Alla kai na to patisei... tha einai i prwti kai i teleutaia fora.

 

Upopsin: Ean to thes prokeimenou na min borei na kleisei mia efarmogi pou exeis ftiaksei, pes mou gia na sou pw pws na krupseis tin efarmogi sou apo Ctrl+Alt+Del (programmatistika) etsi wste na min fobasai tipota!

[HaPagan]

tsipouro

said:

mporei omws na patisei ta C-A-D prin treksei to programmataki afto

 

Το πρόγραμμα θα εκτελείται με την εκκίνηση των Windows οπότε δεν γίνεται να πατήσει Ctr-Alt-Del πριν τρέξει το πρόγραμμα .

 

Παραθέτω παρακάτω κώδικα γραμμένα για Visual Basic ο οποίος λειτουργεί σε Win98 . Ελπίζω βασικά να λειτουργεί .

 

> Option Explicit

Private Declare Function SystemParametersInfo Lib _
"user32" Alias "SystemParametersInfoA" (ByVal uAction _
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long

Private Const SPI_SETSCREENSAVERRUNNING = 97


Public Sub DisableCAD(Disabled As Boolean)

'SET DISABLED TO TRUE TO DISABLE CTRL-ALT-DELETE
'SET DISABLED TO FALSE TO RE-ENABLE

    Dim lRet As Long
    lRet = SystemParametersInfo(SPI_SETSCREENSAVERRUNNING, _
      Disabled, 0&, 0&)
End Sub   

[GrMikeD]

Ama bariesai na grapseis olo auto to katebato grapse to se Delphi (Hapagan: :p :p)

 

>
program DisableCtrlAltDel;
uses windows;
var a: integer;
begin
  a:= 0;
  SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @a, 0);
end.

 

 

[HaPagan]

GrMikeD

said:

Ama bariesai na grapseis olo auto to katebato grapse to se Delphi (Hapagan: :p :p)

 

GrMikeD δεν χρειάζεται να ορίσεις στη Delphi τα ΑΡΙ και τις βιβλιοθήκες που θα χρεισημοποιήσεις ;;

[GrMikeD]

Oxi, exei idi orismeno sxedon OLO to Windows API sto unit "windows.pas", pou einai oloidio me to windows.h tis C++. Kaleis diladi ta pada opws akrivws stin C++.

[HaPagan]

Πολύ βολικό αυτό ! ʼντε και μετά λένε για την Visual Basic ότι τα έχει όλα έτοιμα . Χαχα !

[GrMikeD]

Padws ama deis adikeimenika ta 2 periballoda, i Delphi upernikaei tin VB sxedon se ola ta simeia. Apla epeidi einai palia i VB exei kathierwthei kai tin exoun sunithisei oi programmatistes. Bebaiws paizei rolo kai oti einai Microsoft proion. Eixa pollous sunadelfous stin douleia stin Ellada pou kanan VB kai molis tous edeiksa tin Delphi, oloi pigan se autin!

[tsipouro]

GrMikeD

said:

 

Upopsin: Ean to thes prokeimenou na min borei na kleisei mia efarmogi pou exeis ftiaksei, pes mou gia na sou pw pws na krupseis tin efarmogi sou apo Ctrl+Alt+Del (programmatistika) etsi wste na min fobasai tipota!

 

omologw oti afto me endiaferei! thnx

[GrMikeD]

Upopsin: apo oso kserw den boreis na krupseis apo ta processes mia application sta windows 2000. Sta 98 leitourgei o parakatw kwdikas.Stin ousia auto pou kanei, einai na kanei register tin process san service, opote kai einai invisible sto task manager.

 

>
program HideFromTaskManager;
uses Windows;

const
  RSP_SIMPLE_SERVICE = 1;
  RSP_UNREGISTER_SERVICE = 0;

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

begin
//To Hide from task list use:
  RegisterServiceProcess(GetCurrentProcessID, RSP_SIMPLE_SERVICE);
//To show in task list use:
//RegisterServiceProcess (GetCurrentProcessID, RSP_UNREGISTER_SERVICE);
//edw grafeis ton kwdika sou...
end.

 

Hapagan: to parapanw einai ena paradeigma tou RegisterServiceProcess to opoio den periexetai sto windows.pas tis Delphi. Opote, opws blepeis to pairnw monos mou apo to dll opws ekanes esu stin VB. Auto einai logiko, giati i function auti uparxei mono sta windows 95,98 (kai NT nomizw) kai oxi sta 2000.

 

tsipouro: ean ton thes ton kwdika se vb, borei na se boithisei o Hapagan

[tsipouro]

GrMikeD

said:

ean ton thes ton kwdika se vb, borei na se boithisei o Hapagan

 

mia tetoia voitheia tha itan peran tou "xrisimotati".

i efarmogi mou einai se vb kai... katalavaineis

thnx again