W win NT i ME--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.
var wartosc:longbool;
begin
SystemParametersInfo(97,Word(True),@wartosc,0); *Włącza blokadę
SystemParametersInfo(97,Word(False),@wartosc,0); *Wyłącza blokadę
end;
... a to nie dziala?
Czarownik napisał:
var wartosc:longbool;
>
>begin
> SystemParametersInfo(97,Word(True),@wartosc,0); *Włącza blokadę
> SystemParametersInfo(97,Word(False),@wartosc,0); *Wyłącza blokadę
>end;
>
>... a to nie dziala?
Niestety nie.--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.
Osadnik napisał:
Czarownik napisał:
var wartosc:longbool;
begin
SystemParametersInfo(97,Word(True),@wartosc,0); *Włącza blokadę
SystemParametersInfo(97,Word(False),@wartosc,0); *Wyłącza blokadę
end;... a to nie dziala?
Niestety nie.
Moze nie we wszystkich systemach operacyjnych to dziala... jakiego systemu uzywasz?
--Pozdrawiam!
Adam Boduch
www.4programmers.net
Ja mam trochę odmiienny pogląd - niech wyłączmy całą klawiaturę:
Wystarczy użyć polecenia podobnego do ShellExecute ale coś jak "WinExec" - ee nie pamiętam jak to się zwie :/ spytaj się Adama
i potemw tym napisać: "rundll32 keyboard,disable"
I wyłączymy klawiaturę :]
HEHE
A może tak:
Usunąć plik keybrd4.sys i po sprawie.--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.
Ja jestem za RunDll32 keybord Disable. Czy jakoś tak. ;) --I LOVE PrOgRaMz
format c: \q lub odłącz klawiaturę :D