 ::  |
| Autor |
Poruka |
himzo
Banovan!
Odomaćeni član
 |
Godine: 42
Datum registracije: 24 Okt 2005
Poruke: 1390
Mesto: Vojvoda Stepa
|
|
Ovaj primer pokazuje kako se isključuje Task Manager i sprečava sistem da odreaguje na pritisnutu kombinaciju tastera Ctrl + Alt + Del!
Primer za Win 95/98
| Code: |
const
SPI_SCREENSAVERRUNNING = 97;
var
OldValue: Longbool;
{on}
SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(True), @OldValue, 0);
{off}
SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(False), @OldValue, 0);
|
Primer za Win 2000/NT/XP
| Code: |
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;
|
Primer korišćenja:
| Code: |
procedure TForm1.Button1Click(Sender: TObject);
begin
EnableCTRLALTDEL(true);
end;
|
|
|
|
| |
|
 |
Doktor
~Sanjicino*slculence~
 |
Godine: 38
Datum registracije: 17 Nov 2005
Poruke: 4264
Mesto: Novi Sad
|
|
|
Nego Himzo reci ti meni jeli ovo funkcionise u Safe Mode-u?
|
_________________
~*~Vojim svoje srculence najvise na svetu ~*~ :322:
 |
|
| |
|
|
CoYoTe
Dobro upućeni član
 |
Godine: 38
Datum registracije: 18 Sep 2004
Poruke: 618
Mesto: Arandjelovac/RC ETF
|
|
|
Malo si preterao mislis.Kako ovo da radi a windows radjen pos C-om?!
|
_________________
Join eRepublik here!!! |
|
| |
|
|
Doktor
~Sanjicino*slculence~
|
Godine: 38
Datum registracije: 17 Nov 2005
Poruke: 4264
Mesto: Novi Sad
|
|
O cemu pricas!?
Kakve veze to ima kako je radjen windows. Pa jel znas da svi programski jezici koriste iste API-je windowsa, tj. njegove programske rutine. Razlika je samo u sintaksi, tj. nacinu na koji se odredjeni zadaci implementiraju na odredjenom programskom jeziku.
Skup API-ja ti nije nista drugo nego skup DLL-ova!!!
|
_________________
~*~Vojim svoje srculence najvise na svetu ~*~ :322:
|
|
| |
|
|
midgard
Početnik Domaćeg.de
 |
Godine: 41
Datum registracije: 17 Dec 2005
Poruke: 7
Mesto: Beograd
|
|
aj prevedi na C#...
Please....
Poz
|
_________________
can't have it all |
|
| |
|
|
Doktor
~Sanjicino*slculence~
|
Godine: 38
Datum registracije: 17 Nov 2005
Poruke: 4264
Mesto: Novi Sad
|
|
Ja se bavim Delphijem a ne C#-om... Ova tema je otvorena za Delphi!
Ako te zanima C# onda otvori novu temu i tamo postavi pitanje koje te zanima, a tamo ce ti odgovoriti neko ko se bavi tim programskim jezikom.
Citaj: Delphi: Sprečiti Ctrl + Alt + Del
|
_________________
~*~Vojim svoje srculence najvise na svetu ~*~ :322:
|
|
| |
|
|
himzo
Banovan!
Odomaćeni član
|
Godine: 42
Datum registracije: 24 Okt 2005
Poruke: 1390
Mesto: Vojvoda Stepa
|
|
|
Ozbiljno ljudi, doktor je u pravu. Ako vas zanima C otvorite temu za C. Po svoj logici u ove teme ulaze samo Delphi programeri i male su sanse da ce je videti neko od C orjentisanih! 8)
|
|
|
| |
|
|
midgard
Početnik Domaćeg.de
|
Godine: 41
Datum registracije: 17 Dec 2005
Poruke: 7
Mesto: Beograd
|
|
OK otvoricu tamo temu...
To radi samo kad je tvoja aplikacija aktivna, jel tako?
|
_________________
can't have it all |
|
| |
|
|
Doktor
~Sanjicino*slculence~
|
Godine: 38
Datum registracije: 17 Nov 2005
Poruke: 4264
Mesto: Novi Sad
|
|
Hvala Bogu da aplikacija mora da bude aktivna. Kako mislis da ti radi program ako nije startovan.
Druga stvar je ako ti ne zelis da se program vidi. Ti mozes da sakrijes aplikaciju tako sto ces je ukloniti sa TaskBara i registrovati kao Windows Service!!! Ali to je nesto drugo i tada ti je program aktivan...
Kako mislis da nesto radi ako to nije aktivno!? Nema logike! 
|
_________________
~*~Vojim svoje srculence najvise na svetu ~*~ :322:
|
|
| |
|
|
|
|
Vi ne možete otvarati nove teme u ovom forumu
Vi ne možete odgovarati na teme u ovom forumu
Vi ne možete menjati Vaše poruke u ovom forumu
Vi ne možete brisati Vaše poruke u ovom forumu
Vi ne možete glasati u anketama u ovom forumu
Vi ne možete postavljati fajlove u ovom forumu
Vi ne možete preuzeti fajlove sa ovog foruma
|
|
