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ß???
Programmierung allgemein
Zitat
Baum-Darstellung
