Ich werde wahnsinnig !! Registry und TaskMGr

[Schnaddel]

Zitat von hOnkibOnk:

Ich habe folgendes *extrem nervendes* Problem. Ich hab ne DLL geschrieben in der folgende procedure drin ist:

Delphi-Quellcode:

procedure EnableCTRLALTDEL(YesNo : boolean);
const
sRegPolicies = '\Software\Microsoft\Windows\CurrentVersion\Policies';
begin
  with TRegistry.Create do
  try
    RootKey:=HKEY_CURRENT_USER;
    if OpenKey(sRegPolicies+'\System\',True) then 
    begin
      case YesNo of 
        False:
          begin 
            WriteInteger('DisableTaskMgr',1);
          end; 
        True:
          begin
            WriteInteger('DisableTaskMgr',0);
          end;
      end;
    end;
    CloseKey;
    if OpenKey(sRegPolicies+'\Explorer\',True) then
    begin
      case YesNo of
        False:
          begin
            WriteInteger('NoChangeStartMenu',1);
            WriteInteger('NoClose',1);
            WriteInteger('NoLogOff',1);
          end;
        True:
          begin
            WriteInteger('NoChangeStartMenu',0);
            WriteInteger('NoClose',0);
            WriteInteger('NoLogOff',0);
          end;
      end;
    end;
    CloseKey;
  finally
    Free;
  end;
end;

Nun habe ich eine Anwendung die diese folgendermassen deklariert:

procedure EnableCTRLALTDEL(YesNo : boolean); external 'denied.dll'
function DisableTaskKeys(bDisable: bool): bool; stdcall; external 'denied.dll'

Das ist eine Art Sperrbildschirm daher die Funktion. Also wird die Exe aufgerufen und es funzt einfach nicht ! Ich bin mir ganz sicher das ich nichts falsch gemacht habe, denn in einer normalen Exe funktioniert es auch. Das einzige was bei meiner anders ist, ist das sie von einem Dienst aufgerufen wird. Die function DisableTaskKeys funktioniert wunderbar. (bitte sag jetzt keiner es liegt an stdcall denn daran liegt es nicht)


Kann es sein das es irgendwie an was anderes (Windows Internes) liegt was ich einfach nur nicht weiß???