* corrections for OS/2 support of clipboard

packages/ide/winclip.pas

@@ -227,6 +227,7 @@ var
   OS2ClipboardSupported: boolean = false;
   PMWHandle: cardinal;
   MsgQueueHandle: cardinal;
+  PIB: PProcessInfoBlock;
 
 type
 (*  TWinSetClipbrdOwner = function (hab, hwnd: cardinal): longbool; cdecl;*)
@@ -330,9 +331,10 @@ procedure InitClipboard;
 var
   RC: cardinal;
   ProcOK: boolean;
-  PIB: PProcessInfoBlock;
   TIB: PThreadInfoBlock;
   PMWModHandle: THandle;
+  Err: string;
+  ErrL: cardinal;
 begin
   if OS2ClipboardSupported then
    Exit;
@@ -340,7 +342,8 @@ begin
   OrigSessType := PIB^.tType;
   PIB^.tType := 3;
 
-  RC := DosQueryModuleHandle ('PMWIN', PMWModHandle);
+{  RC := DosQueryModuleHandle ('PMWIN', PMWModHandle);}
+  RC := DosLoadModule (Err, ErrL, 'PMWIN', PMWModHandle);
   if RC <> 0 then
    begin
     PIB^.tType := OrigSessType;