Kaspersky z.B. wenns richtig eingestellt is überwacht jegliche veränderungen zugriffe und extrem die Systemdateien! :]Zitat:
Zitat von f0Gx
Druckbare Version
Kaspersky z.B. wenns richtig eingestellt is überwacht jegliche veränderungen zugriffe und extrem die Systemdateien! :]Zitat:
Zitat von f0Gx
Wiso Kann ich diesen Code nicht Compilieren??Code:unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TShutdownWindowsType = (swtShutdown, swtShutdownPowerOff, swtRestart, swtLogoff);
TForm2 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
function
ShutdownWindows (aType: TShutdownWindowsType): Boolean;
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
function ShutdownWindows (aType: TShutdownWindowsType): Boolean;
var
Form2: TForm2;
OSVersionInfo: TOSVersionInfo;
hToken: THandle;
hProcess: THandle;
TokenPriv: TTokenPrivileges;
ReturnLength: DWORD;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
function ShutdownWindows (aType: TShutdownWindowsType): Boolean;
const
cSE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
cFlagValue: Array [TShutdownWindowsType] Of UINT = (
EWX_SHUTDOWN, EWX_SHUTDOWN or EWX_POWEROFF, EWX_REBOOT, EWX_LOGOFF
);
begin
Result := False;
// Die Windowsversion holen
OSVersionInfo.dwOSVersionInfoSize := SizeOf (OSVersionInfo);
if not GetVersionEx (OSVersionInfo) then
Exit;
// Prüfen ob Windows NT
if OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then
begin
hProcess := GetCurrentProcess;
if not OpenProcessToken (hProcess, TOKEN_ADJUST_PRIVILEGES, hToken) then
Exit;
if not LookupPrivilegeValue (nil, cSE_SHUTDOWN_NAME, TokenPriv.Privileges[0].Luid) then
Exit;
TokenPriv.PrivilegeCount := 1;
TokenPriv.Privileges [0].Attributes := SE_PRIVILEGE_ENABLED;
if not AdjustTokenPrivileges (
hToken, False, TokenPriv, 0,
PTokenPrivileges (nil)^, ReturnLength
)
then
Exit;
CloseHandle (hToken);
end;
ShutdownWindows := ExitWindowsEx (cFlagValue [aType], $FFFFFFFF);
end;
end.
GruZZ BlackSpike666 :twisted:
Ps: Danke für die Hilfe =) :D
Wenn du den Fehler etwas genauer beschreibst kann vlt. besser geholfen werden ;)
Hast du denn alles selber neu in dein Programm geschriebn oder hast du einfach nur kopiert und eingefügt, da könnte vlt der Fehler liegen ;)
Jaa ich habe es =)
danke für die vielen Hilfen =)
Gruß BlackSpike666 :twisted: