Disable

hvorfor vil du have det deaktiveret?

Disable start knap:

procedure ShowStartButton(bvisible: Boolean);
var
  h: hwnd;
  TaskWindow: hwnd;
begin
  if bvisible then
  begin
    h := FindWindowEx(GetDesktopWindow, 0, 'Button', nil);
    TaskWindow := FindWindow('Shell_TrayWnd', nil);
    ShowWindow(h, 1);
    Windows.SetParent(h, TaskWindow);
  end
  else
  begin
    h := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil);
    ShowWindow(h, 0);
    Windows.SetParent(h, 0);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowStartButton(False);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowStartButton(true);
end;

Stoney

ooooooog hvor vi ldu så have det til at stå henne? :D

Du er klar over du er i delphi kategorien ?

Stoney

sorry *rofl*

stoney det er nu ik den jeg vil disable... det er knappen på tastaturet... WinKnap og WinKnapHøjreClick og Alt+Tab!!!

dette emne har der været meget snak om, men det er sådan for at du har komme ind og bruge de knapper til noget andet skal du ud og registere dem inden windows gør det, og det er under start op.men prøv at kigge i gamle spm's jeg menere at det var cms som gav en god forklaring...

/ZIRON

Jeg ved ikke om det virker i XP, men i 98 virker det fint...

procedure TurnSysKeysOff;
var
OldVal : LongInt;
begin
SystemParametersInfo (97, Word (True), @OldVal, 0)
end;

procedure TurnSysKeysBackOn;
var
OldVal : LongInt;
begin
SystemParametersInfo (97, Word (False), @OldVal, 0)
end;

Geek

ziron -> jeg har kigget efter nogle gamle spm men jeg kan ik finde nogen!

geek -> nej det virker ik i xp!

ziron -> hvis du kan finde det du snakker op vil jeg da blive meget glad for at se om det er noget jag kan bruge!

Hvad så med:

public
    Enabled1: Integer;

procedure TForm1.Button1Click(Sender: TObject);
var
  Dummy : integer;
begin
Dummy := 0;
if Enabled1 = 1 then
    Enabled1 := 0 //0 means enable ctl-alt-delete
else
    Enabled1 := 1; //1 means disable controls

{Disable ALT-TAB}
SystemParametersInfo( SPI_SETFASTTASKSWITCH, Enabled1, @Dummy, 0);
{Disable CTRL-ALT-DEL}
SystemParametersInfo( SPI_SCREENSAVERRUNNING, Enabled1, @Dummy, 0);
end;

Skulle vis også kunne klare det, har ikke prøvet...

Jeg bruger et lille freeware program wkeykill - kan downloades fra:

http://www.filelibrary.com/Contents/Windows/115/53.html

Niels