* delphi compatibility 2

git-svn-id: trunk@3409 -

packages/extra/winunits/shlobj.pp

@@ -30,6 +30,12 @@ unit shlobj;
         function SetNameOf(hwndOwner: HWND; pidl: PItemIDList; lpszName: POLEStr; uFlags: DWORD; var ppidlOut: PItemIDList): HRESULT; stdcall;
       end;
 
+      IAutoComplete = interface(IUnknown)
+        ['{00bb2762-6a77-11d0-a535-00c04fd7d062}']
+        function Init(hwndEdit: HWND; punkACL: IUnknown; pwszRegKeyPath: LPCWSTR; pwszQuickComplete: LPCWSTR): HRESULT; stdcall;
+        function Enable(fEnable: BOOL): HRESULT; stdcall;
+      end;
+
   implementation
 
 end.

rtl/win/wininc/messages.inc

@@ -1261,9 +1261,12 @@ Type
       Result: LRESULT;
     end;
 
-    TWMKeyDown = TWMKey;
-    TWMKeyUp   = TWMKey;
-    TWMChar    = TWMKey;
+    TWMKeyDown    = TWMKey;
+    TWMKeyUp      = TWMKey;
+    TWMChar       = TWMKey;
+    TWMSysChar    = TWMKey;
+    TWMSysKeyDown = TWMKey;
+    TWMSysKeyUp   = TWMKey;
 
     TWMMenuChar = record
       Msg: UINT;
@@ -1626,6 +1629,20 @@ Type
       Result : LRESULT;
     end;
 
+    TWMNCPaint = record
+      Msg : UINT;
+      RGN : HRGN;
+      Unused : Longint;
+      Result : LRESULT;
+    end;
+
+    TWMSetText = record
+      Msg : UINT;
+      Unused : Longint;
+      Text : PChar;
+      Result : LRESULT;
+    end;
+
     {$endif messagesunit}
 
 {$endif read_interface}