Prosedur EnableSysKey tsb sudah saya cobain..
Tapi...
Prosedur tersebut hanya berjalan pada O/S windows 98
Rekan2 ada yang pernah nyobain yang di WInNT????
--- In [EMAIL PROTECTED], Irwan Adriansyah <[EMAIL PROTECTED]> wrote:
> Coba pakai procedure ini:
>
> ***********************
> Untuk CTRL+ALT+DEL, CTRL+ESC, ALT+TAB
> ***********************
>
> procedure EnableSysKeys(Enable: Boolean);
> var
> Param: DWORD;
> begin
> Param := 0;
> SystemParametersInfo(SPI_SETFASTTASKSWITCH, UINT(not Enable),
@Param, 0);
> // ALT+TAB, CTRL+ESC
>
> SystemParametersInfo(SPI_SCREENSAVERRUNNING, UINT(not Enable),
@Param, 0);
> // CTRL+ALT+DEL
> end;
>
>
> *****************************
> Untuk ngilangin tombol Start:
>
> procedure HideShowStartButton(boolVisible: Boolean);
> var
> Tray, Child: hWnd;
> C: array[0..127] of Char;
> S: string;
> begin
> Tray := FindWindow('Shell_TrayWnd', nil);
> Child := GetWindow(Tray, GW_CHILD);
> while Child <> 0 do
> begin
> if GetClassName(Child, C, SizeOf(C)) > 0 then
> begin
> S := StrPas(C);
> if UpperCase(S) = 'BUTTON' then
> begin
> startbutton_handle := child;
> ShowWindow(Child, Integer(boolVisible))
> end;
> end;
> Child := GetWindow(Child, GW_HWNDNEXT);
> end;
> end;
>
> ***********************
> Atau mau disable Start:
> ***********************
>
> //Enable:
> EnableWindow(FindWindowEx(FindWindow
> ('Shell_TrayWnd', nil), 0,'Button',nil),TRUE);
>
> //Disable:
> EnableWindow(FindWindowEx(FindWindow
> ('Shell_TrayWnd', nil), 0,'Button',nil),FALSE);
>
>
> ***********************
> ***********************
>
> -----Original Message-----
> From: air_proof [mailto:tuska80@s...]
> Sent: Friday, November 29, 2002 7:25 AM
> To: [EMAIL PROTECTED]
> Subject: [Delphindo] Disable Alt, Ctrl... key
>
>
>
> Teman2 saya rada kesulitan untuk melakukan disable tombol2 sistem
> seperti Alt, Ctrl, startWindows..dll..
> Caranya bagaimana ya?
> Tapi tombol ini disable bukan hanya pada saat form kita aktif
saja...
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/CBxunD/vN2EAA/xGHJAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
