Slå Alt+ tab og ctrlált+delete fra

Dette program skulle slå CTRL-ALT-DEL fra (har dog ikke afprøvet det):

program small;

{written by Richard Leigh, Deakin Univesity 1997}

uses
  WinProcs;

{$R *.RES}

var
  Dummy : integer;

begin
  Dummy := 0;
  {Disable ALT-TAB}
  SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
  {Disable CTRL-ALT-DEL}
  SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
end.

Mon ikke du finder ud af at disable resten, hvis du undersøger SystemParametersInfo lidt nærmere?

lange hvis jeg nus kriver det her script hvor faén skal dit så ind ???

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}

procedure TForm1.FormCreate(Sender: TObject);
begin
her skal lang's script hvis være ????
end;

end.


<Andreas>

Jeg kan ikke få det til at virke

<Andreas>

Ja, jeg vil mene det skal ind i din source, hvor du har skrevet det...

Men jeg er forresten ikke helt sikker på, at knapperne bliver enabled efter programudførslen.

lange det har jeg prøvet men det virker ikke

<Andreas>

Hmm... Det virker hos mig - hvad går der galt?

Jeg kan iøvrigt lige oplyse, at tasterne ikke bliver enabled igen :(

Lange

den siger den mangler en fil

hvis jeg laver en fil der hedder unit1.pas
men den en der hedder unit.rpf

ellers kan du sende et helt script ??

<Andreas>

Hvad er det for en fil, den mangler? Unit1.rpf?!? eller WinProcs.dcu?

den første

<Andreas>

Hvis du laver en New Application og paster følgende ind i din unit1, skulle det virke (læs: det gør det for mig):

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}

uses
  WinProcs;

var
  Dummy : integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Dummy := 0;
  {Disable ALT-TAB}
  SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
  {Disable CTRL-ALT-DEL}
  SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
end;

end.

den slå ikke tasterne fra ved mig

jeg køre med Windows 98 og bruger delphi 4.0

<Andreas>

Upz nu fik jeg det til at virke *S

takker lange

<Andreas>

Fino - no prob :)