Zitat von
Luckie:
Warum instanzierst du im Konstruktor die eigene Klasse? Du brauchst eigentlich auch keinen eigenen Konstruktor:
Delphi-Quellcode:
unit ShutDown;
interface
uses
Windows, Messages;
type
TShutDown =
class(TObject)
private
procedure GetPrivileges;
public
procedure Shutdown(PowerOff,Force :boolean);
procedure Ruhezustand(Force :boolean);
procedure Standby(Force :boolean);
procedure Logoff(Force : boolean);
procedure Restart(Force :boolean);
end;
var
PowerOff: boolean;
implementation
procedure TShutDown.GetPrivileges;
//Rechte um runterzufahren holen.
//...
Und wozu die globale Variable
PowerOff?
Genau das war eingangs mein Problem. Wie ich sonst die proceduren hier aus einer anderen Form erreichen kann. Obwohl die public sind gehts nicht....