/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Disable Winkey & Ctrl+Alt+Delete?
Fra : Lars Hundebøl


Dato : 01-04-01 20:21

Hej NG,

jeg har et problem, som jeg ville høre om det var nogle her der kunne hjælpe
mig med at løse.
Jeg kunne godt tænke mig at lave et lille program, som kun kan afsluttes ved
hjælp af et password jeg selv definere (altså en måde at låse computeren
på).
Derfor ønsker jeg at kunne disable mulighederne for at lukke programmet ved
hjælpe af ctrl+alt+delete eller for den sags skyld at kunne åbne andre
programmer med f.eks. winkeys på tastaturet.

Jeg håber I kan hjælpe mig med mit lille problem...

Med venlig hilsen

Lars Hundebøl




 
 
N/A (02-04-2001)
Kommentar
Fra : N/A


Dato : 02-04-01 13:50



Lars Hundebøl (02-04-2001)
Kommentar
Fra : Lars Hundebøl


Dato : 02-04-01 13:50

Hej Thomas,

tak for det hurtige svar, men jeg er i tvivl?!... Er det så proceduren
SetSystemKey som styrer brugen af Windows tasten?

Med venlig hilsen

Lars Hundebøl


"Thomas Riedel, LogiHouse" <thr@image.dk> skrev i en meddelelse
news:rNLx6.10557$o4.497898@news010.worldonline.dk...
> Hej Lars
>
> Vedhæftet freeware unit der kan det du ønsker.
> Jeg har fundet det på på Delphi Superpage.
>
> mvh
> unit SetKey;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs;
>
> type
> TKeyState = ( kbOn, kbOff );
>
> TSetKey = class(TComponent)
> private
> FCapsLock : TKeyState;
> FNumLock : TKeyState;
> FScrollLock : TKeyState;
> FSystemKey : TKeyState;
>
> procedure SetCapsLock( value : TKeyState );
> procedure SetNumLock( value : TKeyState );
> procedure SetScrollLock( value : TKeyState );
> procedure SetSystemKey( value : TKeyState );
> { Private declarations }
> protected
> { Protected declarations }
> public
> constructor Create(AOwner :TComponent);override;
> { Public declarations }
> published
> property CapsLock: TKeyState read FCapsLock write SetCapsLock;
> property NumLock: TKeyState read FNumLock write SetNumLock;
> property ScrollLock: TKeyState read FScrollLock write SetScrollLock;
> property SystemKey : TkeyState read FSystemKey write SetSystemKey;
> { Published declarations }
> end;
>
> procedure Register;
>
> implementation
>
> procedure Register;
> begin
> RegisterComponents('FreeVCL', [TSetKey]);
> end;
>
> constructor TSetKey.Create(AOwner :TComponent);
> Var
> KeyState : TKeyBoardState;
> OldValue : integer;
> begin
> inherited Create(AOwner);
> GetKeyboardState(KeyState);
> Case KeyState[VK_CAPITAL] of
> 1 : FCapsLock := kbOn;
> 0 : FCapsLock := kbOff;
> end;
> case KeyState[VK_NUMLOCK] of
> 1 : FNumLock := kbOn;
> 0 : FNumLock := kbOff;
> end;
> case KeyState[VK_SCROLL] of
> 1 : FScrollLock := kbOn;
> 0 : FScrollLock := kbOff;
> end;
> SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @OldValue, 0);
> { Set the SystemKey to its original value, who can teach me a good way?
> :) }
> case OldValue of
> 1 : FSystemKey := kbOff;
> 0 : FSystemKey := kbOn;
> end;
> SystemParametersInfo( SPI_SCREENSAVERRUNNING, OldValue, @OldValue, 0);
> end;
>
> procedure TSetKey.SetCapsLock( value : TKeyState );
> Var
> KeyState : TKeyBoardState;
> begin
> GetKeyboardState(KeyState);
> case value of
> kbOn : KeyState[VK_CAPITAL] := 1;
> kbOff : KeyState[VK_CAPITAL] := 0;
> end;
> SetKeyboardState(KeyState);
> FCapsLock := Value;
> end;
>
> procedure TSetKey.SetNumLock( value : TKeyState );
> Var
> KeyState : TKeyBoardState;
> begin
> GetKeyboardState(KeyState);
> case value of
> kbOn : KeyState[VK_NUMLOCK] := 1;
> kbOff : KeyState[VK_NUMLOCK] := 0;
> end;
> SetKeyboardState(KeyState);
> FNumLock := value;
> end;
>
> procedure TSetKey.SetScrollLock( value : TKeyState );
> Var
> KeyState : TKeyBoardState;
> begin
> GetKeyboardState(KeyState);
> case value of
> kbOn : KeyState[VK_SCROLL] := 1;
> kbOff : KeyState[VK_SCROLL] := 0;
> end;
> SetKeyboardState(KeyState);
> FScrollLock := value;
> end;
>
> procedure TSetkey.SetSystemKey( value : TKeyState );
> var
> NoUse : integer;
> begin
> case value of
> kbOn : SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @NoUse, 0);
> kbOff : SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @NoUse, 0);
> end;
> FSystemKey := value;
> end;
>
> end.
> --
> mvh
> Thomas Riedel, LogiHouse
> Lars Hundebøl <lh1588NOSPAM@ehs.dk> skrev i en
> nyhedsmeddelelse:zdLx6.10514$o4.490531@news010.worldonline.dk...
> > Hej NG,
> >
> > jeg har et problem, som jeg ville høre om det var nogle her der kunne
> hjælpe
> > mig med at løse.
> > Jeg kunne godt tænke mig at lave et lille program, som kun kan afsluttes
> ved
> > hjælp af et password jeg selv definere (altså en måde at låse computeren
> > på).
> > Derfor ønsker jeg at kunne disable mulighederne for at lukke programmet
> ved
> > hjælpe af ctrl+alt+delete eller for den sags skyld at kunne åbne andre
> > programmer med f.eks. winkeys på tastaturet.
> >
> > Jeg håber I kan hjælpe mig med mit lille problem...
> >
> > Med venlig hilsen
> >
> > Lars Hundebøl
> >
> >
> >
>
>



Niels (02-04-2001)
Kommentar
Fra : Niels


Dato : 02-04-01 14:13

Just as I expected, Lars Hundebøl came up with this:

>tak for det hurtige svar, men jeg er i tvivl?!... Er det så proceduren
>SetSystemKey som styrer brugen af Windows tasten?

Ud fra den her linie:

>> TSetKey = class(TComponent)

ligner det rimelig meget et komponent du kan installere på din
komponent-palette og lægge på en form. Så er det bare at sætte en
property!!

Niels
--
e-mail: nmartin at iname dot com
ICQ UIN: 50187323
http://www.niller.f2s.com/ - niLLer's pages

Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408926
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste