Capture CTRL+ALT+Del og knap til genstart

Har selv fundet ud af det sidste. Kan gøres med ExitWindows(EW_REBOOTSYSTEM, 0 );

Snowball

Hej

Jeg har bikset et lille eksempel sammen til dig med fuld kode, så det skulle være ret enkelt at få til at virke :)

Nedenstående gør ikke at man ikke kan trykke CTRL+ALT+DEL men istedet for at dit program ikke bliver vist i CTRL+ALT+DEL menuen, hvilket hvis jeg forstår dit program rigtigt er lidt mere hensynsfuldt over for brugeren.

Hvis du alligevel ønsker at helt disable CTRL+ALT+DEL så se dette spørgsmål der står ret præcist hvordan det skal gøres:

http://www.eksperten.dk/spm.asp?id=2281

-----------------------------------------------------

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


function  RegisterServiceProcess(dwProcessID,dwType : DWORD) : DWORD; stdcall; external 'KERNEL32.DLL';

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterServiceProcess(GetCurrentProcessID,1);
end;

end.

Hej dj

Formålet er helt at disable CTRL+ALT+DEL. Det med at den ikke bli'r vist i oversigten som normalt ved jeg godt hvordan man laver.

Det spørgsmål som du henviser til har jeg set (derfor jeg skrev at jeg vidste det havde været oppe og vende før), men jeg har ikke fået det til at virke ?!?!?

Snowball

Hej Snowball

Jeg har en komponent der hedder SetKEy. Den kan disable CTRL + ALT + DELETE, Disable startknappen på keyboarded tænde og slukke for "Lock-lamperne".

Du kan hente den på : http://home1.inet.tele.dk/john-m/setkey/setkey.zip

Den fylder ca. 4K

Pas-filen er med, så du kan lede koden igennem, hvis ikke du vil bruge komponenten ;-)

/SpEeDy

Hvis man laver programmer, der på en eller anden måde skal køres færdig uden at brugeren har mulighed for at hindre dette (ud over via elværket), så kan der være brug for at slå tastkombinationerne alt+tab samt ctrl+alt+del. I de to følgende metoder er vist koden til at slå tastkombinationerne fra og til.
procedure
TForm1.Button1Click(Sender: TObject);
var
dummy: integer;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @dummy, 0);
end;

// I denne metode slås
tastkombinationerne til igen
procedure
TForm1.Button2Click(Sender: TObject);
var
dummy: integer;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @dummy, 0);
end;


DISSE METODER VIRKER IKKE UNDER WINDOWS NT/2000
cool-wil

speedy >> ehm.. fedt at bruge en komponent der gør nøjagtigt det samme som en kode der findes under det svar jeg henviste til.

Cool-Wil >> og fedt at gå ind på det link jeg havde givet og copy - paste koden herud ...

I er sgu' smarte ..

Men Cool-Wil har ret i at koden kun virker under 95/98 så hvis du kører NT eller 2000 er det sikkert derfor du ikke kan få det til at virke. NT/2000 er bygget en del mere sikkert op end 95/98 og du kan derfor ikke køre programmer som taskmanageren/servicemanageren ikke kan se.

dj: OK, så er det nok derfor jeg ikke kan få det til at virke ;)

Snowball