Potrebna pomoc oko rjesavanja jednog problema

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pozdrav ja sam novi na ovom forumu. Vido sam da ste dobri u pruzanju odgovora i da imate veliki fond zananja u programiranju razlicitih stvari u delphiju pa bih vas molio da mi pomognete.
E sada ide jedno pitanje.
U sustini zanima me kako da blokiram kombinaciju tastera crtl+alt+del.
Ovo mi je potrebno posto sam htio da pravim program za internet caffe.
Pokusao sam sa skidanjem gotovih komponenti sa interneta ali bilo koju koju sam nasao naplacivala se. Pa sam ja odlucio da napisem svoju komponentu koja moze da blikira win key, onemoguci start meni, sakrije aplikaciju u task menager-u. Sakrije aplikaciju na taskbar-u. I jos mi je ostalo da vidi kako da blokiram tastere crtl-alt-del.
Citao sam nesto po dokumentaciji od WIN API-a i koliko sam shvatio da na ove tastere reaguje gina.dll ili neki slican naziv. Pa sam jos malo cita sta sve radi gina, a posto nisam nesto toliko dobar u api-ju nebi se upustao da napisem dll koji ce da mjenja postojeci (api koristi u cistoj njuzdi kada nesto ne mogu da uradim sa VCL-om).
Da napomen pokusao sa da pisem procedure za hook-anje ali to mi nije pomoglo pri rjesavanju ovog problema. Molim vas da mi pomognete oko ovog tupim glavu vec mjesec dana i stalno tapkam u istom mjestu.
Ako je potrebno za ovo poznavanje api-ja molio bih vas da mi objasnite sta koja funkcija radi (api sam koristio samo u par navrata).

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Evo koda koji onemogucava ceo taj task manager. Mada iskreno ako ti je ovo bio problem mozda bi trebao da za pocetak razmisljas o necem malo manje slozenom od programa za IC ( ovo je samo dobronamerna misao )...

Evo i koda:
Uses Registry; ...... procedure EnableCTRLALTDEL(YesNo : boolean) ; const sRegPolicies = '\Software\Microsoft\Windows\CurrentVersion\Policies'; begin    with TRegistry.Create do    try      RootKey:=HKEY_CURRENT_USER;      if OpenKey(sRegPolicies+'\System\',True) then      begin        case YesNo of          False:            begin              WriteInteger('DisableTaskMgr',1) ;            end;          True:            begin              WriteInteger('DisableTaskMgr',0) ;            end;        end;      end;      CloseKey;      if OpenKey(sRegPolicies+'\Explorer\',True) then      begin        case YesNo of          False:            begin              WriteInteger('NoChangeStartMenu',1) ;              WriteInteger('NoClose',1) ;              WriteInteger('NoLogOff',1) ;            end;          True:            begin              WriteInteger('NoChangeStartMenu',0) ;              WriteInteger('NoClose',0) ;              WriteInteger('NoLogOff',0) ;            end;        end;      end;      CloseKey;    finally      Free;    end; end;

Proceduru pozivas kao:
EnableCTRLALTDEL(False);
a umesto False mozes da stavis i True da bi ponovo omogucio ovu kombinaciju tastera...

Srecno !