prozess verstecken

[geisi]

Ich habe hier im forum den folgenden code bekommen, um meinen prozess zu beenden:

Delphi-Quellcode:

interface 
  
uses 

  function RegisterServiceProcess 
    (dwProcessID, dwType: DWord) : DWord; stdcall; 


implementation 

{$R *.DFM} 

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

Diese Procedure vesteckt die Anwendung vor dem Taskmanager: 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  RegisterServiceProcess(0,1); 
end; 

Und diese zeigt sie wieder an: 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
  RegisterServiceProcess(0,0); 
end; 
--

Ich habe ihn so verwendet und bekomme die Fehlermeldung, das für 'RegisterServiceProcess' eine deklaration erwartet wird aber eine stringkonstante gefunden, was habe ich falsch gemacht?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, StdCtrls;

  function RegisterServiceProcess(dwProcessID, dwType: DWord): DWord;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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


procedure TForm1.Button1Click(Sender: TObject);
begin
  RegisterServiceProcess(0,1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  RegisterServiceProcess(0,0);
end;

end.

[Christian Seehase]

Moin Geisi,

lass das hier

'RegisterServiceProcess';

mal weg, oder schreib name davor.

[Luckie]

Ändere bitte den Titel deines Topics. "Was passiert hier nicht?" ist nicht sehr aussagekräftig.

Dann. Mit dem Code beendest du keine Anwendung, sondern versteckst sie für dem Taskmanger unter Windows9x. Überleg dir also noch mal was du überhaupt willst.

[CalganX]

Hi geisi,
ich hab noch was zu motzen. Bitte poste nicht zweimal den gleichen SourceCode. Dadurch wird der Beitrag unnötig groß.

Zitat von geisi:

Ich habe ihn so verwendet und bekomme die Fehlermeldung, das für 'RegisterServiceProcess' eine deklaration erwartet wird aber eine stringkonstante gefunden, was habe ich falsch gemacht?

Ganz einfach. Du schreibst:

In deinem Source steht

Delphi-Quellcode:

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

Du müsstest aber schreiben:

Code:

function RegisterServiceProcess(dwProcessID, dwType: DWord): DWord;
  external 'KERNEL32.DLL';[color=#ff0000]name [/color]'RegisterServiceProcess';

Alternativ kannst du das nach dem name auch weglassen.

Chris

[geisi]

ich habe schon verstecken gemeint, nicht beenden!

wenn ich 'RegisterServiceProcess' weglasse,dann kommt die Fehlermeldung:
"Der Prozedureeinsprungpunkt 'RegisterServiceProcess' wurde in der DLL 'KERNEL32.DLL' nicht gefunden"

was kann ich da jetzt machen?

[CalganX]

Hi,
nochmal zur Nachfrage: wo kommt welcher Fehler, an welcher Stelle, wenn du was weglässt?

Chris

[Luckie]

Ich muss dich noch mal ermahnen. Ändere bitte den Titel deines Topics.

[geisi]

mache ich es wie chakotay1308:
function RegisterServiceProcess(dwProcessID, dwType: DWord): DWord;
external 'KERNEL32.DLL';name 'RegisterServiceProcess';
Fehlermeldung:
Deklaration erwartet, aber Bezeichner 'name' gefunden

[CalganX]

Hi,
sorry. Mein Fehler:
function RegisterServiceProcess(dwProcessID, dwType: DWord): DWord; external 'KERNEL32.DLL' name 'RegisterServiceProcess'; Wenn das nicht klappt fress ich nen Besen. *besen such*

[-- s.u. --]

Chris

[edit]Da war ja dann doch einer schneller als ich. [/edit]

[geisi]

Der Einsprungpunkt wird jetzt nicht gefunden (laut Fehlermeldung);