1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
|
{****************************************************************************
This file is part of the Free Pascal run time library.
Copyrigth (c) 2003 by Yuri Prokushev (prokushev@freemail.ru)
OS/2 Presentation Manager Workplace functions and types.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
****************************************************************************}
unit pmwp;
interface
uses
os2def, pmwin;
//*** Common types *******************************************************/
type
HOBJECT=Cardinal;
//*** Object management calls ********************************************/
//*** Standard object classes *****************************************/
const
CCHMAXCLASS = 3; // Length of a classname
QC_First = 0; // Codes for OA_QueryContent
QC_Next = 1;
QC_Last = 2;
LOCATION_DESKTOP = PChar($FFFF0001); // Current Desktop
// use instead of <WP_DESKTOP>
//*** An object's appearance (icon or bitmap or outline) **************/
type
OBJECTIMAGE=record // oimg
hptrObject: Cardinal;
end;
POBJECTIMAGE=^OBJECTIMAGE;
//*** Class info structure returned by WinEnumObjectClasses ***********/
type
POBJCLASS=^OBJCLASS;
OBJCLASS=record // ocls
pNext: POBJCLASS; // Null for the last structure..
pszClassName: PChar; // Class name
pszModName: PChar; // Module name
end;
//*** Workplace object management functions ***************************/
Function WinRegisterObjectClass(pszClassName,
pszModName: PChar): Longbool; cdecl;
external 'PMWP' index 200;
Function WinDeRegisterObjectClass(pszClassName: PChar): Longbool; cdecl;
external 'PMWP' index 201;
Function WinReplaceObjectClass(pszOldClassName,
pszNewClassName: PChar;
fReplace: Longbool): Longbool; cdecl;
external 'PMWP' index 219;
Function WinEnumObjectClasses(VAR apObjClass: OBJCLASS;
VAR pulSize: Cardinal): Longbool; cdecl;
external 'PMWP' index 205;
Function WinCreateObject(pszClassName,
pszTitle,
pszSetupString,
pszLocation: PChar;
ulFlags: Cardinal): HObject; cdecl;
external 'PMWP' index 281;
const
CO_FAILIFEXISTS = 0;
CO_REPLACEIFEXISTS = 1;
CO_UPDATEIFEXISTS = 2;
Function WinSetObjectData(aobject: HOBJECT;
pszSetupString: PChar): Longbool; cdecl;
external 'PMWP' index 250;
Function WinDestroyObject(aobject: HOBJECT): Longbool; cdecl;
external 'PMWP' index 251;
Function WinQueryObject(pszObjectID: PChar): HObject; cdecl;
external 'PMWP' index 252;
Function WinSaveObject(ahObject: HOBJECT;
fAsync: Longbool): Longbool; cdecl;
external 'PMWP' index 285;
Function WinOpenObject(ahObject: HOBJECT;
ulView: Cardinal;
Flag: Longbool): Longbool; cdecl;
external 'PMWP' index 286;
Function WinMoveObject(hObjectofObject: HOBJECT;
hObjectofDest: HOBJECT;
ulReserved: Cardinal): HObject; cdecl;
external 'PMWP' index 287;
Function WinCopyObject(hObjectofObject: HOBJECT;
hObjectofDest: HOBJECT;
ulReserved: Cardinal): HObject; cdecl;
external 'PMWP' index 288;
Function WinCreateShadow(hObjectofObject: HOBJECT;
hObjectofDest: HOBJECT;
ulReserved: Cardinal): HObject; cdecl;
external 'PMWP' index 289;
Function WinQueryActiveDesktopPathname(pszPathName: PChar;
ulSize: Cardinal): Longbool; cdecl;
external 'PMWP' index 262;
Function WinQueryObjectPath(ahobject: HOBJECT;
pszPathName: PChar;
ulSize: Cardinal): Longbool; cdecl;
external 'PMWP' index 263;
Function WinRestartWPDServer(fState: Longbool): Cardinal; cdecl;
external 'PMWP' index 463;
Function WinIsWPDServerReady: Longbool; cdecl;
external 'PMWP' index 465;
Function WinRestartSOMDD(fState: Longbool): Cardinal; cdecl;
external 'PMWP' index 464;
Function WinIsSOMDDReady: Longbool; cdecl;
external 'PMWP' index 480;
//*** Object settings notebook page insertion structure ******************/
type
PAGEINFO=record // pginf
cb: Cardinal;
hwndPage: HWnd;
pfnwp: proc;
resid: Cardinal;
pCreateParams: Pointer;
dlgid: Word;
usPageStyleFlags: Word;
usPageInsertFlags: Word;
usSettingsFlags: Word;
pszName: PChar;
idDefaultHelpPanel: Word;
usReserved2: Word;
pszHelpLibraryName: PChar;
pHelpSubtable: ^Word; // PHELPSUBTABLE when PMHELP.H is included
hmodHelpSubtable: Cardinal;
ulPageInsertId: Cardinal;
end;
PPAGEINFO=^PAGEINFO;
const
SETTINGS_PAGE_NUMBERS = $01;
//*** Utility apis +******************************************************/
type
ICONPOS=record // icp
ptlIcon: POINTL; // Location
szIdentity: Array[0..1-1] of Char; // Object identity string
end;
PICONPOS=^ICONPOS;
//*********************************************************************/
Function WinSetFileIcon(pszFileName: PChar;
var pIcon: ICONINFO): Longbool; cdecl;
external 'PMWP' index 210;
Function WinFreeFileIcon(hptr: Cardinal): Longbool; cdecl;
external 'PMWP' index 216;
Function WinLoadFileIcon(pszFileName: PChar;
fPrivate: Longbool): Cardinal; cdecl;
external 'PMWP' index 209;
Function WinStoreWindowPos(pszAppName,
pszKeyName: PChar;
ahwnd: HWND): Longbool; cdecl;
external 'PMWP' index 207;
Function WinRestoreWindowPos(pszAppName,
pszKeyName: PChar;
ahwnd: HWND): Longbool; cdecl;
external 'PMWP' index 208;
Function WinShutdownSystem(ahab: HAB;
ahmq: HMQ): Longbool; cdecl;
external 'PMWP' index 149;
implementation
end.
{
// Not implemented/not documented APIs
WinShutdownAndReboot PMWP 152 ?
WinShutdown PMWP 153 ?
OldWinCreateObject PMWP 202 ?
WinRestartWorkplace PMWP 221 ?
ShlGetUserWordPtr PMWP 224 ?
WinUnlockSystem PMWP 282 ?
WinLockupSystem PMWP 283 ?
WinNotebookButtonFromID PMWP 511 ?
WinWaitForShell PMWP 512 ?
}
{
// Not founded indexes
Function WinSetFileIconN(pszFileName: PChar
pIcnInfo: PICONINFO;
ulIconIndex: Cardinal): Longbool; cdecl;
external 'PMWP' index ???;
Function WinLoadFileIconN(pszFileName: PChar;
fPrivate: Longbool,
ulIconIndex: Cardinal): Cardinal; cdecl;
external 'PMWP' index ???;
}
|
