Komponente geht nicht

[mkinzler]

Die Property heißt auch shutdown_

[I.A.]

Sie ist aber trotzdem unterstrichen.



\\Edit

Delphi-Quellcode:

unit shutdown;

interface

uses
  SysUtils, Classes, shellapi, Forms, Windows;

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


  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    function shutdown: Boolean;
    function logout: Boolean;
    function restart: 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 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
  ShellExecute(Application.Handle, 'open', 'cmd', 'shutdown -s', nil, SW_Shownormal);
  end
  else
  shutdown_ := false;
end;

function Tshutdown.logout:Boolean;
begin
  if  logout_= true then
  begin
  ShellExecute(Application.Handle, 'open', 'cmd', 'shutdown -l', nil, SW_Shownormal);
  end
  else
  logout_ := false;
end;

function Tshutdown.restart:Boolean;
begin
  if  restart_= true then
  begin
  ShellExecute(Application.Handle, 'open', 'cmd', 'shutdown -r', nil, SW_Shownormal);
  end
  else
  restart_ := false;
end;


function Tshutdown.killtask:Boolean;
begin
  if  killtask_= true then
  begin
  ShellExecute(Application.Handle, 'open', 'cmd', 'shutdown -f', nil, SW_Shownormal);
  end
  else
  killtask_ := false;

end;

end.

[edit=MrSpock]Delphi-Code tags eingefügt. Mfg, MrSpock[/edit]

[mkinzler]

Zeig mal den Code der Unit, bzw hänge diese an deinen Beitrag

[Neutral General]

Shutdown is auch ne Funktion... dh du rufst einfach nur

Delphi-Quellcode:

DeineKlasse.Shutdown_;

auf und dann wird das ausgeführt.. du kannst funktionen nix zuweisen ;)

Gruß
Neutral General

[hoika]

OH = Online Hilfe

F1


Heiko

[I.A.]

Ich will aber haben das ich dem Befehl z.B. "shutdown" den Wert true oder false zuweisen kann.

[hoika]

Hallo #,

du kannst nur properties Werte zuweisen.

ausserdem solltest du dich an die Delphi-Konventionen halten.

Delphi-Quellcode:

procedure SetShutDown(theValue: Boolean);
begin
  if theValue then
  begin
    DoInternalShutDown;  // DoInternalShutDown enthält den shutdown code
  end;
end;

property ShutDown: Boolean
  write SetShutDown;  // read ist sinnlos

Heiko

[I.A.]

Danke dir Vielmals