Komponente geht nicht

[I.A.]

Hallo, das ist meine erste Komponente, eine shutdown Komponente bloss lässt sie sich nicht Compilieren.
Wenn ihr mal den Quelltext durchlesen und mir sagen könnten was ich falsch gemacht habe wäre das hilfreich.

Delphi-Quellcode:

unit shutdown;

interface

uses
  SysUtils, Classes;

type
  Tshutdown = class(TComponent)
  private
    { Private-Deklarationen }
    out: Boolean;
    down: Boolean;
    re: Boolean;
    remote: Boolean;
    kill: Boolean;
    ip: Integer;

  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    function shutdown: Boolean;
    function logout: Boolean;
    function restart: Boolean;
    function remote_shutdown: Boolean;
    function killtask : Boolean;

  published
    { Published-Deklarationen }
    property shutdown_ : Boolean Read down write down;
    property restart_ : Boolean Read re write re;
    property logout_ : Boolean Read out write out;
    property remote_shutdown_ : Boolean Read remote write remote;
    property remote_shutdown_ip : Integer Read IP write IP;
    property killtask_ : Boolean Read kill write kill;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [Tshutdown]);
end;

function Tshutdown.shutdown:Boolean;
begin
  if  shutdown_= true then
  begin
  ('cmd "shutdown -s -t 00"');
  end
  else
  shutdown_ := false;
end;

function Tshutdown.logout:Boolean;
begin
  if  logout_= true then
  begin
  ('cmd "shutdown -l"');
  end
  else
  logout_ := false;
end;

function Tshutdown.restart:Boolean;
begin
  if  restart_= true then
  begin
  ('cmd "shutdown -r"');
  end
  else
  restart_ := false;
end;

function Tshutdown.remote_shutdown:Boolean;
begin
  if  remote_shutdown_= true then
  begin
  ('cmd "shutdown -m \\(+remote_shutdown_ip) -s"');
  end
  else
  remote_shutdown_ := false;
end;

function Tshutdown.killtask:Boolean;
begin
  if  killtask_= true then
  begin
  ('cmd "shutdown -f"');
  end
  else
  killtask_ := false;

end;

end.

[Neutral General]

Delphi-Quellcode:

('cmd "shutdown -f"');

Mal ne dumme Frage: Was soll das werden wenns fertig ist? :shock:

EDIT: Würde mir mal Shellexecute (Uses: shellapi) anschauen...

[I.A.]

Ja, ich habe schonmal davon gehört von dem shellexecute teil, aber ich hab des net geblickt.
Des shutdown -f bricht alle Anwendungen ohne Warnung ab.

[mkinzler]

Zitat:

Ja, ich habe schonmal davon gehört von dem shellexecute teil, aber ich hab des net geblickt.

Du willst andere Rechner Herunterfahren, weißt aber nicht wie man die OH benutzt?

[I.A.]

Ja, das lässt sich ja noch ändern meine Frage war eigentlich warum die Komponente nicht funktioniert.

[mkinzler]

Ich nehme mal an, daß sie sich so nicht kompilieren läßt.

[I.A.]

Genau !!!

Zitat:

Hallo, das ist meine erste Komponente, eine shutdown Komponente bloss lässt sie sich nicht Compilieren. Wenn ihr mal den Quelltext durchlesen und mir sagen könnten was ich falsch gemacht habe wäre das hilfreich.

Ne jetzt mal im ernst warum nicht ?? :gruebel:
Ich bin da voller Anfänger, wie gesagt meine erste Komponente und Delphi Anfänger bin ich auch noch.

[Muetze1]

Zitat:

Zitat von I.A.

Ne jetzt mal im ernst warum nicht ?? :gruebel:

Zitat:

Zitat von Neutral General

Delphi-Quellcode:

('cmd "shutdown -f"');

Mal ne dumme Frage: Was soll das werden wenns fertig ist? :shock:

EDIT: Würde mir mal Shellexecute (Uses: shellapi) anschauen...

Das wurde nicht umsonst gefragt! Das ist keine Anweisung und keine Aktion - daher die Frage: Was soll das werden?

[mkinzler]

Wurde doch schon gesagt:

Zitat:

Delphi-Quellcode:

('cmd "shutdown -f"');

usw. geht nicht.Du mußt Shellexecue nehmen.

[I.A.]

1.
Kann mal eine ein Beispiel machen ? nur von z.B.

Delphi-Quellcode:

('cmd "shutdown -f"');

2.
Sonst würde alles gehen ???