Explorar o código

* Fixed compilation

git-svn-id: trunk@16042 -
joost %!s(int64=15) %!d(string=hai) anos
pai
achega
d850791041
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      packages/fcl-base/src/win/eventlog.inc

+ 1 - 1
packages/fcl-base/src/win/eventlog.inc

@@ -113,7 +113,7 @@ Var
   ELKey : String;
 begin
   ELKey:=Format(SKeyEventLog,[IDentification]);
-  Result:=RegDeleteKeyA(HKEY_LOCAL_MACHINE,pchar(ELKey));
+  Result:=(RegDeleteKeyA(HKEY_LOCAL_MACHINE,pchar(ELKey))=ERROR_SUCCESS);
 end;
 
 function TEventLog.MapTypeToCategory(EventType: TEventType): Word;