Avatar billede snorga Nybegynder
03. maj 1999 - 00:00 Der er 4 kommentarer og
1 løsning

Capture crtl+alt+del

Er der nogen der ved hvordan at man kan capture ctrl+alt+del, alt+tab og musen.

Jeg vil gerne lave et computer låse program, som kan låse computeren ind til at man taste et password ind.
Avatar billede hojben Novice
03. maj 1999 - 12:36 #1
Jeg ved at der findes et sådan program til Win9X men jeg kan ikke lige huske hvad det hed.. Har du prøvet Windows NT WS X ?? Der er det indbygget..

/Fætter
Avatar billede rdj Nybegynder
03. maj 1999 - 12:47 #2
Her er et hint

Have you ever needed to control your application to the point that you did not what anyone to be able to remove your application through the Task Manager? Here is a pretty simple process using RegisterServiceProcess() from the kernel32.dll itself. You have to declare this routine as an external function from a DLL like I have done in this tip. As a note: this routine will hide your application from ALT-TAB as well as CTRL-ALT-DELETE.

You will need to declare this function in the Interface portion of your unit. Simple add it above your global var as I have done and you are done.
Next you will need a TForm1.OnCreate event where we will call our external function.
The RegisterServiceProcess() function registers or unregisters a serviceprocess.
RegisterServiceProcess( DWORD dwProcessId, DWORD dwType);
dwProcessId specifies the identifier of the process to register as a service process. We will get the process id by calling GetCurrentProcessId.
dwType specifies whether the service is to be registered or unregistered. This parameter can be one of the following values. 0 = Unregisters the process as a service process. 1 = Registers the process as a service process.
The return value is 1 if successful or 0 if an error occurs.


Example 1

{...}

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

function RegisterServiceProcess(ProcessID, Flag: dWord):Word;
          stdcall; external 'kernel32.dll';
{...}

procedure TForm1.FormCreate(Sender: TObject);
var
  CurrentProccess : DWORD;
begin
  // get our applications process ID
  CurrentProcess := GetCurrentProcessID();
  // register our process as a kernel32 process
  RegisterServiceProcess(CurrentProcess, 1);
end;

{...}


Avatar billede dj Nybegynder
19. maj 1999 - 15:23 #3
well, hvis du mangler et password program til 95/98 så har jeg allerede lavet et, som du kan hente på http://surf.to/guf whatever så offentliggører jeg ikke sourcekoden til det pga. at det er et publicprogram, som jeg har brugt LANG tid på :) jeg kan dog godt hjælpe dig hvis du skulle få andre problemer undervejs, for det er ikke lige så nemt at lave et sådant program,du vil opdage at der er MANGE måder at komme forbi det på !
Avatar billede snorga Nybegynder
03. juni 1999 - 12:36 #4
Det var ikke helt det jeg havde brug for.. Men godt nok.

Undskyld den lange svar tid, men jeg fik IKKE nogle brev om at der var svaret på spørgsmålet!?! Hvilke man (såvidt jeg har fårstået) burde få..?
Avatar billede el-prebsi Nybegynder
11. januar 2001 - 08:43 #5
Det kan godt være at man skal lukke sit spørgsmål men hvordan fanden kan jeg gøre det???
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester