Browse Source

+ few package related declarations added

git-svn-id: trunk@7844 -
florian 18 years ago
parent
commit
0c4e27f706
1 changed files with 18 additions and 3 deletions
  1. 18 3
      rtl/win/sysosh.inc

+ 18 - 3
rtl/win/sysosh.inc

@@ -58,6 +58,21 @@ const
   ApiSuffix = 'A';
 {$endif WINCE}
 
-  function OleStrToString(source: PWideChar) : ansistring;inline;
-  procedure OleStrToStrVar(source : PWideChar;var dest : ansistring);inline;
-  function StringToOleStr(const source : ansistring) : PWideChar;inline;
+function OleStrToString(source: PWideChar) : ansistring;inline;
+procedure OleStrToStrVar(source : PWideChar;var dest : ansistring);inline;
+function StringToOleStr(const source : ansistring) : PWideChar;inline;
+
+{ package stuff }
+type
+  PLibModule = ^TLibModule;
+  TLibModule = record
+    Next: PLibModule;
+    Instance: THandle;
+    CodeInstance: THandle;
+    DataInstance: THandle;
+    ResInstance: THandle;
+    Reserved: PtrInt;
+  end;
+
+var
+  LibModuleList: PLibModule = nil;