struct.inc 267 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446444744484449445044514452445344544455445644574458445944604461446244634464446544664467446844694470447144724473447444754476447744784479448044814482448344844485448644874488448944904491449244934494449544964497449844994500450145024503450445054506450745084509451045114512451345144515451645174518451945204521452245234524452545264527452845294530453145324533453445354536453745384539454045414542454345444545454645474548454945504551455245534554455545564557455845594560456145624563456445654566456745684569457045714572457345744575457645774578457945804581458245834584458545864587458845894590459145924593459445954596459745984599460046014602460346044605460646074608460946104611461246134614461546164617461846194620462146224623462446254626462746284629463046314632463346344635463646374638463946404641464246434644464546464647464846494650465146524653465446554656465746584659466046614662466346644665466646674668466946704671467246734674467546764677467846794680468146824683468446854686468746884689469046914692469346944695469646974698469947004701470247034704470547064707470847094710471147124713471447154716471747184719472047214722472347244725472647274728472947304731473247334734473547364737473847394740474147424743474447454746474747484749475047514752475347544755475647574758475947604761476247634764476547664767476847694770477147724773477447754776477747784779478047814782478347844785478647874788478947904791479247934794479547964797479847994800480148024803480448054806480748084809481048114812481348144815481648174818481948204821482248234824482548264827482848294830483148324833483448354836483748384839484048414842484348444845484648474848484948504851485248534854485548564857485848594860486148624863486448654866486748684869487048714872487348744875487648774878487948804881488248834884488548864887488848894890489148924893489448954896489748984899490049014902490349044905490649074908490949104911491249134914491549164917491849194920492149224923492449254926492749284929493049314932493349344935493649374938493949404941494249434944494549464947494849494950495149524953495449554956495749584959496049614962496349644965496649674968496949704971497249734974497549764977497849794980498149824983498449854986498749884989499049914992499349944995499649974998499950005001500250035004500550065007500850095010501150125013501450155016501750185019502050215022502350245025502650275028502950305031503250335034503550365037503850395040504150425043504450455046504750485049505050515052505350545055505650575058505950605061506250635064506550665067506850695070507150725073507450755076507750785079508050815082508350845085508650875088508950905091509250935094509550965097509850995100510151025103510451055106510751085109511051115112511351145115511651175118511951205121512251235124512551265127512851295130513151325133513451355136513751385139514051415142514351445145514651475148514951505151515251535154515551565157515851595160516151625163516451655166516751685169517051715172517351745175517651775178517951805181518251835184518551865187518851895190519151925193519451955196519751985199520052015202520352045205520652075208520952105211521252135214521552165217521852195220522152225223522452255226522752285229523052315232523352345235523652375238523952405241524252435244524552465247524852495250525152525253525452555256525752585259526052615262526352645265526652675268526952705271527252735274527552765277527852795280528152825283528452855286528752885289529052915292529352945295529652975298529953005301530253035304530553065307530853095310531153125313531453155316531753185319532053215322532353245325532653275328532953305331533253335334533553365337533853395340534153425343534453455346534753485349535053515352535353545355535653575358535953605361536253635364536553665367536853695370537153725373537453755376537753785379538053815382538353845385538653875388538953905391539253935394539553965397539853995400540154025403540454055406540754085409541054115412541354145415541654175418541954205421542254235424542554265427542854295430543154325433543454355436543754385439544054415442544354445445544654475448544954505451545254535454545554565457545854595460546154625463546454655466546754685469547054715472547354745475547654775478547954805481548254835484548554865487548854895490549154925493549454955496549754985499550055015502550355045505550655075508550955105511551255135514551555165517551855195520552155225523552455255526552755285529553055315532553355345535553655375538553955405541554255435544554555465547554855495550555155525553555455555556555755585559556055615562556355645565556655675568556955705571557255735574557555765577557855795580558155825583558455855586558755885589559055915592559355945595559655975598559956005601560256035604560556065607560856095610561156125613561456155616561756185619562056215622562356245625562656275628562956305631563256335634563556365637563856395640564156425643564456455646564756485649565056515652565356545655565656575658565956605661566256635664566556665667566856695670567156725673567456755676567756785679568056815682568356845685568656875688568956905691569256935694569556965697569856995700570157025703570457055706570757085709571057115712571357145715571657175718571957205721572257235724572557265727572857295730573157325733573457355736573757385739574057415742574357445745574657475748574957505751575257535754575557565757575857595760576157625763576457655766576757685769577057715772577357745775577657775778577957805781578257835784578557865787578857895790579157925793579457955796579757985799580058015802580358045805580658075808580958105811581258135814581558165817581858195820582158225823582458255826582758285829583058315832583358345835583658375838583958405841584258435844584558465847584858495850585158525853585458555856585758585859586058615862586358645865586658675868586958705871587258735874587558765877587858795880588158825883588458855886588758885889589058915892589358945895589658975898589959005901590259035904590559065907590859095910591159125913591459155916591759185919592059215922592359245925592659275928592959305931593259335934593559365937593859395940594159425943594459455946594759485949595059515952595359545955595659575958595959605961596259635964596559665967596859695970597159725973597459755976597759785979598059815982598359845985598659875988598959905991599259935994599559965997599859996000600160026003600460056006600760086009601060116012601360146015601660176018601960206021602260236024602560266027602860296030603160326033603460356036603760386039604060416042604360446045604660476048604960506051605260536054605560566057605860596060606160626063606460656066606760686069607060716072607360746075607660776078607960806081608260836084608560866087608860896090609160926093609460956096609760986099610061016102610361046105610661076108610961106111611261136114611561166117611861196120612161226123612461256126612761286129613061316132613361346135613661376138613961406141614261436144614561466147614861496150615161526153615461556156615761586159616061616162616361646165616661676168616961706171617261736174617561766177617861796180618161826183618461856186618761886189619061916192619361946195619661976198619962006201620262036204620562066207620862096210621162126213621462156216621762186219622062216222622362246225622662276228622962306231623262336234623562366237623862396240624162426243624462456246624762486249625062516252625362546255625662576258625962606261626262636264626562666267626862696270627162726273627462756276627762786279628062816282628362846285628662876288628962906291629262936294629562966297629862996300630163026303630463056306630763086309631063116312631363146315631663176318631963206321632263236324632563266327632863296330633163326333633463356336633763386339634063416342634363446345634663476348634963506351635263536354635563566357635863596360636163626363636463656366636763686369637063716372637363746375637663776378637963806381638263836384638563866387638863896390639163926393639463956396639763986399640064016402640364046405640664076408640964106411641264136414641564166417641864196420642164226423642464256426642764286429643064316432643364346435643664376438643964406441644264436444644564466447644864496450645164526453645464556456645764586459646064616462646364646465646664676468646964706471647264736474647564766477647864796480648164826483648464856486648764886489649064916492649364946495649664976498649965006501650265036504650565066507650865096510651165126513651465156516651765186519652065216522652365246525652665276528652965306531653265336534653565366537653865396540654165426543654465456546654765486549655065516552655365546555655665576558655965606561656265636564656565666567656865696570657165726573657465756576657765786579658065816582658365846585658665876588658965906591659265936594659565966597659865996600660166026603660466056606660766086609661066116612661366146615661666176618661966206621662266236624662566266627662866296630663166326633663466356636663766386639664066416642664366446645664666476648664966506651665266536654665566566657665866596660666166626663666466656666666766686669667066716672667366746675667666776678667966806681668266836684668566866687668866896690669166926693669466956696669766986699670067016702670367046705670667076708670967106711671267136714671567166717671867196720672167226723672467256726672767286729673067316732673367346735673667376738673967406741674267436744674567466747674867496750675167526753675467556756675767586759676067616762676367646765676667676768676967706771677267736774677567766777677867796780678167826783678467856786678767886789679067916792679367946795679667976798679968006801680268036804680568066807680868096810681168126813681468156816681768186819682068216822682368246825682668276828682968306831683268336834683568366837683868396840684168426843684468456846684768486849685068516852685368546855685668576858685968606861686268636864686568666867686868696870687168726873687468756876687768786879688068816882688368846885688668876888688968906891689268936894689568966897689868996900690169026903690469056906690769086909691069116912691369146915691669176918691969206921692269236924692569266927692869296930693169326933693469356936693769386939694069416942694369446945694669476948694969506951695269536954695569566957695869596960696169626963696469656966696769686969697069716972697369746975697669776978697969806981698269836984698569866987698869896990699169926993699469956996699769986999700070017002700370047005700670077008700970107011701270137014701570167017701870197020702170227023702470257026702770287029703070317032703370347035703670377038703970407041704270437044704570467047704870497050705170527053705470557056705770587059706070617062706370647065706670677068706970707071707270737074707570767077707870797080708170827083708470857086708770887089709070917092709370947095709670977098709971007101710271037104710571067107710871097110711171127113711471157116711771187119712071217122712371247125712671277128712971307131713271337134713571367137713871397140714171427143714471457146714771487149715071517152715371547155715671577158715971607161716271637164716571667167716871697170717171727173717471757176717771787179718071817182718371847185718671877188718971907191719271937194719571967197719871997200720172027203720472057206720772087209721072117212721372147215721672177218721972207221722272237224722572267227722872297230723172327233723472357236723772387239724072417242724372447245724672477248724972507251725272537254725572567257725872597260726172627263726472657266726772687269727072717272727372747275727672777278727972807281728272837284728572867287728872897290729172927293729472957296729772987299730073017302730373047305730673077308730973107311731273137314731573167317731873197320732173227323732473257326732773287329733073317332733373347335733673377338733973407341734273437344734573467347734873497350735173527353735473557356735773587359736073617362736373647365736673677368736973707371737273737374737573767377737873797380738173827383738473857386738773887389739073917392739373947395739673977398739974007401740274037404740574067407740874097410741174127413741474157416741774187419742074217422742374247425742674277428742974307431743274337434743574367437743874397440744174427443744474457446744774487449745074517452745374547455745674577458745974607461746274637464746574667467746874697470747174727473747474757476747774787479748074817482748374847485748674877488748974907491749274937494749574967497749874997500750175027503750475057506750775087509751075117512751375147515751675177518751975207521752275237524752575267527752875297530753175327533753475357536753775387539754075417542754375447545754675477548754975507551755275537554755575567557755875597560756175627563756475657566756775687569757075717572757375747575757675777578757975807581758275837584758575867587758875897590759175927593759475957596759775987599760076017602760376047605760676077608760976107611761276137614761576167617761876197620762176227623762476257626762776287629763076317632763376347635763676377638763976407641764276437644764576467647764876497650765176527653765476557656765776587659766076617662766376647665766676677668766976707671767276737674767576767677767876797680768176827683768476857686768776887689769076917692769376947695769676977698769977007701770277037704770577067707770877097710771177127713771477157716771777187719772077217722772377247725772677277728772977307731773277337734773577367737773877397740774177427743774477457746774777487749775077517752775377547755775677577758775977607761776277637764776577667767776877697770777177727773777477757776777777787779778077817782778377847785778677877788778977907791779277937794779577967797779877997800780178027803780478057806780778087809781078117812781378147815781678177818781978207821782278237824782578267827782878297830783178327833783478357836783778387839784078417842784378447845784678477848784978507851785278537854785578567857785878597860786178627863786478657866786778687869787078717872787378747875787678777878787978807881788278837884788578867887788878897890789178927893789478957896789778987899790079017902790379047905790679077908790979107911791279137914791579167917791879197920792179227923792479257926792779287929793079317932793379347935793679377938793979407941794279437944794579467947794879497950795179527953795479557956795779587959796079617962796379647965796679677968796979707971797279737974797579767977797879797980798179827983798479857986798779887989799079917992799379947995799679977998799980008001800280038004800580068007800880098010801180128013801480158016801780188019802080218022802380248025802680278028802980308031803280338034803580368037803880398040804180428043804480458046804780488049805080518052805380548055805680578058805980608061806280638064806580668067806880698070807180728073807480758076807780788079808080818082808380848085808680878088808980908091809280938094809580968097809880998100810181028103810481058106810781088109811081118112811381148115811681178118811981208121812281238124812581268127812881298130813181328133813481358136813781388139814081418142814381448145814681478148814981508151815281538154815581568157815881598160816181628163816481658166816781688169817081718172817381748175817681778178817981808181818281838184818581868187818881898190819181928193819481958196819781988199820082018202820382048205820682078208820982108211821282138214821582168217821882198220822182228223822482258226822782288229823082318232823382348235823682378238823982408241824282438244824582468247824882498250825182528253825482558256825782588259826082618262826382648265826682678268826982708271827282738274827582768277827882798280828182828283828482858286828782888289829082918292829382948295829682978298829983008301830283038304830583068307830883098310831183128313831483158316831783188319832083218322832383248325832683278328832983308331833283338334833583368337833883398340834183428343834483458346834783488349835083518352835383548355835683578358835983608361836283638364836583668367836883698370837183728373837483758376837783788379838083818382838383848385838683878388838983908391839283938394839583968397839883998400840184028403840484058406840784088409841084118412841384148415841684178418841984208421842284238424842584268427842884298430843184328433843484358436843784388439844084418442844384448445844684478448844984508451845284538454845584568457845884598460846184628463846484658466846784688469847084718472847384748475847684778478847984808481848284838484848584868487848884898490849184928493849484958496849784988499850085018502850385048505850685078508850985108511851285138514851585168517851885198520852185228523852485258526852785288529853085318532853385348535853685378538853985408541854285438544854585468547854885498550855185528553855485558556855785588559856085618562856385648565856685678568856985708571857285738574857585768577857885798580858185828583858485858586858785888589859085918592859385948595859685978598859986008601860286038604860586068607860886098610861186128613861486158616861786188619862086218622862386248625862686278628862986308631863286338634863586368637863886398640864186428643864486458646864786488649865086518652865386548655865686578658865986608661866286638664866586668667866886698670867186728673867486758676867786788679868086818682868386848685868686878688868986908691869286938694869586968697869886998700870187028703870487058706870787088709871087118712871387148715871687178718871987208721872287238724872587268727872887298730873187328733873487358736873787388739874087418742874387448745874687478748874987508751875287538754875587568757875887598760876187628763876487658766876787688769877087718772877387748775877687778778877987808781878287838784878587868787878887898790879187928793879487958796879787988799880088018802880388048805880688078808880988108811881288138814881588168817881888198820882188228823882488258826882788288829883088318832883388348835883688378838883988408841884288438844884588468847884888498850885188528853885488558856885788588859886088618862886388648865886688678868886988708871887288738874887588768877887888798880888188828883888488858886888788888889889088918892889388948895889688978898889989008901890289038904890589068907890889098910891189128913891489158916891789188919892089218922892389248925892689278928892989308931893289338934893589368937893889398940894189428943894489458946894789488949895089518952895389548955895689578958895989608961896289638964896589668967896889698970897189728973897489758976897789788979898089818982898389848985898689878988898989908991899289938994899589968997899889999000900190029003900490059006900790089009901090119012901390149015901690179018901990209021902290239024902590269027902890299030903190329033903490359036903790389039904090419042904390449045904690479048904990509051905290539054905590569057905890599060906190629063906490659066906790689069907090719072907390749075907690779078907990809081908290839084908590869087908890899090909190929093909490959096909790989099910091019102910391049105910691079108910991109111911291139114911591169117
  1. {
  2. This file is part of the Free Pascal run time library.
  3. This unit contains the record definition for the Win32 API
  4. Copyright (c) 1999-2000 by Florian KLaempfl,
  5. member of the Free Pascal development team.
  6. See the file COPYING.FPC, included in this distribution,
  7. for details about the copyright.
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  11. **********************************************************************}
  12. {
  13. Structures.h
  14. Declarations for all the Windows32 API Structures
  15. Copyright (C) 1996 Free Software Foundation, Inc.
  16. Author: Scott Christley <[email protected]>
  17. Date: 1996
  18. This file is part of the Windows32 API Library.
  19. This library is free software; you can redistribute it and/or
  20. modify it under the terms of the GNU Library General Public
  21. License as published by the Free Software Foundation; either
  22. version 2 of the License, or (at your option) any later version.
  23. This library is distributed in the hope that it will be useful,
  24. but WITHOUT ANY WARRANTY; without even the implied warranty of
  25. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  26. Library General Public License for more details.
  27. If you are interested in a warranty or support for this source code,
  28. contact Scott Christley <[email protected]> for more information.
  29. You should have received a copy of the GNU Library General Public
  30. License along with this library; see the file COPYING.LIB.
  31. If not, write to the Free Software Foundation,
  32. 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  33. }
  34. {$ifdef read_interface}
  35. Const
  36. IMAGE_SIZEOF_SHORT_NAME = 8;
  37. type
  38. {$I typshrdh.inc}
  39. { WARNING
  40. the variable argument list
  41. is not implemented for FPC
  42. va_list is just a dummy record
  43. MvdV: Nevertheless it should be a pointer type, not a record}
  44. va_list = pchar;
  45. ABC = record
  46. abcA : longint;
  47. abcB : UINT;
  48. abcC : longint;
  49. end;
  50. LPABC = ^ABC;
  51. _ABC = ABC;
  52. TABC = ABC;
  53. PABC = ^ABC;
  54. ABCFLOAT = record
  55. abcfA : Single;
  56. abcfB : Single;
  57. abcfC : Single;
  58. end;
  59. LPABCFLOAT = ^ABCFLOAT;
  60. _ABCFLOAT = ABCFLOAT;
  61. TABCFLOAT = ABCFLOAT;
  62. PABCFLOAT = ^ABCFLOAT;
  63. ACCEL = record
  64. fVirt : BYTE;
  65. key : WORD;
  66. cmd : WORD;
  67. end;
  68. LPACCEL = ^ACCEL;
  69. _ACCEL = ACCEL;
  70. TACCEL = ACCEL;
  71. PACCEL = ^ACCEL;
  72. ACE_HEADER = record
  73. AceType : BYTE;
  74. AceFlags : BYTE;
  75. AceSize : WORD;
  76. end;
  77. _ACE_HEADER = ACE_HEADER;
  78. TACE_HEADER = ACE_HEADER;
  79. PACE_HEADER = ^ACE_HEADER;
  80. ACCESS_MASK = DWORD;
  81. REGSAM = ACCESS_MASK;
  82. ACCESS_ALLOWED_ACE = record
  83. Header : ACE_HEADER;
  84. Mask : ACCESS_MASK;
  85. SidStart : DWORD;
  86. end;
  87. _ACCESS_ALLOWED_ACE = ACCESS_ALLOWED_ACE;
  88. TACCESS_ALLOWED_ACE = ACCESS_ALLOWED_ACE;
  89. PACCESS_ALLOWED_ACE = ^ACCESS_ALLOWED_ACE;
  90. ACCESS_DENIED_ACE = record
  91. Header : ACE_HEADER;
  92. Mask : ACCESS_MASK;
  93. SidStart : DWORD;
  94. end;
  95. _ACCESS_DENIED_ACE = ACCESS_DENIED_ACE;
  96. TACCESS_DENIED_ACE = ACCESS_DENIED_ACE;
  97. ACCESSTIMEOUT = record
  98. cbSize : UINT;
  99. dwFlags : DWORD;
  100. iTimeOutMSec : DWORD;
  101. end;
  102. _ACCESSTIMEOUT = ACCESSTIMEOUT;
  103. TACCESSTIMEOUT = ACCESSTIMEOUT;
  104. PACCESSTIMEOUT = ^ACCESSTIMEOUT;
  105. ACL = record
  106. AclRevision : BYTE;
  107. Sbz1 : BYTE;
  108. AclSize : WORD;
  109. AceCount : WORD;
  110. Sbz2 : WORD;
  111. end;
  112. PACL = ^ACL;
  113. _ACL = ACL;
  114. TACL = ACL;
  115. ACL_REVISION_INFORMATION = record
  116. AclRevision : DWORD;
  117. end;
  118. _ACL_REVISION_INFORMATION = ACL_REVISION_INFORMATION;
  119. TACLREVISIONINFORMATION = ACL_REVISION_INFORMATION;
  120. PACLREVISIONINFORMATION = ^ACL_REVISION_INFORMATION;
  121. ACL_SIZE_INFORMATION = record
  122. AceCount : DWORD;
  123. AclBytesInUse : DWORD;
  124. AclBytesFree : DWORD;
  125. end;
  126. _ACL_SIZE_INFORMATION = ACL_SIZE_INFORMATION;
  127. TACLSIZEINFORMATION = ACL_SIZE_INFORMATION;
  128. PACLSIZEINFORMATION = ^ACL_SIZE_INFORMATION;
  129. ACTION_HEADER = record
  130. transport_id : ULONG;
  131. action_code : USHORT;
  132. reserved : USHORT;
  133. end;
  134. _ACTION_HEADER = ACTION_HEADER;
  135. TACTIONHEADER = ACTION_HEADER;
  136. PACTIONHEADER = ^ACTION_HEADER;
  137. ADAPTER_STATUS = record
  138. adapter_address : array[0..5] of UCHAR;
  139. rev_major : UCHAR;
  140. reserved0 : UCHAR;
  141. adapter_type : UCHAR;
  142. rev_minor : UCHAR;
  143. duration : WORD;
  144. frmr_recv : WORD;
  145. frmr_xmit : WORD;
  146. iframe_recv_err : WORD;
  147. xmit_aborts : WORD;
  148. xmit_success : DWORD;
  149. recv_success : DWORD;
  150. iframe_xmit_err : WORD;
  151. recv_buff_unavail : WORD;
  152. t1_timeouts : WORD;
  153. ti_timeouts : WORD;
  154. reserved1 : DWORD;
  155. free_ncbs : WORD;
  156. max_cfg_ncbs : WORD;
  157. max_ncbs : WORD;
  158. xmit_buf_unavail : WORD;
  159. max_dgram_size : WORD;
  160. pending_sess : WORD;
  161. max_cfg_sess : WORD;
  162. max_sess : WORD;
  163. max_sess_pkt_size : WORD;
  164. name_count : WORD;
  165. end;
  166. _ADAPTER_STATUS = ADAPTER_STATUS;
  167. TADAPTERSTATUS = ADAPTER_STATUS;
  168. PADAPTERSTATUS = ^ADAPTER_STATUS;
  169. ADDJOB_INFO_1 = record
  170. Path : LPTSTR;
  171. JobId : DWORD;
  172. end;
  173. _ADDJOB_INFO_1 = ADDJOB_INFO_1;
  174. TADDJOB_INFO_1 = ADDJOB_INFO_1;
  175. PADDJOB_INFO_1 = ^ADDJOB_INFO_1;
  176. ANIMATIONINFO = record
  177. cbSize : UINT;
  178. iMinAnimate : longint;
  179. end;
  180. LPANIMATIONINFO = ^ANIMATIONINFO;
  181. _ANIMATIONINFO = ANIMATIONINFO;
  182. TANIMATIONINFO = ANIMATIONINFO;
  183. PANIMATIONINFO = ^ANIMATIONINFO;
  184. POINT = TPOINT;
  185. LPPOINT = PPOINT;
  186. tagPOINT = TPOINT;
  187. RECT = TRect;
  188. LPRECT = PRECT;
  189. _RECT = RECT;
  190. RECTL = record
  191. left : LONG;
  192. top : LONG;
  193. right : LONG;
  194. bottom : LONG;
  195. end;
  196. _RECTL = RECTL;
  197. TRECTL = RECTL;
  198. PRECTL = ^RECTL;
  199. APPBARDATA = record
  200. cbSize : DWORD;
  201. hWnd : HWND;
  202. uCallbackMessage : UINT;
  203. uEdge : UINT;
  204. rc : RECT;
  205. lParam : LPARAM;
  206. end;
  207. _AppBarData = APPBARDATA;
  208. TAppBarData = APPBARDATA;
  209. PAppBarData = ^APPBARDATA;
  210. BITMAP = record
  211. bmType : LONG;
  212. bmWidth : LONG;
  213. bmHeight : LONG;
  214. bmWidthBytes : LONG;
  215. bmPlanes : WORD;
  216. bmBitsPixel : WORD;
  217. bmBits : LPVOID;
  218. end;
  219. PBITMAP = ^BITMAP;
  220. NPBITMAP = ^BITMAP;
  221. LPBITMAP = ^BITMAP;
  222. tagBITMAP = BITMAP;
  223. TBITMAP = BITMAP;
  224. BITMAPCOREHEADER = record
  225. bcSize : DWORD;
  226. bcWidth : WORD;
  227. bcHeight : WORD;
  228. bcPlanes : WORD;
  229. bcBitCount : WORD;
  230. end;
  231. tagBITMAPCOREHEADER = BITMAPCOREHEADER;
  232. TBITMAPCOREHEADER = BITMAPCOREHEADER;
  233. PBITMAPCOREHEADER = ^BITMAPCOREHEADER;
  234. RGBTRIPLE = record
  235. rgbtBlue : BYTE;
  236. rgbtGreen : BYTE;
  237. rgbtRed : BYTE;
  238. end;
  239. tagRGBTRIPLE = RGBTRIPLE;
  240. TRGBTRIPLE = RGBTRIPLE;
  241. PRGBTRIPLE = ^RGBTRIPLE;
  242. BITMAPCOREINFO = record
  243. bmciHeader : BITMAPCOREHEADER;
  244. bmciColors : array[0..0] of RGBTRIPLE;
  245. end;
  246. PBITMAPCOREINFO = ^BITMAPCOREINFO;
  247. LPBITMAPCOREINFO = ^BITMAPCOREINFO;
  248. _BITMAPCOREINFO = BITMAPCOREINFO;
  249. TBITMAPCOREINFO = BITMAPCOREINFO;
  250. (* error
  251. WORD bfReserved1;
  252. WORD bfReserved2;
  253. in declarator_list *)
  254. BITMAPINFOHEADER = record
  255. biSize : DWORD;
  256. biWidth : LONG;
  257. biHeight : LONG;
  258. biPlanes : WORD;
  259. biBitCount : WORD;
  260. biCompression : DWORD;
  261. biSizeImage : DWORD;
  262. biXPelsPerMeter : LONG;
  263. biYPelsPerMeter : LONG;
  264. biClrUsed : DWORD;
  265. biClrImportant : DWORD;
  266. end;
  267. LPBITMAPINFOHEADER = ^BITMAPINFOHEADER;
  268. TBITMAPINFOHEADER = BITMAPINFOHEADER;
  269. PBITMAPINFOHEADER = ^BITMAPINFOHEADER;
  270. RGBQUAD = record
  271. rgbBlue : BYTE;
  272. rgbGreen : BYTE;
  273. rgbRed : BYTE;
  274. rgbReserved : BYTE;
  275. end;
  276. tagRGBQUAD = RGBQUAD;
  277. TRGBQUAD = RGBQUAD;
  278. PRGBQUAD = ^RGBQUAD;
  279. BITMAPINFO = record
  280. bmiHeader : BITMAPINFOHEADER;
  281. bmiColors : array[0..0] of RGBQUAD;
  282. end;
  283. LPBITMAPINFO = ^BITMAPINFO;
  284. PBITMAPINFO = ^BITMAPINFO;
  285. TBITMAPINFO = BITMAPINFO;
  286. FXPT2DOT30 = longint;
  287. LPFXPT2DOT30 = ^FXPT2DOT30;
  288. TFXPT2DOT30 = FXPT2DOT30;
  289. PFXPT2DOT30 = LPFXPT2DOT30;
  290. CIEXYZ = record
  291. ciexyzX : FXPT2DOT30;
  292. ciexyzY : FXPT2DOT30;
  293. ciexyzZ : FXPT2DOT30;
  294. end;
  295. tagCIEXYZ = CIEXYZ;
  296. LPCIEXYZ = ^CIEXYZ;
  297. TPCIEXYZ = CIEXYZ;
  298. PCIEXYZ = ^CIEXYZ;
  299. CIEXYZTRIPLE = record
  300. ciexyzRed : CIEXYZ;
  301. ciexyzGreen : CIEXYZ;
  302. ciexyzBlue : CIEXYZ;
  303. end;
  304. tagCIEXYZTRIPLE = CIEXYZTRIPLE;
  305. LPCIEXYZTRIPLE = ^CIEXYZTRIPLE;
  306. TCIEXYZTRIPLE = CIEXYZTRIPLE;
  307. PCIEXYZTRIPLE = ^CIEXYZTRIPLE;
  308. BITMAPV4HEADER = record
  309. bV4Size : DWORD;
  310. bV4Width : LONG;
  311. bV4Height : LONG;
  312. bV4Planes : WORD;
  313. bV4BitCount : WORD;
  314. bV4V4Compression : DWORD;
  315. bV4SizeImage : DWORD;
  316. bV4XPelsPerMeter : LONG;
  317. bV4YPelsPerMeter : LONG;
  318. bV4ClrUsed : DWORD;
  319. bV4ClrImportant : DWORD;
  320. bV4RedMask : DWORD;
  321. bV4GreenMask : DWORD;
  322. bV4BlueMask : DWORD;
  323. bV4AlphaMask : DWORD;
  324. bV4CSType : DWORD;
  325. bV4Endpoints : CIEXYZTRIPLE;
  326. bV4GammaRed : DWORD;
  327. bV4GammaGreen : DWORD;
  328. bV4GammaBlue : DWORD;
  329. end;
  330. LPBITMAPV4HEADER = ^BITMAPV4HEADER;
  331. TBITMAPV4HEADER = BITMAPV4HEADER;
  332. PBITMAPV4HEADER = ^BITMAPV4HEADER;
  333. BITMAPFILEHEADER = packed record
  334. bfType : Word;
  335. bfSize : DWord;
  336. bfReserved1 : Word;
  337. bfReserved2 : Word;
  338. bfOffBits : DWord;
  339. end;
  340. tagBITMAPFILEHEADER = BITMAPFILEHEADER;
  341. TBitmapFileHeader = BITMAPFILEHEADER;
  342. PBitmapFileHeader = ^TBitmapFileHeader;
  343. BLOB = record
  344. cbSize : ULONG;
  345. pBlobData : ^BYTE;
  346. end;
  347. _BLOB = BLOB;
  348. TBLOB = BLOB;
  349. PBLOB = ^BLOB;
  350. SHITEMID = record
  351. cb : USHORT;
  352. abID : array[0..0] of BYTE;
  353. end;
  354. LPSHITEMID = ^SHITEMID;
  355. LPCSHITEMID = ^SHITEMID;
  356. _SHITEMID = SHITEMID;
  357. TSHITEMID = SHITEMID;
  358. PSHITEMID = ^SHITEMID;
  359. ITEMIDLIST = record
  360. mkid : SHITEMID;
  361. end;
  362. LPITEMIDLIST = ^ITEMIDLIST;
  363. LPCITEMIDLIST = ^ITEMIDLIST;
  364. _ITEMIDLIST = ITEMIDLIST;
  365. TITEMIDLIST = ITEMIDLIST;
  366. PITEMIDLIST = ^ITEMIDLIST;
  367. BROWSEINFO = record
  368. hwndOwner : HWND;
  369. pidlRoot : LPCITEMIDLIST;
  370. pszDisplayName : LPTSTR;
  371. lpszTitle : LPCTSTR;
  372. ulFlags : UINT;
  373. lpfn : BFFCALLBACK;
  374. lParam : LPARAM;
  375. iImage : longint;
  376. end deprecated 'Use shlobj version. Will be removed in the future';
  377. LPBROWSEINFO = ^BROWSEINFO deprecated;
  378. _browseinfo = BROWSEINFO deprecated;
  379. Tbrowseinfo = BROWSEINFO deprecated;
  380. PBROWSEINFO = ^BROWSEINFO deprecated;
  381. FILETIME = record
  382. dwLowDateTime : DWORD;
  383. dwHighDateTime : DWORD;
  384. end;
  385. LPFILETIME = ^FILETIME;
  386. _FILETIME = FILETIME;
  387. TFILETIME = FILETIME;
  388. PFILETIME = ^FILETIME;
  389. BY_HANDLE_FILE_INFORMATION = record
  390. dwFileAttributes : DWORD;
  391. ftCreationTime : FILETIME;
  392. ftLastAccessTime : FILETIME;
  393. ftLastWriteTime : FILETIME;
  394. dwVolumeSerialNumber : DWORD;
  395. nFileSizeHigh : DWORD;
  396. nFileSizeLow : DWORD;
  397. nNumberOfLinks : DWORD;
  398. nFileIndexHigh : DWORD;
  399. nFileIndexLow : DWORD;
  400. end;
  401. LPBY_HANDLE_FILE_INFORMATION = ^BY_HANDLE_FILE_INFORMATION;
  402. _BY_HANDLE_FILE_INFORMATION = BY_HANDLE_FILE_INFORMATION;
  403. TBYHANDLEFILEINFORMATION = BY_HANDLE_FILE_INFORMATION;
  404. PBYHANDLEFILEINFORMATION = ^BY_HANDLE_FILE_INFORMATION;
  405. FIXED = packed record
  406. fract : WORD;
  407. value : SHORT;
  408. end;
  409. _FIXED = FIXED;
  410. TFIXED = FIXED;
  411. PFIXED = ^FIXED;
  412. POINTFX = record
  413. x : FIXED;
  414. y : FIXED;
  415. end;
  416. tagPOINTFX = POINTFX;
  417. TPOINTFX = POINTFX;
  418. PPOINTFX = ^POINTFX;
  419. POINTL = record
  420. x : LONG;
  421. y : LONG;
  422. end;
  423. _POINTL = POINTL;
  424. TPOINTL = POINTL;
  425. PPOINTL = ^POINTL;
  426. POINTS = record
  427. x : SHORT;
  428. y : SHORT;
  429. end;
  430. tagPOINTS = POINTS;
  431. TPOINTS = POINTS;
  432. PPOINTS = ^POINTS;
  433. CANDIDATEFORM = record
  434. dwIndex : DWORD;
  435. dwStyle : DWORD;
  436. ptCurrentPos : POINT;
  437. rcArea : RECT;
  438. end;
  439. LPCANDIDATEFORM = ^CANDIDATEFORM;
  440. _tagCANDIDATEFORM = CANDIDATEFORM;
  441. TCANDIDATEFORM = CANDIDATEFORM;
  442. PCANDIDATEFORM = ^CANDIDATEFORM;
  443. CANDIDATELIST = record
  444. dwSize : DWORD;
  445. dwStyle : DWORD;
  446. dwCount : DWORD;
  447. dwSelection : DWORD;
  448. dwPageStart : DWORD;
  449. dwPageSize : DWORD;
  450. dwOffset : array[0..0] of DWORD;
  451. end;
  452. LPCANDIDATELIST = ^CANDIDATELIST;
  453. _tagCANDIDATELIST = CANDIDATELIST;
  454. TCANDIDATELIST = CANDIDATELIST;
  455. PCANDIDATELIST = ^CANDIDATELIST;
  456. CREATESTRUCT = record
  457. lpCreateParams : LPVOID;
  458. hInstance : HINST;
  459. hMenu : HMENU;
  460. hwndParent : HWND;
  461. cy : longint;
  462. cx : longint;
  463. y : longint;
  464. x : longint;
  465. style : LONG;
  466. lpszName : LPCTSTR;
  467. lpszClass : LPCTSTR;
  468. dwExStyle : DWORD;
  469. end;
  470. LPCREATESTRUCT = ^CREATESTRUCT;
  471. tagCREATESTRUCT = CREATESTRUCT;
  472. TCREATESTRUCT = CREATESTRUCT;
  473. PCREATESTRUCT = ^CREATESTRUCT;
  474. CBT_CREATEWND = record
  475. lpcs : LPCREATESTRUCT;
  476. hwndInsertAfter : HWND;
  477. end;
  478. tagCBT_CREATEWND = CBT_CREATEWND;
  479. TCBT_CREATEWND = CBT_CREATEWND;
  480. PCBT_CREATEWND = ^CBT_CREATEWND;
  481. CBTACTIVATESTRUCT = record
  482. fMouse : WINBOOL;
  483. hWndActive : HWND;
  484. end;
  485. tagCBTACTIVATESTRUCT = CBTACTIVATESTRUCT;
  486. TCBTACTIVATESTRUCT = CBTACTIVATESTRUCT;
  487. PCBTACTIVATESTRUCT = ^CBTACTIVATESTRUCT;
  488. CHAR_INFO = record
  489. case longint of
  490. 0 : ( UnicodeChar : WCHAR;
  491. Attributes : Word);
  492. 1 : ( AsciiChar : CHAR );
  493. end;
  494. _CHAR_INFO = CHAR_INFO;
  495. TCHAR_INFO = CHAR_INFO;
  496. PCHAR_INFO = ^CHAR_INFO;
  497. CHARFORMATA = record
  498. cbSize : UINT;
  499. dwMask : DWORD;
  500. dwEffects : DWORD;
  501. yHeight : LONG;
  502. yOffset : LONG;
  503. crTextColor : COLORREF;
  504. bCharSet : BYTE;
  505. bPitchAndFamily : BYTE;
  506. szFaceName : array[0..(LF_FACESIZE)-1] of AnsiCHAR;
  507. end;
  508. _CHARFORMATA = CHARFORMATA;
  509. TCHARFORMATA = CHARFORMATA;
  510. PCHARFORMATA = ^CHARFORMATA;
  511. CHARFORMATW = record
  512. cbSize : UINT;
  513. dwMask : DWORD;
  514. dwEffects : DWORD;
  515. yHeight : LONG;
  516. yOffset : LONG;
  517. crTextColor : COLORREF;
  518. bCharSet : BYTE;
  519. bPitchAndFamily : BYTE;
  520. szFaceName : array[0..(LF_FACESIZE)-1] of WCHAR;
  521. end;
  522. _CHARFORMATW = CHARFORMATW;
  523. TCHARFORMATW = CHARFORMATW;
  524. PCHARFORMATW = ^CHARFORMATW;
  525. {$ifdef Unicode}
  526. CHARFORMAT = CHARFORMATW;
  527. _CHARFORMAT = CHARFORMATW;
  528. TCHARFORMAT = CHARFORMATW;
  529. PCHARFORMAT = PCHARFORMATW;
  530. {$else}
  531. CHARFORMAT = CHARFORMATA;
  532. _CHARFORMAT = CHARFORMATA;
  533. TCHARFORMAT = CHARFORMATA;
  534. PCHARFORMAT = PCHARFORMATA;
  535. {$endif}
  536. CHARRANGE = record
  537. cpMin : LONG;
  538. cpMax : LONG;
  539. end;
  540. _charrange = CHARRANGE;
  541. Tcharrange = CHARRANGE;
  542. Pcharrange = ^CHARRANGE;
  543. CHARSET = record
  544. aflBlock : array[0..2] of DWORD;
  545. flLang : DWORD;
  546. end;
  547. tagCHARSET = CHARSET;
  548. TCHARSET = CHARSET;
  549. PCHARSET = ^CHARSET;
  550. FONTSIGNATURE = record
  551. fsUsb : array[0..3] of DWORD;
  552. fsCsb : array[0..1] of DWORD;
  553. end;
  554. LPFONTSIGNATURE = ^FONTSIGNATURE;
  555. tagFONTSIGNATURE = FONTSIGNATURE;
  556. TFONTSIGNATURE = FONTSIGNATURE;
  557. PFONTSIGNATURE = ^FONTSIGNATURE;
  558. CHARSETINFO = record
  559. ciCharset : UINT;
  560. ciACP : UINT;
  561. fs : FONTSIGNATURE;
  562. end;
  563. LPCHARSETINFO = ^CHARSETINFO;
  564. TCHARSETINFO = CHARSETINFO;
  565. PCHARSETINFO = ^CHARSETINFO;
  566. {CHOOSECOLOR = record confilcts with function ChooseColor }
  567. TCHOOSECOLOR = record
  568. lStructSize : DWORD;
  569. hwndOwner : HWND;
  570. hInstance : HWND;
  571. rgbResult : COLORREF;
  572. lpCustColors : ^COLORREF;
  573. Flags : DWORD;
  574. lCustData : LPARAM;
  575. lpfnHook : LPCCHOOKPROC;
  576. lpTemplateName : LPCTSTR;
  577. end;
  578. LPCHOOSECOLOR = ^TCHOOSECOLOR;
  579. PCHOOSECOLOR = ^TCHOOSECOLOR;
  580. LOGFONTA = record
  581. lfHeight : LONG;
  582. lfWidth : LONG;
  583. lfEscapement : LONG;
  584. lfOrientation : LONG;
  585. lfWeight : LONG;
  586. lfItalic : BYTE;
  587. lfUnderline : BYTE;
  588. lfStrikeOut : BYTE;
  589. lfCharSet : BYTE;
  590. lfOutPrecision : BYTE;
  591. lfClipPrecision : BYTE;
  592. lfQuality : BYTE;
  593. lfPitchAndFamily : BYTE;
  594. lfFaceName : array[0..(LF_FACESIZE)-1] of AnsiCHAR;
  595. end;
  596. LPLOGFONTA = ^LOGFONTA;
  597. _LOGFONTA = LOGFONTA;
  598. TLOGFONTA = LOGFONTA;
  599. PLOGFONTA = LPLOGFONTA;
  600. tagLOGFONTA= LOGFONTA;
  601. LOGFONTW = record
  602. lfHeight: LONG;
  603. lfWidth: LONG;
  604. lfEscapement: LONG;
  605. lfOrientation: LONG;
  606. lfWeight: LONG;
  607. lfItalic: BYTE;
  608. lfUnderline: BYTE;
  609. lfStrikeOut: BYTE;
  610. lfCharSet: BYTE;
  611. lfOutPrecision: BYTE;
  612. lfClipPrecision: BYTE;
  613. lfQuality: BYTE;
  614. lfPitchAndFamily: BYTE;
  615. lfFaceName: array [0..LF_FACESIZE - 1] of WCHAR;
  616. end;
  617. LPLOGFONTW = ^LOGFONTW;
  618. NPLOGFONTW = ^LOGFONTW;
  619. _LOGFONTW = LOGFONTW;
  620. TLogFontW = LOGFONTW;
  621. PLogFontW = ^TLOGFONTW;
  622. tagLOGFONTW= LOGFONTW;
  623. {$IFNDEF UNICODE}
  624. LOGFONT = LOGFONTA;
  625. LPLOGFONT = ^LOGFONTA;
  626. _LOGFONT = LOGFONTA;
  627. TLOGFONT = LOGFONTA;
  628. PLOGFONT = ^LOGFONTA;
  629. tagLOGFONT = LOGFONTA;
  630. {$ELSE}
  631. LOGFONT = LOGFONTW;
  632. LPLOGFONT = ^LOGFONTW;
  633. _LOGFONT = LOGFONTW;
  634. TLOGFONT = LOGFONTW;
  635. PLOGFONT = ^LOGFONTW;
  636. tagLOGFONT = LOGFONTW;
  637. {$ENDIF}
  638. {CHOOSEFONT = record conflicts with ChosseFont function }
  639. TCHOOSEFONT = record
  640. lStructSize : DWORD;
  641. hwndOwner : HWND;
  642. hDC : HDC;
  643. lpLogFont : LPLOGFONT;
  644. iPointSize : WINT;
  645. Flags : DWORD;
  646. rgbColors : COLORREF;
  647. lCustData : LPARAM;
  648. lpfnHook : LPCFHOOKPROC;
  649. lpTemplateName : LPCTSTR;
  650. hInstance : HINST;
  651. lpszStyle : LPTSTR;
  652. nFontType : WORD;
  653. ___MISSING_ALIGNMENT__ : WORD;
  654. nSizeMin : WINT;
  655. nSizeMax : WINT;
  656. end;
  657. LPCHOOSEFONT = ^TCHOOSEFONT;
  658. PCHOOSEFONT = ^TCHOOSEFONT;
  659. CIDA = record
  660. cidl : UINT;
  661. aoffset : array[0..0] of UINT;
  662. end;
  663. LPIDA = ^CIDA;
  664. _IDA = CIDA;
  665. TIDA = CIDA;
  666. PIDA = ^CIDA;
  667. CLIENTCREATESTRUCT = record
  668. hWindowMenu : HANDLE;
  669. idFirstChild : UINT;
  670. end;
  671. LPCLIENTCREATESTRUCT = ^CLIENTCREATESTRUCT;
  672. tagCLIENTCREATESTRUCT = CLIENTCREATESTRUCT;
  673. TCLIENTCREATESTRUCT = CLIENTCREATESTRUCT;
  674. PCLIENTCREATESTRUCT = ^CLIENTCREATESTRUCT;
  675. CMINVOKECOMMANDINFO = record
  676. cbSize : DWORD;
  677. fMask : DWORD;
  678. hwnd : HWND;
  679. lpVerb : LPCSTR;
  680. lpParameters : LPCSTR;
  681. lpDirectory : LPCSTR;
  682. nShow : longint;
  683. dwHotKey : DWORD;
  684. hIcon : HANDLE;
  685. end deprecated 'Use shlobj version. Will be removed in the future';
  686. LPCMINVOKECOMMANDINFO = ^CMINVOKECOMMANDINFO deprecated;
  687. _CMInvokeCommandInfo = CMINVOKECOMMANDINFO deprecated;
  688. TCMInvokeCommandInfo = CMINVOKECOMMANDINFO deprecated;
  689. PCMInvokeCommandInfo = ^CMINVOKECOMMANDINFO deprecated;
  690. COLORADJUSTMENT = record
  691. caSize : WORD;
  692. caFlags : WORD;
  693. caIlluminantIndex : WORD;
  694. caRedGamma : WORD;
  695. caGreenGamma : WORD;
  696. caBlueGamma : WORD;
  697. caReferenceBlack : WORD;
  698. caReferenceWhite : WORD;
  699. caContrast : SHORT;
  700. caBrightness : SHORT;
  701. caColorfulness : SHORT;
  702. caRedGreenTint : SHORT;
  703. end;
  704. LPCOLORADJUSTMENT = ^COLORADJUSTMENT;
  705. tagCOLORADJUSTMENT = COLORADJUSTMENT;
  706. TCOLORADJUSTMENT = COLORADJUSTMENT;
  707. PCOLORADJUSTMENT = ^COLORADJUSTMENT;
  708. COLORMAP = record
  709. from : COLORREF;
  710. _to : COLORREF;
  711. end;
  712. LPCOLORMAP = ^COLORMAP;
  713. _COLORMAP = COLORMAP;
  714. TCOLORMAP = COLORMAP;
  715. PCOLORMAP = ^COLORMAP;
  716. DCB = record
  717. DCBlength : DWORD;
  718. BaudRate : DWORD;
  719. flags : DWORD;
  720. wReserved : WORD;
  721. XonLim : WORD;
  722. XoffLim : WORD;
  723. ByteSize : BYTE;
  724. Parity : BYTE;
  725. StopBits : BYTE;
  726. XonChar : char;
  727. XoffChar : char;
  728. ErrorChar : char;
  729. EofChar : char;
  730. EvtChar : char;
  731. wReserved1 : WORD;
  732. end;
  733. LPDCB = ^DCB;
  734. _DCB = DCB;
  735. TDCB = DCB;
  736. PDCB = ^DCB;
  737. const
  738. bm_DCB_fBinary = $1;
  739. bp_DCB_fBinary = 0;
  740. bm_DCB_fParity = $2;
  741. bp_DCB_fParity = 1;
  742. bm_DCB_fOutxCtsFlow = $4;
  743. bp_DCB_fOutxCtsFlow = 2;
  744. bm_DCB_fOutxDsrFlow = $8;
  745. bp_DCB_fOutxDsrFlow = 3;
  746. bm_DCB_fDtrControl = $30;
  747. bp_DCB_fDtrControl = 4;
  748. bm_DCB_fDsrSensitivity = $40;
  749. bp_DCB_fDsrSensitivity = 6;
  750. bm_DCB_fTXContinueOnXoff = $80;
  751. bp_DCB_fTXContinueOnXoff = 7;
  752. bm_DCB_fOutX = $100;
  753. bp_DCB_fOutX = 8;
  754. bm_DCB_fInX = $200;
  755. bp_DCB_fInX = 9;
  756. bm_DCB_fErrorChar = $400;
  757. bp_DCB_fErrorChar = 10;
  758. bm_DCB_fNull = $800;
  759. bp_DCB_fNull = 11;
  760. bm_DCB_fRtsControl = $3000;
  761. bp_DCB_fRtsControl = 12;
  762. bm_DCB_fAbortOnError = $4000;
  763. bp_DCB_fAbortOnError = 14;
  764. bm_DCB_fDummy2 = $FFFF8000;
  765. bp_DCB_fDummy2 = 15;
  766. function fBinary(var a : DCB) : DWORD;
  767. procedure set_fBinary(var a : DCB; __fBinary : DWORD);
  768. function fParity(var a : DCB) : DWORD;
  769. procedure set_fParity(var a : DCB; __fParity : DWORD);
  770. function fOutxCtsFlow(var a : DCB) : DWORD;
  771. procedure set_fOutxCtsFlow(var a : DCB; __fOutxCtsFlow : DWORD);
  772. function fOutxDsrFlow(var a : DCB) : DWORD;
  773. procedure set_fOutxDsrFlow(var a : DCB; __fOutxDsrFlow : DWORD);
  774. function fDtrControl(var a : DCB) : DWORD;
  775. procedure set_fDtrControl(var a : DCB; __fDtrControl : DWORD);
  776. function fDsrSensitivity(var a : DCB) : DWORD;
  777. procedure set_fDsrSensitivity(var a : DCB; __fDsrSensitivity : DWORD);
  778. function fTXContinueOnXoff(var a : DCB) : DWORD;
  779. procedure set_fTXContinueOnXoff(var a : DCB; __fTXContinueOnXoff : DWORD);
  780. function fOutX(var a : DCB) : DWORD;
  781. procedure set_fOutX(var a : DCB; __fOutX : DWORD);
  782. function fInX(var a : DCB) : DWORD;
  783. procedure set_fInX(var a : DCB; __fInX : DWORD);
  784. function fErrorChar(var a : DCB) : DWORD;
  785. procedure set_fErrorChar(var a : DCB; __fErrorChar : DWORD);
  786. function fNull(var a : DCB) : DWORD;
  787. procedure set_fNull(var a : DCB; __fNull : DWORD);
  788. function fRtsControl(var a : DCB) : DWORD;
  789. procedure set_fRtsControl(var a : DCB; __fRtsControl : DWORD);
  790. function fAbortOnError(var a : DCB) : DWORD;
  791. procedure set_fAbortOnError(var a : DCB; __fAbortOnError : DWORD);
  792. function fDummy2(var a : DCB) : DWORD;
  793. procedure set_fDummy2(var a : DCB; __fDummy2 : DWORD);
  794. type
  795. COMMCONFIG = record
  796. dwSize : DWORD;
  797. wVersion : WORD;
  798. wReserved : WORD;
  799. dcb : DCB;
  800. dwProviderSubType : DWORD;
  801. dwProviderOffset : DWORD;
  802. dwProviderSize : DWORD;
  803. wcProviderData : array[0..0] of WCHAR;
  804. end;
  805. LPCOMMCONFIG = ^COMMCONFIG;
  806. _COMM_CONFIG = COMMCONFIG;
  807. TCOMMCONFIG = COMMCONFIG;
  808. PCOMMCONFIG = ^COMMCONFIG;
  809. COMMPROP = record
  810. wPacketLength : WORD;
  811. wPacketVersion : WORD;
  812. dwServiceMask : DWORD;
  813. dwReserved1 : DWORD;
  814. dwMaxTxQueue : DWORD;
  815. dwMaxRxQueue : DWORD;
  816. dwMaxBaud : DWORD;
  817. dwProvSubType : DWORD;
  818. dwProvCapabilities : DWORD;
  819. dwSettableParams : DWORD;
  820. dwSettableBaud : DWORD;
  821. wSettableData : WORD;
  822. wSettableStopParity : WORD;
  823. dwCurrentTxQueue : DWORD;
  824. dwCurrentRxQueue : DWORD;
  825. dwProvSpec1 : DWORD;
  826. dwProvSpec2 : DWORD;
  827. wcProvChar : array[0..0] of WCHAR;
  828. end;
  829. LPCOMMPROP = ^COMMPROP;
  830. _COMMPROP = COMMPROP;
  831. TCOMMPROP = COMMPROP;
  832. PCOMMPROP = ^COMMPROP;
  833. COMMTIMEOUTS = record
  834. ReadIntervalTimeout : DWORD;
  835. ReadTotalTimeoutMultiplier : DWORD;
  836. ReadTotalTimeoutConstant : DWORD;
  837. WriteTotalTimeoutMultiplier : DWORD;
  838. WriteTotalTimeoutConstant : DWORD;
  839. end;
  840. LPCOMMTIMEOUTS = ^COMMTIMEOUTS;
  841. _COMMTIMEOUTS = COMMTIMEOUTS;
  842. TCOMMTIMEOUTS = COMMTIMEOUTS;
  843. PCOMMTIMEOUTS = ^COMMTIMEOUTS;
  844. COMPAREITEMSTRUCT = record
  845. CtlType : UINT;
  846. CtlID : UINT;
  847. hwndItem : HWND;
  848. itemID1 : UINT;
  849. itemData1 : ULONG_PTR;
  850. itemID2 : UINT;
  851. itemData2 : ULONG_PTR;
  852. dwLocaleID : DWORD;
  853. end;
  854. tagCOMPAREITEMSTRUCT = COMPAREITEMSTRUCT;
  855. TCOMPAREITEMSTRUCT = COMPAREITEMSTRUCT;
  856. PCOMPAREITEMSTRUCT = ^COMPAREITEMSTRUCT;
  857. COMPCOLOR = record
  858. crText : COLORREF;
  859. crBackground : COLORREF;
  860. dwEffects : DWORD;
  861. end;
  862. TCOMPCOLOR = COMPCOLOR;
  863. PCOMPCOLOR = ^COMPCOLOR;
  864. COMPOSITIONFORM = record
  865. dwStyle : DWORD;
  866. ptCurrentPos : POINT;
  867. rcArea : RECT;
  868. end;
  869. LPCOMPOSITIONFORM = ^COMPOSITIONFORM;
  870. _tagCOMPOSITIONFORM = COMPOSITIONFORM;
  871. TCOMPOSITIONFORM = COMPOSITIONFORM;
  872. PCOMPOSITIONFORM = ^COMPOSITIONFORM;
  873. // TComStatFlags = set of (fCtsHold, fDsrHold, fRlsdHold , fXoffHold ,
  874. // fXoffSent , fEof , fTxim , fReserved);
  875. COMSTAT = record
  876. flag0 : DWORD; // can't use tcomstatflags, set packing issues
  877. // and conflicts with macro's
  878. cbInQue : DWORD;
  879. cbOutQue : DWORD;
  880. end;
  881. LPCOMSTAT = ^COMSTAT;
  882. _COMSTAT = COMSTAT;
  883. TCOMSTAT = COMSTAT;
  884. PCOMSTAT = ^COMSTAT;
  885. const
  886. bm_COMSTAT_fCtsHold = $1;
  887. bp_COMSTAT_fCtsHold = 0;
  888. bm_COMSTAT_fDsrHold = $2;
  889. bp_COMSTAT_fDsrHold = 1;
  890. bm_COMSTAT_fRlsdHold = $4;
  891. bp_COMSTAT_fRlsdHold = 2;
  892. bm_COMSTAT_fXoffHold = $8;
  893. bp_COMSTAT_fXoffHold = 3;
  894. bm_COMSTAT_fXoffSent = $10;
  895. bp_COMSTAT_fXoffSent = 4;
  896. bm_COMSTAT_fEof = $20;
  897. bp_COMSTAT_fEof = 5;
  898. bm_COMSTAT_fTxim = $40;
  899. bp_COMSTAT_fTxim = 6;
  900. bm_COMSTAT_fReserved = $FFFFFF80;
  901. bp_COMSTAT_fReserved = 7;
  902. function fCtsHold(var a : COMSTAT) : DWORD; // should be renamed to get_<x>?
  903. procedure set_fCtsHold(var a : COMSTAT; __fCtsHold : DWORD);
  904. function fDsrHold(var a : COMSTAT) : DWORD;
  905. procedure set_fDsrHold(var a : COMSTAT; __fDsrHold : DWORD);
  906. function fRlsdHold(var a : COMSTAT) : DWORD;
  907. procedure set_fRlsdHold(var a : COMSTAT; __fRlsdHold : DWORD);
  908. function fXoffHold(var a : COMSTAT) : DWORD;
  909. procedure set_fXoffHold(var a : COMSTAT; __fXoffHold : DWORD);
  910. function fXoffSent(var a : COMSTAT) : DWORD;
  911. procedure set_fXoffSent(var a : COMSTAT; __fXoffSent : DWORD);
  912. function fEof(var a : COMSTAT) : DWORD;
  913. procedure set_fEof(var a : COMSTAT; __fEof : DWORD);
  914. function fTxim(var a : COMSTAT) : DWORD;
  915. procedure set_fTxim(var a : COMSTAT; __fTxim : DWORD);
  916. function fReserved(var a : COMSTAT) : DWORD;
  917. procedure set_fReserved(var a : COMSTAT; __fReserved : DWORD);
  918. type
  919. CONSOLE_CURSOR_INFO = record
  920. dwSize : DWORD;
  921. bVisible : WINBOOL;
  922. end;
  923. PCONSOLE_CURSOR_INFO = ^CONSOLE_CURSOR_INFO;
  924. _CONSOLE_CURSOR_INFO = CONSOLE_CURSOR_INFO;
  925. TCONSOLECURSORINFO = CONSOLE_CURSOR_INFO;
  926. PCONSOLECURSORINFO = ^CONSOLE_CURSOR_INFO;
  927. COORD = record
  928. X : SHORT;
  929. Y : SHORT;
  930. end;
  931. _COORD = COORD;
  932. TCOORD = COORD;
  933. PCOORD = ^COORD;
  934. SMALL_RECT = record
  935. Left : SHORT;
  936. Top : SHORT;
  937. Right : SHORT;
  938. Bottom : SHORT;
  939. end;
  940. _SMALL_RECT = SMALL_RECT;
  941. TSMALL_RECT = SMALL_RECT;
  942. PSMALL_RECT = ^SMALL_RECT;
  943. CONSOLE_SCREEN_BUFFER_INFO = packed record
  944. dwSize : COORD;
  945. dwCursorPosition : COORD;
  946. wAttributes : WORD;
  947. srWindow : SMALL_RECT;
  948. dwMaximumWindowSize : COORD;
  949. end;
  950. PCONSOLE_SCREEN_BUFFER_INFO = ^CONSOLE_SCREEN_BUFFER_INFO;
  951. _CONSOLE_SCREEN_BUFFER_INFO = CONSOLE_SCREEN_BUFFER_INFO;
  952. TCONSOLESCREENBUFFERINFO = CONSOLE_SCREEN_BUFFER_INFO;
  953. PCONSOLESCREENBUFFERINFO = ^CONSOLE_SCREEN_BUFFER_INFO;
  954. {$ifdef cpui386}
  955. {$define __HASCONTEXT__}
  956. type
  957. FLOATING_SAVE_AREA = record
  958. ControlWord : DWORD;
  959. StatusWord : DWORD;
  960. TagWord : DWORD;
  961. ErrorOffset : DWORD;
  962. ErrorSelector : DWORD;
  963. DataOffset : DWORD;
  964. DataSelector : DWORD;
  965. RegisterArea : array[0..79] of BYTE;
  966. Cr0NpxState : DWORD;
  967. end;
  968. _FLOATING_SAVE_AREA = FLOATING_SAVE_AREA;
  969. TFLOATINGSAVEAREA = FLOATING_SAVE_AREA;
  970. PFLOATINGSAVEAREA = ^FLOATING_SAVE_AREA;
  971. CONTEXT = record
  972. ContextFlags : DWORD;
  973. Dr0 : DWORD;
  974. Dr1 : DWORD;
  975. Dr2 : DWORD;
  976. Dr3 : DWORD;
  977. Dr6 : DWORD;
  978. Dr7 : DWORD;
  979. FloatSave : FLOATING_SAVE_AREA;
  980. SegGs : DWORD;
  981. SegFs : DWORD;
  982. SegEs : DWORD;
  983. SegDs : DWORD;
  984. Edi : DWORD;
  985. Esi : DWORD;
  986. Ebx : DWORD;
  987. Edx : DWORD;
  988. Ecx : DWORD;
  989. Eax : DWORD;
  990. Ebp : DWORD;
  991. Eip : DWORD;
  992. SegCs : DWORD;
  993. EFlags : DWORD;
  994. Esp : DWORD;
  995. SegSs : DWORD;
  996. end;
  997. {$endif}
  998. {$ifdef cpux86_64}
  999. {$define __HASCONTEXT__}
  1000. //
  1001. // Define 128-bit 16-byte aligned xmm register type.
  1002. //
  1003. //typedef struct DECLSPEC_ALIGN(16) _M128A {
  1004. {$note todo, fix alignment }
  1005. type
  1006. M128A = record
  1007. Low: ULONGLONG;
  1008. High: LONGLONG;
  1009. end;
  1010. _M128A = M128A;
  1011. TM128A = M128A;
  1012. PM128A = TM128A;
  1013. //
  1014. // Format of data for 32-bit fxsave/fxrstor instructions.
  1015. //
  1016. //typedef struct _XMM_SAVE_AREA32 {
  1017. type
  1018. XMM_SAVE_AREA32 = record
  1019. ControlWord: WORD;
  1020. StatusWord: WORD;
  1021. TagWord: BYTE;
  1022. Reserved1: BYTE;
  1023. ErrorOpcode: WORD;
  1024. ErrorOffset: DWORD;
  1025. ErrorSelector: WORD;
  1026. Reserved2: WORD;
  1027. DataOffset: DWORD;
  1028. DataSelector: WORD;
  1029. Reserved3: WORD;
  1030. MxCsr: DWORD;
  1031. MxCsr_Mask: DWORD;
  1032. FloatRegisters: array[0..7] of M128A;
  1033. XmmRegisters: array[0..15] of M128A;
  1034. Reserved4: array[0..95] of BYTE;
  1035. end;
  1036. _XMM_SAVE_AREA32 = XMM_SAVE_AREA32;
  1037. TXmmSaveArea = XMM_SAVE_AREA32;
  1038. PXmmSaveArea = ^TXmmSaveArea;
  1039. const
  1040. LEGACY_SAVE_AREA_LENGTH = sizeof(XMM_SAVE_AREA32);
  1041. //
  1042. // Context Frame
  1043. //
  1044. // This frame has a several purposes: 1) it is used as an argument to
  1045. // NtContinue, 2) is is used to constuct a call frame for APC delivery,
  1046. // and 3) it is used in the user level thread creation routines.
  1047. //
  1048. //
  1049. // The flags field within this record controls the contents of a CONTEXT
  1050. // record.
  1051. //
  1052. // If the context record is used as an input parameter, then for each
  1053. // portion of the context record controlled by a flag whose value is
  1054. // set, it is assumed that that portion of the context record contains
  1055. // valid context. If the context record is being used to modify a threads
  1056. // context, then only that portion of the threads context is modified.
  1057. //
  1058. // If the context record is used as an output parameter to capture the
  1059. // context of a thread, then only those portions of the thread's context
  1060. // corresponding to set flags will be returned.
  1061. //
  1062. // CONTEXT_CONTROL specifies SegSs, Rsp, SegCs, Rip, and EFlags.
  1063. //
  1064. // CONTEXT_INTEGER specifies Rax, Rcx, Rdx, Rbx, Rbp, Rsi, Rdi, and R8-R15.
  1065. //
  1066. // CONTEXT_SEGMENTS specifies SegDs, SegEs, SegFs, and SegGs.
  1067. //
  1068. // CONTEXT_DEBUG_REGISTERS specifies Dr0-Dr3 and Dr6-Dr7.
  1069. //
  1070. // CONTEXT_MMX_REGISTERS specifies the floating point and extended registers
  1071. // Mm0/St0-Mm7/St7 and Xmm0-Xmm15).
  1072. //
  1073. //typedef struct DECLSPEC_ALIGN(16) _CONTEXT {
  1074. {$note todo, fix alignment }
  1075. type
  1076. CONTEXT = record
  1077. //
  1078. // Register parameter home addresses.
  1079. //
  1080. // N.B. These fields are for convience - they could be used to extend the
  1081. // context record in the future.
  1082. //
  1083. P1Home: DWORD64;
  1084. P2Home: DWORD64;
  1085. P3Home: DWORD64;
  1086. P4Home: DWORD64;
  1087. P5Home: DWORD64;
  1088. P6Home: DWORD64;
  1089. //
  1090. // Control flags.
  1091. //
  1092. ContextFlags: DWORD;
  1093. MxCsr: DWORD;
  1094. //
  1095. // Segment Registers and processor flags.
  1096. //
  1097. SegCs: WORD;
  1098. SegDs: WORD;
  1099. SegEs: WORD;
  1100. SegFs: WORD;
  1101. SegGs: WORD;
  1102. SegSs: WORD;
  1103. EFlags: DWORD;
  1104. //
  1105. // Debug registers
  1106. //
  1107. Dr0: DWORD64;
  1108. Dr1: DWORD64;
  1109. Dr2: DWORD64;
  1110. Dr3: DWORD64;
  1111. Dr6: DWORD64;
  1112. Dr7: DWORD64;
  1113. //
  1114. // Integer registers.
  1115. //
  1116. Rax: DWORD64;
  1117. Rcx: DWORD64;
  1118. Rdx: DWORD64;
  1119. Rbx: DWORD64;
  1120. Rsp: DWORD64;
  1121. Rbp: DWORD64;
  1122. Rsi: DWORD64;
  1123. Rdi: DWORD64;
  1124. R8: DWORD64;
  1125. R9: DWORD64;
  1126. R10: DWORD64;
  1127. R11: DWORD64;
  1128. R12: DWORD64;
  1129. R13: DWORD64;
  1130. R14: DWORD64;
  1131. R15: DWORD64;
  1132. //
  1133. // Program counter.
  1134. //
  1135. Rip: DWORD64;
  1136. //
  1137. // Floating point state.
  1138. //
  1139. FltSave: XMM_SAVE_AREA32; // MWE: only translated the FltSave part of the union
  1140. (*
  1141. union {
  1142. XMM_SAVE_AREA32 FltSave;
  1143. struct {
  1144. M128A Header[2];
  1145. M128A Legacy[8];
  1146. M128A Xmm0;
  1147. M128A Xmm1;
  1148. M128A Xmm2;
  1149. M128A Xmm3;
  1150. M128A Xmm4;
  1151. M128A Xmm5;
  1152. M128A Xmm6;
  1153. M128A Xmm7;
  1154. M128A Xmm8;
  1155. M128A Xmm9;
  1156. M128A Xmm10;
  1157. M128A Xmm11;
  1158. M128A Xmm12;
  1159. M128A Xmm13;
  1160. M128A Xmm14;
  1161. M128A Xmm15;
  1162. };
  1163. };
  1164. *)
  1165. //
  1166. // Vector registers.
  1167. //
  1168. VectorRegister: array[0..25] of M128A;
  1169. VectorControl: DWORD64;
  1170. //
  1171. // Special debug control registers.
  1172. //
  1173. DebugControl: DWORD64;
  1174. LastBranchToRip: DWORD64;
  1175. LastBranchFromRip: DWORD64;
  1176. LastExceptionToRip: DWORD64;
  1177. LastExceptionFromRip: DWORD64;
  1178. end;
  1179. {$endif}
  1180. {$ifdef cpupowerpc32}
  1181. {$define __HASCONTEXT__}
  1182. { __ppc__ }
  1183. { Floating point registers returned when CONTEXT_FLOATING_POINT is set }
  1184. { Integer registers returned when CONTEXT_INTEGER is set. }
  1185. { Condition register }
  1186. { Fixed point exception register }
  1187. { The following are set when CONTEXT_CONTROL is set. }
  1188. { Machine status register }
  1189. { Instruction address register }
  1190. { Link register }
  1191. { Control register }
  1192. { Control which context values are returned }
  1193. { Registers returned if CONTEXT_DEBUG_REGISTERS is set. }
  1194. { Breakpoint Register 1 }
  1195. { Breakpoint Register 2 }
  1196. { Breakpoint Register 3 }
  1197. { Breakpoint Register 4 }
  1198. { Breakpoint Register 5 }
  1199. { Breakpoint Register 6 }
  1200. { Debug Status Register }
  1201. { Debug Control Register }
  1202. type
  1203. CONTEXT = record
  1204. Fpr0 : double;
  1205. Fpr1 : double;
  1206. Fpr2 : double;
  1207. Fpr3 : double;
  1208. Fpr4 : double;
  1209. Fpr5 : double;
  1210. Fpr6 : double;
  1211. Fpr7 : double;
  1212. Fpr8 : double;
  1213. Fpr9 : double;
  1214. Fpr10 : double;
  1215. Fpr11 : double;
  1216. Fpr12 : double;
  1217. Fpr13 : double;
  1218. Fpr14 : double;
  1219. Fpr15 : double;
  1220. Fpr16 : double;
  1221. Fpr17 : double;
  1222. Fpr18 : double;
  1223. Fpr19 : double;
  1224. Fpr20 : double;
  1225. Fpr21 : double;
  1226. Fpr22 : double;
  1227. Fpr23 : double;
  1228. Fpr24 : double;
  1229. Fpr25 : double;
  1230. Fpr26 : double;
  1231. Fpr27 : double;
  1232. Fpr28 : double;
  1233. Fpr29 : double;
  1234. Fpr30 : double;
  1235. Fpr31 : double;
  1236. Fpscr : double;
  1237. Gpr0 : DWORD;
  1238. Gpr1 : DWORD;
  1239. Gpr2 : DWORD;
  1240. Gpr3 : DWORD;
  1241. Gpr4 : DWORD;
  1242. Gpr5 : DWORD;
  1243. Gpr6 : DWORD;
  1244. Gpr7 : DWORD;
  1245. Gpr8 : DWORD;
  1246. Gpr9 : DWORD;
  1247. Gpr10 : DWORD;
  1248. Gpr11 : DWORD;
  1249. Gpr12 : DWORD;
  1250. Gpr13 : DWORD;
  1251. Gpr14 : DWORD;
  1252. Gpr15 : DWORD;
  1253. Gpr16 : DWORD;
  1254. Gpr17 : DWORD;
  1255. Gpr18 : DWORD;
  1256. Gpr19 : DWORD;
  1257. Gpr20 : DWORD;
  1258. Gpr21 : DWORD;
  1259. Gpr22 : DWORD;
  1260. Gpr23 : DWORD;
  1261. Gpr24 : DWORD;
  1262. Gpr25 : DWORD;
  1263. Gpr26 : DWORD;
  1264. Gpr27 : DWORD;
  1265. Gpr28 : DWORD;
  1266. Gpr29 : DWORD;
  1267. Gpr30 : DWORD;
  1268. Gpr31 : DWORD;
  1269. Cr : DWORD;
  1270. Xer : DWORD;
  1271. Msr : DWORD;
  1272. Iar : DWORD;
  1273. Lr : DWORD;
  1274. Ctr : DWORD;
  1275. ContextFlags : DWORD;
  1276. Fill : array[0..2] of DWORD;
  1277. Dr0 : DWORD;
  1278. Dr1 : DWORD;
  1279. Dr2 : DWORD;
  1280. Dr3 : DWORD;
  1281. Dr4 : DWORD;
  1282. Dr5 : DWORD;
  1283. Dr6 : DWORD;
  1284. Dr7 : DWORD;
  1285. end;
  1286. {$endif}
  1287. {$ifndef __HASCONTEXT__}
  1288. { MWE: placeholder so it won't break compilation on others (CPUARM ?) }
  1289. type
  1290. CONTEXT = record
  1291. end;
  1292. {$endif}
  1293. {$undef __HASCONTEXT__}
  1294. LPCONTEXT = ^CONTEXT;
  1295. _CONTEXT = CONTEXT;
  1296. TCONTEXT = CONTEXT;
  1297. PCONTEXT = ^CONTEXT;
  1298. type
  1299. LIST_ENTRY = record
  1300. Flink : ^_LIST_ENTRY;
  1301. Blink : ^_LIST_ENTRY;
  1302. end;
  1303. _LIST_ENTRY = LIST_ENTRY;
  1304. TLISTENTRY = LIST_ENTRY;
  1305. PLISTENTRY = ^LIST_ENTRY;
  1306. CRITICAL_SECTION_DEBUG = record
  1307. _Type : WORD;
  1308. CreatorBackTraceIndex : WORD;
  1309. CriticalSection : ^_CRITICAL_SECTION;
  1310. ProcessLocksList : LIST_ENTRY;
  1311. EntryCount : DWORD;
  1312. ContentionCount : DWORD;
  1313. Depth : DWORD;
  1314. OwnerBackTrace : array[0..4] of PVOID;
  1315. end;
  1316. LPCRITICAL_SECTION_DEBUG = ^CRITICAL_SECTION_DEBUG;
  1317. PCRITICAL_SECTION_DEBUG = ^CRITICAL_SECTION_DEBUG;
  1318. _CRITICAL_SECTION_DEBUG = CRITICAL_SECTION_DEBUG;
  1319. TCRITICALSECTIONDEBUG = CRITICAL_SECTION_DEBUG;
  1320. PCRITICALSECTIONDEBUG = ^CRITICAL_SECTION_DEBUG;
  1321. CRITICAL_SECTION = TRTLCriticalSection;
  1322. _CRITICAL_SECTION = TRTLCriticalSection;
  1323. TCRITICAL_SECTION = TRTLCriticalSection;
  1324. PCRITICAL_SECTION = PRTLCriticalSection;
  1325. LPCRITICAL_SECTION = PRTLCriticalSection;
  1326. TCRITICALSECTION = TRTLCriticalSection;
  1327. PCRITICALSECTION = PRTLCriticalSection;
  1328. { SECURITY_CONTEXT_TRACKING_MODE ContextTrackingMode; }
  1329. SECURITY_QUALITY_OF_SERVICE = record
  1330. Length : DWORD;
  1331. ImpersonationLevel : SECURITY_IMPERSONATION_LEVEL;
  1332. ContextTrackingMode : BOOLEAN; // SECURITY_CONTEXT_TRACKING_MODE
  1333. EffectiveOnly : BOOLEAN;
  1334. end;
  1335. PSECURITY_QUALITY_OF_SERVICE = ^SECURITY_QUALITY_OF_SERVICE;
  1336. _SECURITY_QUALITY_OF_SERVICE = SECURITY_QUALITY_OF_SERVICE;
  1337. TSECURITYQUALITYOFSERVICE = SECURITY_QUALITY_OF_SERVICE;
  1338. PSECURITYQUALITYOFSERVICE = ^SECURITY_QUALITY_OF_SERVICE;
  1339. CONVCONTEXT = record
  1340. cb : UINT;
  1341. wFlags : UINT;
  1342. wCountryID : UINT;
  1343. iCodePage : longint;
  1344. dwLangID : DWORD;
  1345. dwSecurity : DWORD;
  1346. qos : SECURITY_QUALITY_OF_SERVICE;
  1347. end;
  1348. tagCONVCONTEXT = CONVCONTEXT;
  1349. TCONVCONTEXT = CONVCONTEXT;
  1350. PCONVCONTEXT = ^CONVCONTEXT;
  1351. CONVINFO = record
  1352. cb : DWORD;
  1353. hUser : DWORD;
  1354. hConvPartner : HCONV;
  1355. hszSvcPartner : HSZ;
  1356. hszServiceReq : HSZ;
  1357. hszTopic : HSZ;
  1358. hszItem : HSZ;
  1359. wFmt : UINT;
  1360. wType : UINT;
  1361. wStatus : UINT;
  1362. wConvst : UINT;
  1363. wLastError : UINT;
  1364. hConvList : HCONVLIST;
  1365. ConvCtxt : CONVCONTEXT;
  1366. _hwnd : HWND;
  1367. hwndPartner : HWND;
  1368. end;
  1369. tagCONVINFO = CONVINFO;
  1370. TCONVINFO = CONVINFO;
  1371. PCONVINFO = ^CONVINFO;
  1372. COPYDATASTRUCT = record
  1373. dwData : ULONG_PTR;
  1374. cbData : DWORD;
  1375. lpData : PVOID;
  1376. end;
  1377. tagCOPYDATASTRUCT = COPYDATASTRUCT;
  1378. TCOPYDATASTRUCT = COPYDATASTRUCT;
  1379. PCOPYDATASTRUCT = ^COPYDATASTRUCT;
  1380. CPINFO = record
  1381. MaxCharSize : UINT;
  1382. DefaultChar : array[0..(MAX_DEFAULTCHAR)-1] of BYTE;
  1383. LeadByte : array[0..(MAX_LEADBYTES)-1] of BYTE;
  1384. end;
  1385. LPCPINFO = ^CPINFO;
  1386. _cpinfo = CPINFO;
  1387. Tcpinfo = CPINFO;
  1388. Pcpinfo = ^CPINFO;
  1389. CPINFOEXA = record
  1390. MaxCharSize : UINT;
  1391. DefaultChar : array[0..(MAX_DEFAULTCHAR)-1] of BYTE;
  1392. LeadByte : array[0..(MAX_LEADBYTES)-1] of BYTE;
  1393. DefaultUnicode : WCHAR;
  1394. CodePage : UINT;
  1395. CodePageName : array[0..(MAX_PATH)-1] of CHAR;
  1396. end;
  1397. LPCPINFOEXA = ^CPINFOEXA;
  1398. _cpinfoexA = CPINFOEXA;
  1399. TcpinfoexA = CPINFOEXA;
  1400. PcpinfoexA = ^CPINFOEXA;
  1401. CPINFOEXW = record
  1402. MaxCharSize : UINT;
  1403. DefaultChar : array[0..(MAX_DEFAULTCHAR)-1] of BYTE;
  1404. LeadByte : array[0..(MAX_LEADBYTES)-1] of BYTE;
  1405. DefaultUnicode : WCHAR;
  1406. CodePage : UINT;
  1407. CodePageName : array[0..(MAX_PATH)-1] of WCHAR;
  1408. end;
  1409. LPCPINFOEXW = ^CPINFOEXW;
  1410. _cpinfoexW = CPINFOEXW;
  1411. TcpinfoexW = CPINFOEXW;
  1412. PcpinfoexW = ^CPINFOEXW;
  1413. {$ifndef UNICODE}
  1414. CPINFOEX = CPINFOEXA;
  1415. LPCPINFOEX = PCPINFOEXA;
  1416. _cpinfoex = CPINFOEXA;
  1417. Tcpinfoex = CPINFOEXA;
  1418. Pcpinfoex = PCPINFOEXA;
  1419. {$ELSE}
  1420. CPINFOEX = CPINFOEXW;
  1421. LPCPINFOEX = PCPINFOEXW;
  1422. _cpinfoex = CPINFOEXW;
  1423. Tcpinfoex = CPINFOEXW;
  1424. Pcpinfoex = PCPINFOEXW;
  1425. {$ENDIF}
  1426. CPLINFO = record
  1427. idIcon : longint;
  1428. idName : longint;
  1429. idInfo : longint;
  1430. lData : LONG_PTR;
  1431. end;
  1432. tagCPLINFO = CPLINFO;
  1433. TCPLINFO = CPLINFO;
  1434. PCPLINFO = ^CPLINFO;
  1435. CREATE_PROCESS_DEBUG_INFO = record
  1436. hFile : HANDLE;
  1437. hProcess : HANDLE;
  1438. hThread : HANDLE;
  1439. lpBaseOfImage : LPVOID;
  1440. dwDebugInfoFileOffset : DWORD;
  1441. nDebugInfoSize : DWORD;
  1442. lpThreadLocalBase : LPVOID;
  1443. lpStartAddress : LPTHREAD_START_ROUTINE;
  1444. lpImageName : LPVOID;
  1445. fUnicode : WORD;
  1446. end;
  1447. _CREATE_PROCESS_DEBUG_INFO = CREATE_PROCESS_DEBUG_INFO;
  1448. TCREATEPROCESSDEBUGINFO = CREATE_PROCESS_DEBUG_INFO;
  1449. PCREATEPROCESSDEBUGINFO = ^CREATE_PROCESS_DEBUG_INFO;
  1450. CREATE_THREAD_DEBUG_INFO = record
  1451. hThread : HANDLE;
  1452. lpThreadLocalBase : LPVOID;
  1453. lpStartAddress : LPTHREAD_START_ROUTINE;
  1454. end;
  1455. _CREATE_THREAD_DEBUG_INFO = CREATE_THREAD_DEBUG_INFO;
  1456. TCREATETHREADDEBUGINFO = CREATE_THREAD_DEBUG_INFO;
  1457. PCREATETHREADDEBUGINFO = ^CREATE_THREAD_DEBUG_INFO;
  1458. CURRENCYFMT = record
  1459. NumDigits : UINT;
  1460. LeadingZero : UINT;
  1461. Grouping : UINT;
  1462. lpDecimalSep : LPTSTR;
  1463. lpThousandSep : LPTSTR;
  1464. NegativeOrder : UINT;
  1465. PositiveOrder : UINT;
  1466. lpCurrencySymbol : LPTSTR;
  1467. end;
  1468. _currencyfmt = CURRENCYFMT;
  1469. Tcurrencyfmt = CURRENCYFMT;
  1470. Pcurrencyfmt = ^CURRENCYFMT;
  1471. CURSORSHAPE = record
  1472. xHotSpot : longint;
  1473. yHotSpot : longint;
  1474. cx : longint;
  1475. cy : longint;
  1476. cbWidth : longint;
  1477. Planes : BYTE;
  1478. BitsPixel : BYTE;
  1479. end;
  1480. LPCURSORSHAPE = ^CURSORSHAPE;
  1481. tagCURSORSHAPE = CURSORSHAPE;
  1482. TCURSORSHAPE = CURSORSHAPE;
  1483. PCURSORSHAPE = ^CURSORSHAPE;
  1484. CWPRETSTRUCT = record
  1485. lResult : LRESULT;
  1486. lParam : LPARAM;
  1487. wParam : WPARAM;
  1488. message : DWORD;
  1489. hwnd : HWND;
  1490. end;
  1491. tagCWPRETSTRUCT = CWPRETSTRUCT;
  1492. TCWPRETSTRUCT = CWPRETSTRUCT;
  1493. PCWPRETSTRUCT = ^CWPRETSTRUCT;
  1494. CWPSTRUCT = record
  1495. lParam : LPARAM;
  1496. wParam : WPARAM;
  1497. message : UINT;
  1498. hwnd : HWND;
  1499. end;
  1500. tagCWPSTRUCT = CWPSTRUCT;
  1501. TCWPSTRUCT = CWPSTRUCT;
  1502. PCWPSTRUCT = ^CWPSTRUCT;
  1503. DATATYPES_INFO_1 = record
  1504. pName : LPTSTR;
  1505. end;
  1506. _DATATYPES_INFO_1 = DATATYPES_INFO_1;
  1507. TDATATYPESINFO1 = DATATYPES_INFO_1;
  1508. PDATATYPESINFO1 = ^DATATYPES_INFO_1;
  1509. DDEACK = record
  1510. flag0 : word;
  1511. end;
  1512. TDDEACK = DDEACK;
  1513. PDDEACK = ^DDEACK;
  1514. const
  1515. bm_DDEACK_bAppReturnCode = $FF;
  1516. bp_DDEACK_bAppReturnCode = 0;
  1517. bm_DDEACK_reserved = $3F00;
  1518. bp_DDEACK_reserved = 8;
  1519. bm_DDEACK_fBusy = $4000;
  1520. bp_DDEACK_fBusy = 14;
  1521. bm_DDEACK_fAck = $8000;
  1522. bp_DDEACK_fAck = 15;
  1523. function bAppReturnCode(var a : DDEACK) : word;
  1524. procedure set_bAppReturnCode(var a : DDEACK; __bAppReturnCode : word);
  1525. function reserved(var a : DDEACK) : word;
  1526. procedure set_reserved(var a : DDEACK; __reserved : word);
  1527. function fBusy(var a : DDEACK) : word;
  1528. procedure set_fBusy(var a : DDEACK; __fBusy : word);
  1529. function fAck(var a : DDEACK) : word;
  1530. procedure set_fAck(var a : DDEACK; __fAck : word);
  1531. type
  1532. DDEADVISE = record
  1533. flag0 : word;
  1534. cfFormat : SHORT;
  1535. end;
  1536. TDDEADVISE = DDEADVISE;
  1537. PDDEADVISE = ^DDEADVISE;
  1538. const
  1539. bm_DDEADVISE_reserved = $3FFF;
  1540. bp_DDEADVISE_reserved = 0;
  1541. bm_DDEADVISE_fDeferUpd = $4000;
  1542. bp_DDEADVISE_fDeferUpd = 14;
  1543. bm_DDEADVISE_fAckReq = $8000;
  1544. bp_DDEADVISE_fAckReq = 15;
  1545. function reserved(var a : DDEADVISE) : word;
  1546. procedure set_reserved(var a : DDEADVISE; __reserved : word);
  1547. function fDeferUpd(var a : DDEADVISE) : word;
  1548. procedure set_fDeferUpd(var a : DDEADVISE; __fDeferUpd : word);
  1549. function fAckReq(var a : DDEADVISE) : word;
  1550. procedure set_fAckReq(var a : DDEADVISE; __fAckReq : word);
  1551. type
  1552. DDEDATA = record
  1553. flag0 : word;
  1554. cfFormat : SHORT;
  1555. Value : array[0..0] of BYTE;
  1556. end;
  1557. PDDEDATA = ^DDEDATA;
  1558. const
  1559. bm_DDEDATA_unused = $FFF;
  1560. bp_DDEDATA_unused = 0;
  1561. bm_DDEDATA_fResponse = $1000;
  1562. bp_DDEDATA_fResponse = 12;
  1563. bm_DDEDATA_fRelease = $2000;
  1564. bp_DDEDATA_fRelease = 13;
  1565. bm_DDEDATA_reserved = $4000;
  1566. bp_DDEDATA_reserved = 14;
  1567. bm_DDEDATA_fAckReq = $8000;
  1568. bp_DDEDATA_fAckReq = 15;
  1569. function unused(var a : DDEDATA) : word;
  1570. procedure set_unused(var a : DDEDATA; __unused : word);
  1571. function fResponse(var a : DDEDATA) : word;
  1572. procedure set_fResponse(var a : DDEDATA; __fResponse : word);
  1573. function fRelease(var a : DDEDATA) : word;
  1574. procedure set_fRelease(var a : DDEDATA; __fRelease : word);
  1575. function reserved(var a : DDEDATA) : word;
  1576. procedure set_reserved(var a : DDEDATA; __reserved : word);
  1577. function fAckReq(var a : DDEDATA) : word;
  1578. procedure set_fAckReq(var a : DDEDATA; __fAckReq : word);
  1579. type
  1580. DDELN = record
  1581. flag0 : word;
  1582. cfFormat : SHORT;
  1583. end;
  1584. TDDELN = DDELN;
  1585. PDDELN = ^DDELN;
  1586. const
  1587. bm_DDELN_unused = $1FFF;
  1588. bp_DDELN_unused = 0;
  1589. bm_DDELN_fRelease = $2000;
  1590. bp_DDELN_fRelease = 13;
  1591. bm_DDELN_fDeferUpd = $4000;
  1592. bp_DDELN_fDeferUpd = 14;
  1593. bm_DDELN_fAckReq = $8000;
  1594. bp_DDELN_fAckReq = 15;
  1595. function unused(var a : DDELN) : word;
  1596. procedure set_unused(var a : DDELN; __unused : word);
  1597. function fRelease(var a : DDELN) : word;
  1598. procedure set_fRelease(var a : DDELN; __fRelease : word);
  1599. function fDeferUpd(var a : DDELN) : word;
  1600. procedure set_fDeferUpd(var a : DDELN; __fDeferUpd : word);
  1601. function fAckReq(var a : DDELN) : word;
  1602. procedure set_fAckReq(var a : DDELN; __fAckReq : word);
  1603. type
  1604. DDEML_MSG_HOOK_DATA = record
  1605. uiLo : UINT_PTR;
  1606. uiHi : UINT_PTR;
  1607. cbData : DWORD;
  1608. Data : array[0..7] of DWORD;
  1609. end;
  1610. tagDDEML_MSG_HOOK_DATA = DDEML_MSG_HOOK_DATA;
  1611. TDDEMLMSGHOOKDATA = DDEML_MSG_HOOK_DATA;
  1612. PDDEMLMSGHOOKDATA = ^DDEML_MSG_HOOK_DATA;
  1613. DDEPOKE = record
  1614. flag0 : word;
  1615. cfFormat : SHORT;
  1616. Value : array[0..0] of BYTE;
  1617. end;
  1618. TDDEPOKE = DDEPOKE;
  1619. PDDEPOKE = ^DDEPOKE;
  1620. const
  1621. bm_DDEPOKE_unused = $1FFF;
  1622. bp_DDEPOKE_unused = 0;
  1623. bm_DDEPOKE_fRelease = $2000;
  1624. bp_DDEPOKE_fRelease = 13;
  1625. bm_DDEPOKE_fReserved = $C000;
  1626. bp_DDEPOKE_fReserved = 14;
  1627. function unused(var a : DDEPOKE) : word;
  1628. procedure set_unused(var a : DDEPOKE; __unused : word);
  1629. function fRelease(var a : DDEPOKE) : word;
  1630. procedure set_fRelease(var a : DDEPOKE; __fRelease : word);
  1631. function fReserved(var a : DDEPOKE) : word;
  1632. procedure set_fReserved(var a : DDEPOKE; __fReserved : word);
  1633. type
  1634. DDEUP = record
  1635. flag0 : word;
  1636. cfFormat : SHORT;
  1637. rgb : array[0..0] of BYTE;
  1638. end;
  1639. TDDEUP = DDEUP;
  1640. PDDEUP = ^DDEUP;
  1641. const
  1642. bm_DDEUP_unused = $FFF;
  1643. bp_DDEUP_unused = 0;
  1644. bm_DDEUP_fAck = $1000;
  1645. bp_DDEUP_fAck = 12;
  1646. bm_DDEUP_fRelease = $2000;
  1647. bp_DDEUP_fRelease = 13;
  1648. bm_DDEUP_fReserved = $4000;
  1649. bp_DDEUP_fReserved = 14;
  1650. bm_DDEUP_fAckReq = $8000;
  1651. bp_DDEUP_fAckReq = 15;
  1652. function unused(var a : DDEUP) : word;
  1653. procedure set_unused(var a : DDEUP; __unused : word);
  1654. function fAck(var a : DDEUP) : word;
  1655. procedure set_fAck(var a : DDEUP; __fAck : word);
  1656. function fRelease(var a : DDEUP) : word;
  1657. procedure set_fRelease(var a : DDEUP; __fRelease : word);
  1658. function fReserved(var a : DDEUP) : word;
  1659. procedure set_fReserved(var a : DDEUP; __fReserved : word);
  1660. function fAckReq(var a : DDEUP) : word;
  1661. procedure set_fAckReq(var a : DDEUP; __fAckReq : word);
  1662. type
  1663. EXCEPTION_RECORD = record
  1664. ExceptionCode : DWORD;
  1665. ExceptionFlags : DWORD;
  1666. ExceptionRecord : ^_EXCEPTION_RECORD;
  1667. ExceptionAddress : PVOID;
  1668. NumberParameters : DWORD;
  1669. ExceptionInformation : array[0..(EXCEPTION_MAXIMUM_PARAMETERS)-1] of ULONG_PTR;
  1670. end;
  1671. PEXCEPTION_RECORD = ^EXCEPTION_RECORD;
  1672. _EXCEPTION_RECORD = EXCEPTION_RECORD;
  1673. TEXCEPTIONRECORD = EXCEPTION_RECORD;
  1674. PEXCEPTIONRECORD = ^EXCEPTION_RECORD;
  1675. EXCEPTION_DEBUG_INFO = record
  1676. ExceptionRecord : EXCEPTION_RECORD;
  1677. dwFirstChance : DWORD;
  1678. end;
  1679. PEXCEPTION_DEBUG_INFO = ^EXCEPTION_DEBUG_INFO;
  1680. _EXCEPTION_DEBUG_INFO = EXCEPTION_DEBUG_INFO;
  1681. TEXCEPTIONDEBUGINFO = EXCEPTION_DEBUG_INFO;
  1682. PEXCEPTIONDEBUGINFO = ^EXCEPTION_DEBUG_INFO;
  1683. { Explicit forms to debug targets running on a different architecture (32-bit versus 64-bit)}
  1684. EXCEPTION_RECORD32 = record
  1685. ExceptionCode : DWORD;
  1686. ExceptionFlags : DWORD;
  1687. ExceptionRecord : DWORD;
  1688. ExceptionAddress : DWORD;
  1689. NumberParameters : DWORD;
  1690. ExceptionInformation : array[0..(EXCEPTION_MAXIMUM_PARAMETERS)-1] of DWORD;
  1691. end;
  1692. PEXCEPTION_RECORD32 = ^EXCEPTION_RECORD32;
  1693. _EXCEPTION_RECORD32 = EXCEPTION_RECORD32;
  1694. TExceptionRecord32 = EXCEPTION_RECORD32;
  1695. PExceptionRecord32 = ^EXCEPTION_RECORD32;
  1696. EXCEPTION_DEBUG_INFO32 = record
  1697. ExceptionRecord : EXCEPTION_RECORD32;
  1698. dwFirstChance : DWORD;
  1699. end;
  1700. PEXCEPTION_DEBUG_INFO32 = ^EXCEPTION_DEBUG_INFO32;
  1701. _EXCEPTION_DEBUG_INFO32 = EXCEPTION_DEBUG_INFO32;
  1702. TExceptionDebugInfo32 = EXCEPTION_DEBUG_INFO32;
  1703. PExceptionDebugInfo32 = ^EXCEPTION_DEBUG_INFO32;
  1704. EXCEPTION_RECORD64 = record
  1705. ExceptionCode : DWORD;
  1706. ExceptionFlags : DWORD;
  1707. ExceptionRecord : DWORD64;
  1708. ExceptionAddress : DWORD64;
  1709. NumberParameters : DWORD;
  1710. __unusedAlignment : DWORD;
  1711. ExceptionInformation : array[0..(EXCEPTION_MAXIMUM_PARAMETERS)-1] of DWORD64;
  1712. end;
  1713. PEXCEPTION_RECORD64 = ^EXCEPTION_RECORD64;
  1714. _EXCEPTION_RECORD64 = EXCEPTION_RECORD64;
  1715. TExceptionRecord64 = EXCEPTION_RECORD64;
  1716. PExceptionRecord64 = ^EXCEPTION_RECORD64;
  1717. EXCEPTION_DEBUG_INFO64 = record
  1718. ExceptionRecord : EXCEPTION_RECORD64;
  1719. dwFirstChance : DWORD;
  1720. end;
  1721. PEXCEPTION_DEBUG_INFO64 = ^EXCEPTION_DEBUG_INFO64;
  1722. _EXCEPTION_DEBUG_INFO64 = EXCEPTION_DEBUG_INFO64;
  1723. TExceptionDebugInfo64 = EXCEPTION_DEBUG_INFO64;
  1724. PExceptionDebugInfo64 = ^EXCEPTION_DEBUG_INFO64;
  1725. EXIT_PROCESS_DEBUG_INFO = record
  1726. dwExitCode : DWORD;
  1727. end;
  1728. _EXIT_PROCESS_DEBUG_INFO = EXIT_PROCESS_DEBUG_INFO;
  1729. TEXITPROCESSDEBUGINFO = EXIT_PROCESS_DEBUG_INFO;
  1730. PEXITPROCESSDEBUGINFO = ^EXIT_PROCESS_DEBUG_INFO;
  1731. EXIT_THREAD_DEBUG_INFO = record
  1732. dwExitCode : DWORD;
  1733. end;
  1734. _EXIT_THREAD_DEBUG_INFO = EXIT_THREAD_DEBUG_INFO;
  1735. TEXITTHREADDEBUGINFO = EXIT_THREAD_DEBUG_INFO;
  1736. PEXITTHREADDEBUGINFO = ^EXIT_THREAD_DEBUG_INFO;
  1737. LOAD_DLL_DEBUG_INFO = record
  1738. hFile : HANDLE;
  1739. lpBaseOfDll : LPVOID;
  1740. dwDebugInfoFileOffset : DWORD;
  1741. nDebugInfoSize : DWORD;
  1742. lpImageName : LPVOID;
  1743. fUnicode : WORD;
  1744. end;
  1745. _LOAD_DLL_DEBUG_INFO = LOAD_DLL_DEBUG_INFO;
  1746. TLOADDLLDEBUGINFO = LOAD_DLL_DEBUG_INFO;
  1747. PLOADDLLDEBUGINFO = ^LOAD_DLL_DEBUG_INFO;
  1748. UNLOAD_DLL_DEBUG_INFO = record
  1749. lpBaseOfDll : LPVOID;
  1750. end;
  1751. _UNLOAD_DLL_DEBUG_INFO = UNLOAD_DLL_DEBUG_INFO;
  1752. TUNLOADDLLDEBUGINFO = UNLOAD_DLL_DEBUG_INFO;
  1753. PUNLOADDLLDEBUGINFO = ^UNLOAD_DLL_DEBUG_INFO;
  1754. OUTPUT_DEBUG_STRING_INFO = record
  1755. lpDebugStringData : LPSTR;
  1756. fUnicode : WORD;
  1757. nDebugStringLength : WORD;
  1758. end;
  1759. _OUTPUT_DEBUG_STRING_INFO = OUTPUT_DEBUG_STRING_INFO;
  1760. TOUTPUTDEBUGSTRINGINFO = OUTPUT_DEBUG_STRING_INFO;
  1761. POUTPUTDEBUGSTRINGINFO = ^OUTPUT_DEBUG_STRING_INFO;
  1762. RIP_INFO = record
  1763. dwError : DWORD;
  1764. dwType : DWORD;
  1765. end;
  1766. _RIP_INFO = RIP_INFO;
  1767. TRIPINFO = RIP_INFO;
  1768. PRIPINFO = ^RIP_INFO;
  1769. DEBUG_EVENT = record
  1770. dwDebugEventCode : DWORD;
  1771. dwProcessId : DWORD;
  1772. dwThreadId : DWORD;
  1773. case longint of
  1774. 0 : ( Exception : EXCEPTION_DEBUG_INFO );
  1775. 1 : ( CreateThread : CREATE_THREAD_DEBUG_INFO );
  1776. 2 : ( CreateProcessInfo : CREATE_PROCESS_DEBUG_INFO );
  1777. 3 : ( ExitThread : EXIT_THREAD_DEBUG_INFO );
  1778. 4 : ( ExitProcess : EXIT_PROCESS_DEBUG_INFO );
  1779. 5 : ( LoadDll : LOAD_DLL_DEBUG_INFO );
  1780. 6 : ( UnloadDll : UNLOAD_DLL_DEBUG_INFO );
  1781. 7 : ( DebugString : OUTPUT_DEBUG_STRING_INFO );
  1782. 8 : ( RipInfo : RIP_INFO );
  1783. end;
  1784. LPDEBUG_EVENT = ^DEBUG_EVENT;
  1785. _DEBUG_EVENT = DEBUG_EVENT;
  1786. TDEBUGEVENT = DEBUG_EVENT;
  1787. PDEBUGEVENT = ^DEBUG_EVENT;
  1788. DEBUGHOOKINFO = record
  1789. idThread : DWORD;
  1790. idThreadInstaller : DWORD;
  1791. lParam : LPARAM;
  1792. wParam : WPARAM;
  1793. code : longint;
  1794. end;
  1795. tagDEBUGHOOKINFO = DEBUGHOOKINFO;
  1796. TDEBUGHOOKINFO = DEBUGHOOKINFO;
  1797. PDEBUGHOOKINFO = ^DEBUGHOOKINFO;
  1798. DELETEITEMSTRUCT = record
  1799. CtlType : UINT;
  1800. CtlID : UINT;
  1801. itemID : UINT;
  1802. hwndItem : HWND;
  1803. itemData : ULONG_PTR;
  1804. end;
  1805. tagDELETEITEMSTRUCT = DELETEITEMSTRUCT;
  1806. TDELETEITEMSTRUCT = DELETEITEMSTRUCT;
  1807. PDELETEITEMSTRUCT = ^DELETEITEMSTRUCT;
  1808. DEV_BROADCAST_HDR = record
  1809. dbch_size : ULONG;
  1810. dbch_devicetype : ULONG;
  1811. dbch_reserved : ULONG;
  1812. end;
  1813. PDEV_BROADCAST_HDR = ^DEV_BROADCAST_HDR;
  1814. _DEV_BROADCAST_HDR = DEV_BROADCAST_HDR;
  1815. TDEVBROADCASTHDR = DEV_BROADCAST_HDR;
  1816. PDEVBROADCASTHDR = ^DEV_BROADCAST_HDR;
  1817. DEV_BROADCAST_OEM = record
  1818. dbco_size : DWORD;
  1819. dbco_devicetype : DWORD;
  1820. dbco_reserved : DWORD;
  1821. dbco_identifier : DWORD;
  1822. dbco_suppfunc : DWORD;
  1823. end;
  1824. PDEV_BROADCAST_OEM = ^DEV_BROADCAST_OEM;
  1825. _DEV_BROADCAST_OEM = DEV_BROADCAST_OEM;
  1826. TDEVBROADCASTOEM = DEV_BROADCAST_OEM;
  1827. PDEVBROADCASTOEM = ^DEV_BROADCAST_OEM;
  1828. DEV_BROADCAST_PORT = record
  1829. dbcp_size : DWORD;
  1830. dbcp_devicetype : DWORD;
  1831. dbcp_reserved : DWORD;
  1832. dbcp_name : array[0..0] of TCHAR;
  1833. end;
  1834. PDEV_BROADCAST_PORT = ^DEV_BROADCAST_PORT;
  1835. _DEV_BROADCAST_PORT = DEV_BROADCAST_PORT;
  1836. TDEVBROADCASTPORT = DEV_BROADCAST_PORT;
  1837. PDEVBROADCASTPORT = ^DEV_BROADCAST_PORT;
  1838. _DEV_BROADCAST_USERDEFINED = record
  1839. dbud_dbh : _DEV_BROADCAST_HDR;
  1840. dbud_szName : array[0..0] of char;
  1841. dbud_rgbUserDefined : array[0..0] of BYTE;
  1842. end;
  1843. TDEVBROADCASTUSERDEFINED = _DEV_BROADCAST_USERDEFINED;
  1844. PDEVBROADCASTUSERDEFINED = ^_DEV_BROADCAST_USERDEFINED;
  1845. DEV_BROADCAST_VOLUME = record
  1846. dbcv_size : DWORD;
  1847. dbcv_devicetype : DWORD;
  1848. dbcv_reserved : DWORD;
  1849. dbcv_unitmask : DWORD;
  1850. dbcv_flags : WORD;
  1851. end;
  1852. PDEV_BROADCAST_VOLUME = ^DEV_BROADCAST_VOLUME;
  1853. _DEV_BROADCAST_VOLUME = DEV_BROADCAST_VOLUME;
  1854. TDEVBROADCASTVOLUME = DEV_BROADCAST_VOLUME;
  1855. PDEVBROADCASTVOLUME = ^DEV_BROADCAST_VOLUME;
  1856. DEVMODEA = record
  1857. dmDeviceName : array[0..(CCHDEVICENAME)-1] of AnsiChar;
  1858. dmSpecVersion : WORD;
  1859. dmDriverVersion : WORD;
  1860. dmSize : WORD;
  1861. dmDriverExtra : WORD;
  1862. dmFields : DWORD;
  1863. case byte of
  1864. 1: (dmOrientation : SmallInt;
  1865. dmPaperSize : SmallInt;
  1866. dmPaperLength : SmallInt;
  1867. dmPaperWidth : SmallInt;
  1868. dmScale : SmallInt;
  1869. dmCopies : SmallInt;
  1870. dmDefaultSource : SmallInt;
  1871. dmPrintQuality : SmallInt;
  1872. dmColor : SmallInt;
  1873. dmDuplex : SmallInt;
  1874. dmYResolution : SmallInt;
  1875. dmTTOption : SmallInt;
  1876. dmCollate : SmallInt;
  1877. dmFormName : array[0..(CCHFORMNAME)-1] of AnsiCHAR;
  1878. dmLogPixels : WORD;
  1879. dmBitsPerPel : DWORD;
  1880. dmPelsWidth : DWORD;
  1881. dmPelsHeight : DWORD;
  1882. dmDisplayFlags : DWORD;
  1883. dmDisplayFrequency : DWORD;
  1884. dmICMMethod : DWORD;
  1885. dmICMIntent : DWORD;
  1886. dmMediaType : DWORD;
  1887. dmDitherType : DWORD;
  1888. dmICCManufacturer : DWORD;
  1889. dmICCModel : DWORD
  1890. );
  1891. 2: (dmPosition: POINTL;
  1892. dmDisplayOrientation: DWORD;
  1893. dmDisplayFixedOutput: DWORD;
  1894. );
  1895. end;
  1896. LPDEVMODEA = ^DEVMODEA;
  1897. _DEVMODEA = DEVMODEA;
  1898. TDEVMODEA = DEVMODEA;
  1899. PDEVMODEA = LPDEVMODEA;
  1900. _devicemodeA = DEVMODEA;
  1901. devicemodeA = DEVMODEA;
  1902. tdevicemodeA = DEVMODEA;
  1903. PDeviceModeA = LPDEVMODEA;
  1904. devmodeW = record
  1905. dmDeviceName : array[0.. CCHDEVICENAME-1] of WCHAR;
  1906. dmSpecVersion : WORD;
  1907. dmDriverVersion: WORD;
  1908. dmSize : WORD;
  1909. dmDriverExtra : WORD;
  1910. dmFields : DWORD;
  1911. case byte of
  1912. 1: (
  1913. dmOrientation : short;
  1914. dmPaperSize : short;
  1915. dmPaperLength : short;
  1916. dmPaperWidth : short;
  1917. dmScale : short;
  1918. dmCopies : short;
  1919. dmDefaultSource: short;
  1920. dmPrintQuality : short;
  1921. dmColor : short;
  1922. dmDuplex : short;
  1923. dmYResolution : short;
  1924. dmTTOption : short;
  1925. dmCollate : short;
  1926. dmFormName : array [0..CCHFORMNAME-1] of wchar;
  1927. dmLogPixels : WORD;
  1928. dmBitsPerPel : DWORD;
  1929. dmPelsWidth : DWORD;
  1930. dmPelsHeight : DWORD;
  1931. dmDisplayFlags : DWORD;
  1932. dmDisplayFrequency : DWORD;
  1933. dmICMMethod : DWORD;
  1934. dmICMIntent : DWORD;
  1935. dmMediaType : DWORD;
  1936. dmDitherType : DWORD;
  1937. dmReserved1 : DWORD;
  1938. dmReserved2 : DWORD;
  1939. dmPanningWidth : DWORD;
  1940. dmPanningHeight: DWORD;
  1941. );
  1942. 2: (dmPosition: POINTL;
  1943. dmDisplayOrientation: DWORD;
  1944. dmDisplayFixedOutput: DWORD;
  1945. );
  1946. end;
  1947. LPDEVMODEW = ^DEVMODEW;
  1948. _DEVMODEW = DEVMODEW;
  1949. TDEVMODEW = DEVMODEW;
  1950. PDEVMODEW = LPDEVMODEW;
  1951. _devicemodeW = DEVMODEW;
  1952. devicemodeW = DEVMODEW;
  1953. TDeviceModeW = DEVMODEW;
  1954. PDeviceModeW = LPDEVMODEW;
  1955. {$IFNDEF UNICODE}
  1956. DEVMODE = DEVMODEA;
  1957. LPDEVMODE = ^DEVMODEA;
  1958. _DEVMODE = DEVMODEA;
  1959. TDEVMODE = DEVMODEA;
  1960. PDEVMODE = ^DEVMODEA;
  1961. {$ELSE}
  1962. DEVMODE = DEVMODEW;
  1963. LPDEVMODE = ^DEVMODEW;
  1964. _DEVMODE = DEVMODEW;
  1965. TDEVMODE = DEVMODEW;
  1966. PDEVMODE = ^DEVMODEW;
  1967. {$ENDIF}
  1968. _devicemode = DEVMODE;
  1969. DeviceMode = DEVMODE;
  1970. TDeviceMode = DEVMODE;
  1971. PDeviceMode = ^DEVMODE;
  1972. DEVNAMES = record
  1973. wDriverOffset : WORD;
  1974. wDeviceOffset : WORD;
  1975. wOutputOffset : WORD;
  1976. wDefault : WORD;
  1977. end;
  1978. LPDEVNAMES = ^DEVNAMES;
  1979. tagDEVNAMES = DEVNAMES;
  1980. TDEVNAMES = DEVNAMES;
  1981. PDEVNAMES = ^DEVNAMES;
  1982. DIBSECTION = record
  1983. dsBm : BITMAP;
  1984. dsBmih : BITMAPINFOHEADER;
  1985. dsBitfields : array[0..2] of DWORD;
  1986. dshSection : HANDLE;
  1987. dsOffset : DWORD;
  1988. end;
  1989. tagDIBSECTION = DIBSECTION;
  1990. TDIBSECTION = DIBSECTION;
  1991. PDIBSECTION = ^DIBSECTION;
  1992. LARGE_INTEGER = record
  1993. case byte of
  1994. 0: (LowPart : DWORD;
  1995. HighPart : LONG);
  1996. 1: (QuadPart : LONGLONG);
  1997. end;
  1998. PLARGE_INTEGER = ^LARGE_INTEGER;
  1999. _LARGE_INTEGER = LARGE_INTEGER;
  2000. TLargeInteger = Int64;
  2001. PLargeInteger = ^TLargeInteger;
  2002. ULARGE_INTEGER = record
  2003. case byte of
  2004. 0: (LowPart : DWORD;
  2005. HighPart : DWORD);
  2006. 1: (QuadPart : ULONGLONG);
  2007. end;
  2008. PULARGE_INTEGER = ^ULARGE_INTEGER;
  2009. _ULARGE_INTEGER = ULARGE_INTEGER;
  2010. TULargeInteger = QWord;
  2011. PULargeInteger = ^TULargeInteger;
  2012. DISK_GEOMETRY = record
  2013. Cylinders : LARGE_INTEGER;
  2014. MediaType : MEDIA_TYPE;
  2015. TracksPerCylinder : DWORD;
  2016. SectorsPerTrack : DWORD;
  2017. BytesPerSector : DWORD;
  2018. end;
  2019. _DISK_GEOMETRY = DISK_GEOMETRY;
  2020. TDISKGEOMETRY = DISK_GEOMETRY;
  2021. PDISKGEOMETRY = ^DISK_GEOMETRY;
  2022. DISK_PERFORMANCE = record
  2023. BytesRead : LARGE_INTEGER;
  2024. BytesWritten : LARGE_INTEGER;
  2025. ReadTime : LARGE_INTEGER;
  2026. WriteTime : LARGE_INTEGER;
  2027. IdleTime : LARGE_INTEGER;
  2028. ReadCount : DWORD;
  2029. WriteCount : DWORD;
  2030. QueueDepth : DWORD;
  2031. SplitCount : DWORD;
  2032. QueryTime : LARGE_INTEGER;
  2033. StorageDeviceNumber : DWORD;
  2034. StorageManagerName : array [0..7] of WCHAR;
  2035. end;
  2036. _DISK_PERFORMANCE = DISK_PERFORMANCE;
  2037. TDISKPERFORMANCE = DISK_PERFORMANCE;
  2038. PDISKPERFORMANCE = ^DISK_PERFORMANCE;
  2039. DLGITEMTEMPLATE = packed record
  2040. style : DWORD;
  2041. dwExtendedStyle : DWORD;
  2042. x : smallint;
  2043. y : smallint;
  2044. cx : smallint;
  2045. cy : smallint;
  2046. id : WORD;
  2047. end;
  2048. LPDLGITEMTEMPLATE = ^DLGITEMTEMPLATE;
  2049. TDLGITEMTEMPLATE = DLGITEMTEMPLATE;
  2050. PDLGITEMTEMPLATE = ^DLGITEMTEMPLATE;
  2051. DLGTEMPLATE = packed record
  2052. style : DWORD;
  2053. dwExtendedStyle : DWORD;
  2054. cdit : WORD;
  2055. x : smallint;
  2056. y : smallint;
  2057. cx : smallint;
  2058. cy : smallint;
  2059. end;
  2060. LPDLGTEMPLATE = ^DLGTEMPLATE;
  2061. LPCDLGTEMPLATE = ^DLGTEMPLATE;
  2062. TDLGTEMPLATE = DLGTEMPLATE;
  2063. PDLGTEMPLATE = ^DLGTEMPLATE;
  2064. DOC_INFO_1 = record
  2065. pDocName : LPTSTR;
  2066. pOutputFile : LPTSTR;
  2067. pDatatype : LPTSTR;
  2068. end;
  2069. _DOC_INFO_1 = DOC_INFO_1;
  2070. TDOCINFO1 = DOC_INFO_1;
  2071. PDOCINFO1 = ^DOC_INFO_1;
  2072. DOC_INFO_2 = record
  2073. pDocName : LPTSTR;
  2074. pOutputFile : LPTSTR;
  2075. pDatatype : LPTSTR;
  2076. dwMode : DWORD;
  2077. JobId : DWORD;
  2078. end;
  2079. _DOC_INFO_2 = DOC_INFO_2;
  2080. TDOCINFO2 = DOC_INFO_2;
  2081. PDOCINFO2 = ^DOC_INFO_2;
  2082. DOCINFO = record
  2083. cbSize : longint;
  2084. lpszDocName : LPCTSTR;
  2085. lpszOutput : LPCTSTR;
  2086. lpszDatatype : LPCTSTR;
  2087. fwType : DWORD;
  2088. end;
  2089. TDOCINFO = DOCINFO;
  2090. TDOCINFOA = DOCINFO;
  2091. PDOCINFO = ^DOCINFO;
  2092. DRAGLISTINFO = record
  2093. uNotification : UINT;
  2094. hWnd : HWND;
  2095. ptCursor : POINT;
  2096. end;
  2097. LPDRAGLISTINFO = ^DRAGLISTINFO;
  2098. TDRAGLISTINFO = DRAGLISTINFO;
  2099. PDRAGLISTINFO = ^DRAGLISTINFO;
  2100. DRAWITEMSTRUCT = record
  2101. CtlType : UINT;
  2102. CtlID : UINT;
  2103. itemID : UINT;
  2104. itemAction : UINT;
  2105. itemState : UINT;
  2106. hwndItem : HWND;
  2107. hDC : HDC;
  2108. rcItem : RECT;
  2109. itemData : ULONG_PTR;
  2110. end;
  2111. LPDRAWITEMSTRUCT = ^DRAWITEMSTRUCT;
  2112. tagDRAWITEMSTRUCT = DRAWITEMSTRUCT;
  2113. TDRAWITEMSTRUCT = DRAWITEMSTRUCT;
  2114. PDRAWITEMSTRUCT = ^DRAWITEMSTRUCT;
  2115. DRAWTEXTPARAMS = record
  2116. cbSize : UINT;
  2117. iTabLength : longint;
  2118. iLeftMargin : longint;
  2119. iRightMargin : longint;
  2120. uiLengthDrawn : UINT;
  2121. end;
  2122. LPDRAWTEXTPARAMS = ^DRAWTEXTPARAMS;
  2123. TDRAWTEXTPARAMS = DRAWTEXTPARAMS;
  2124. PDRAWTEXTPARAMS = ^DRAWTEXTPARAMS;
  2125. PARTITION_INFORMATION = record
  2126. StartingOffset : LARGE_INTEGER;
  2127. PartitionLength: LARGE_INTEGER;
  2128. HiddenSectors : DWORD;
  2129. PartitionNumber: DWORD;
  2130. PartitionType : BYTE;
  2131. BootIndicator : BYTEBOOL;
  2132. RecognizedPartition : BYTEBOOL;
  2133. RewritePartition : BYTEBOOL;
  2134. end;
  2135. _PARTITION_INFORMATION = PARTITION_INFORMATION;
  2136. TPARTITIONINFORMATION = PARTITION_INFORMATION;
  2137. PPARTITIONINFORMATION = ^PARTITION_INFORMATION;
  2138. PARTITION_INFORMATION_GPT = record
  2139. PartitionType : TGUID;
  2140. PartitionID : TGUID;
  2141. Attributes : DWORD64;
  2142. Name : array[0..35] OF WCHAR;
  2143. end;
  2144. TPARTITION_INFORMATION_GPT= PARTITION_INFORMATION_GPT;
  2145. PPARTITION_INFORMATION_GPT= ^PARTITION_INFORMATION_GPT;
  2146. PARTITION_INFORMATION_MBR = record
  2147. PartitionType : Byte;
  2148. BootIndicator : ByteBool;
  2149. RecognizedPartition : ByteBool;
  2150. HiddenSectors : DWORD;
  2151. end;
  2152. TPARTITION_INFORMATION_MBR= PARTITION_INFORMATION_MBR;
  2153. PPARTITION_INFORMATION_MBR= ^PARTITION_INFORMATION_MBR;
  2154. SET_PARTITION_INFORMATION = record
  2155. PartitionType : BYTE;
  2156. end;
  2157. _SET_PARTITION_INFORMATION = SET_PARTITION_INFORMATION;
  2158. TSETPARTITIONINFORMATION = SET_PARTITION_INFORMATION;
  2159. PSETPARTITIONINFORMATION = ^SET_PARTITION_INFORMATION;
  2160. SET_PARTITION_INFORMATION_MBR = PARTITION_INFORMATION;
  2161. TSET_PARTITION_INFORMATION_MBR = PARTITION_INFORMATION;
  2162. SET_PARTITION_INFORMATION_GPT = PARTITION_INFORMATION_GPT;
  2163. TSET_PARTITION_INFORMATION_GPT = PARTITION_INFORMATION_GPT;
  2164. SET_PARTITION_INFORMATION_EX = record
  2165. PartitionStyle : TPartition_Style;
  2166. case integer of
  2167. 0 : (mbr : SET_PARTITION_INFORMATION_MBR);
  2168. 1 : (GPT : SET_PARTITION_INFORMATION_GPT);
  2169. end;
  2170. TSET_PARTITION_INFORMATION_EX = SET_PARTITION_INFORMATION_EX;
  2171. PSET_PARTITION_INFORMATION_EX = ^SET_PARTITION_INFORMATION_EX;
  2172. CREATE_DISK_GPT = record
  2173. DiskID : TGUID;
  2174. MaxPartitionCount : DWord;
  2175. end;
  2176. TCREATE_DISK_GPT = CREATE_DISK_GPT;
  2177. PCREATE_DISK_GPT = ^TCREATE_DISK_GPT;
  2178. CREATE_DISK_MBR = record
  2179. Signature : DWord;
  2180. end;
  2181. TCREATE_DISK_MBR = CREATE_DISK_MBR;
  2182. PCREATE_DISK_MBR = ^TCREATE_DISK_MBR;
  2183. CREATE_DISK = record
  2184. PartitionStyle : TPartition_Style;
  2185. case integer of
  2186. 0: ( MBR : Create_Disk_MBR);
  2187. 1: ( GPT : Create_Disk_GPT);
  2188. end;
  2189. TCREATE_DISK = CREATE_DISK;
  2190. PCREATE_DISK = ^TCREATE_DISK;
  2191. GET_LENGTH_INFORMATION = record
  2192. Length : LARGE_INTEGER;
  2193. end;
  2194. TGET_LENGTH_INFORMATION = GET_LENGTH_INFORMATION;
  2195. PGET_LENGTH_INFORMATION = ^GET_LENGTH_INFORMATION;
  2196. PARTITION_INFORMATION_EX = record
  2197. PartitionStyle : TPartition_Style;
  2198. StartingOffset : LARGE_INTEGER;
  2199. PartitionLength : LARGE_INTEGER;
  2200. PartitionNumber : DWORD;
  2201. RewritePartition: BYTEBOOL;
  2202. case integer of
  2203. 0: ( MBR : PARTITION_INFORMATION_MBR);
  2204. 1: ( GPT : PARTITION_INFORMATION_GPT);
  2205. end;
  2206. _PARTITION_INFORMATION_EX = PARTITION_INFORMATION_EX;
  2207. TPARTITIONINFORMATION_EX = PARTITION_INFORMATION_EX;
  2208. PPARTITIONINFORMATION_EX = ^PARTITION_INFORMATION_EX;
  2209. DRIVE_LAYOUT_INFORMATION = record
  2210. PartitionCount : DWORD;
  2211. Signature : DWORD;
  2212. PartitionEntry : array[0..0] of PARTITION_INFORMATION;
  2213. end;
  2214. _DRIVE_LAYOUT_INFORMATION = DRIVE_LAYOUT_INFORMATION;
  2215. TDRIVELAYOUTINFORMATION = DRIVE_LAYOUT_INFORMATION;
  2216. PDRIVELAYOUTINFORMATION = ^DRIVE_LAYOUT_INFORMATION;
  2217. DRIVER_INFO_1 = record
  2218. pName : LPTSTR;
  2219. end;
  2220. _DRIVER_INFO_1 = DRIVER_INFO_1;
  2221. TDRIVERINFO1 = DRIVER_INFO_1;
  2222. PDRIVERINFO1 = ^DRIVER_INFO_1;
  2223. DRIVER_INFO_2 = record
  2224. cVersion : DWORD;
  2225. pName : LPTSTR;
  2226. pEnvironment : LPTSTR;
  2227. pDriverPath : LPTSTR;
  2228. pDataFile : LPTSTR;
  2229. pConfigFile : LPTSTR;
  2230. end;
  2231. _DRIVER_INFO_2 = DRIVER_INFO_2;
  2232. TDRIVERINFO2 = DRIVER_INFO_2;
  2233. PDRIVERINFO2 = ^DRIVER_INFO_2;
  2234. DRIVER_INFO_3 = record
  2235. cVersion : DWORD;
  2236. pName : LPTSTR;
  2237. pEnvironment : LPTSTR;
  2238. pDriverPath : LPTSTR;
  2239. pDataFile : LPTSTR;
  2240. pConfigFile : LPTSTR;
  2241. pHelpFile : LPTSTR;
  2242. pDependentFiles : LPTSTR;
  2243. pMonitorName : LPTSTR;
  2244. pDefaultDataType : LPTSTR;
  2245. end;
  2246. _DRIVER_INFO_3 = DRIVER_INFO_3;
  2247. TDRIVERINFO3 = DRIVER_INFO_3;
  2248. PDRIVERINFO3 = ^DRIVER_INFO_3;
  2249. EDITSTREAM = record
  2250. dwCookie : DWORD_PTR;
  2251. dwError : DWORD;
  2252. pfnCallback : EDITSTREAMCALLBACK;
  2253. end;
  2254. _editstream = EDITSTREAM;
  2255. Teditstream = EDITSTREAM;
  2256. Peditstream = ^EDITSTREAM;
  2257. EMR = record
  2258. iType : DWORD;
  2259. nSize : DWORD;
  2260. end;
  2261. tagEMR = EMR;
  2262. TEMR = EMR;
  2263. PEMR = ^EMR;
  2264. EMRANGLEARC = record
  2265. emr : EMR;
  2266. ptlCenter : POINTL;
  2267. nRadius : DWORD;
  2268. eStartAngle : Single;
  2269. eSweepAngle : Single;
  2270. end;
  2271. tagEMRANGLEARC = EMRANGLEARC;
  2272. TEMRANGLEARC = EMRANGLEARC;
  2273. PEMRANGLEARC = ^EMRANGLEARC;
  2274. EMRARC = record
  2275. emr : EMR;
  2276. rclBox : RECTL;
  2277. ptlStart : POINTL;
  2278. ptlEnd : POINTL;
  2279. end;
  2280. tagEMRARC = EMRARC;
  2281. TEMRARC = EMRARC;
  2282. PEMRARC = ^EMRARC;
  2283. EMRARCTO = EMRARC;
  2284. TEMRARCTO = EMRARC;
  2285. PEMRARCTO = ^EMRARC;
  2286. EMRCHORD = EMRARC;
  2287. TEMRCHORD = EMRARC;
  2288. PEMRCHORD = ^EMRARC;
  2289. EMRPIE = EMRARC;
  2290. TEMRPIE = EMRARC;
  2291. PEMRPIE = ^EMRARC;
  2292. XFORM = record
  2293. eM11 : Single;
  2294. eM12 : Single;
  2295. eM21 : Single;
  2296. eM22 : Single;
  2297. eDx : Single;
  2298. eDy : Single;
  2299. end;
  2300. LPXFORM = ^XFORM;
  2301. _XFORM = XFORM;
  2302. TXFORM = XFORM;
  2303. PXFORM = ^XFORM;
  2304. EMRBITBLT = record
  2305. emr : EMR;
  2306. rclBounds : RECTL;
  2307. xDest : LONG;
  2308. yDest : LONG;
  2309. cxDest : LONG;
  2310. cyDest : LONG;
  2311. dwRop : DWORD;
  2312. xSrc : LONG;
  2313. ySrc : LONG;
  2314. xformSrc : XFORM;
  2315. crBkColorSrc : COLORREF;
  2316. iUsageSrc : DWORD;
  2317. offBmiSrc : DWORD;
  2318. cbBmiSrc : DWORD;
  2319. offBitsSrc : DWORD;
  2320. cbBitsSrc : DWORD;
  2321. end;
  2322. tagEMRBITBLT = EMRBITBLT;
  2323. TEMRBITBLT = EMRBITBLT;
  2324. PEMRBITBLT = ^EMRBITBLT;
  2325. LOGBRUSH = record
  2326. lbStyle : UINT;
  2327. lbColor : COLORREF;
  2328. lbHatch : ULONG_PTR;
  2329. end;
  2330. tagLOGBRUSH = LOGBRUSH;
  2331. TLOGBRUSH = LOGBRUSH;
  2332. PLOGBRUSH = ^LOGBRUSH;
  2333. EMRCREATEBRUSHINDIRECT = record
  2334. emr : EMR;
  2335. ihBrush : DWORD;
  2336. lb : LOGBRUSH;
  2337. end;
  2338. tagEMRCREATEBRUSHINDIRECT = EMRCREATEBRUSHINDIRECT;
  2339. TEMRCREATEBRUSHINDIRECT = EMRCREATEBRUSHINDIRECT;
  2340. PEMRCREATEBRUSHINDIRECT = ^EMRCREATEBRUSHINDIRECT;
  2341. LCSCSTYPE = LONG;
  2342. LCSGAMUTMATCH = LONG;
  2343. LOGCOLORSPACEA = record
  2344. lcsSignature : DWORD;
  2345. lcsVersion : DWORD;
  2346. lcsSize : DWORD;
  2347. lcsCSType : LCSCSTYPE;
  2348. lcsIntent : LCSGAMUTMATCH;
  2349. lcsEndpoints : CIEXYZTRIPLE;
  2350. lcsGammaRed : DWORD;
  2351. lcsGammaGreen : DWORD;
  2352. lcsGammaBlue : DWORD;
  2353. lcsFilename : array[0..(MAX_PATH)-1] of ANSICHAR;
  2354. end;
  2355. LPLOGCOLORSPACEA = ^LOGCOLORSPACEA;
  2356. tagLOGCOLORSPACEA = LOGCOLORSPACEA;
  2357. TLOGCOLORSPACEA = LOGCOLORSPACEA;
  2358. PLOGCOLORSPACEA = ^LOGCOLORSPACEA;
  2359. LOGCOLORSPACEW = record
  2360. lcsSignature : DWORD;
  2361. lcsVersion : DWORD;
  2362. lcsSize : DWORD;
  2363. lcsCSType : LCSCSTYPE;
  2364. lcsIntent : LCSGAMUTMATCH;
  2365. lcsEndpoints : CIEXYZTRIPLE;
  2366. lcsGammaRed : DWORD;
  2367. lcsGammaGreen : DWORD;
  2368. lcsGammaBlue : DWORD;
  2369. lcsFilename : array[0..(MAX_PATH)-1] of WIDECHAR;
  2370. end;
  2371. LPLOGCOLORSPACEW = ^LOGCOLORSPACEW;
  2372. tagLOGCOLORSPACEW = LOGCOLORSPACEW;
  2373. TLOGCOLORSPACEW = LOGCOLORSPACEW;
  2374. PLOGCOLORSPACEW = ^LOGCOLORSPACEW;
  2375. {$ifdef UNICODE}
  2376. LPLOGCOLORSPACE = PLOGCOLORSPACEW;
  2377. tagLOGCOLORSPACE = LOGCOLORSPACEW;
  2378. TLOGCOLORSPACE = LOGCOLORSPACEW;
  2379. LOGCOLORSPACE = LOGCOLORSPACEW;
  2380. PLOGCOLORSPACE = PLOGCOLORSPACEW;
  2381. {$else}
  2382. LPLOGCOLORSPACE = PLOGCOLORSPACEA;
  2383. tagLOGCOLORSPACE = LOGCOLORSPACEA;
  2384. TLOGCOLORSPACE = LOGCOLORSPACEA;
  2385. LOGCOLORSPACE = LOGCOLORSPACEA;
  2386. PLOGCOLORSPACE = PLOGCOLORSPACEA;
  2387. {$endif}
  2388. EMRCREATECOLORSPACE = record
  2389. emr : EMR;
  2390. ihCS : DWORD;
  2391. lcs : LOGCOLORSPACE;
  2392. end;
  2393. tagEMRCREATECOLORSPACE = EMRCREATECOLORSPACE;
  2394. TEMRCREATECOLORSPACE = EMRCREATECOLORSPACE;
  2395. PEMRCREATECOLORSPACE = ^EMRCREATECOLORSPACE;
  2396. EMRCREATEDIBPATTERNBRUSHPT = record
  2397. emr : EMR;
  2398. ihBrush : DWORD;
  2399. iUsage : DWORD;
  2400. offBmi : DWORD;
  2401. cbBmi : DWORD;
  2402. offBits : DWORD;
  2403. cbBits : DWORD;
  2404. end;
  2405. tagEMRCREATEDIBPATTERNBRUSHPT = EMRCREATEDIBPATTERNBRUSHPT;
  2406. TEMRCREATEDIBPATTERNBRUSHPT = EMRCREATEDIBPATTERNBRUSHPT;
  2407. PEMRCREATEDIBPATTERNBRUSHPT = EMRCREATEDIBPATTERNBRUSHPT;
  2408. EMRCREATEMONOBRUSH = record
  2409. emr : EMR;
  2410. ihBrush : DWORD;
  2411. iUsage : DWORD;
  2412. offBmi : DWORD;
  2413. cbBmi : DWORD;
  2414. offBits : DWORD;
  2415. cbBits : DWORD;
  2416. end;
  2417. tagEMRCREATEMONOBRUSH = EMRCREATEMONOBRUSH;
  2418. TEMRCREATEMONOBRUSH = EMRCREATEMONOBRUSH;
  2419. PEMRCREATEMONOBRUSH = ^EMRCREATEMONOBRUSH;
  2420. PALETTEENTRY = record
  2421. peRed : BYTE;
  2422. peGreen : BYTE;
  2423. peBlue : BYTE;
  2424. peFlags : BYTE;
  2425. end;
  2426. LPPALETTEENTRY = ^PALETTEENTRY;
  2427. tagPALETTEENTRY = PALETTEENTRY;
  2428. TPALETTEENTRY = PALETTEENTRY;
  2429. PPALETTEENTRY = ^PALETTEENTRY;
  2430. LOGPALETTE = record
  2431. palVersion : WORD;
  2432. palNumEntries : WORD;
  2433. palPalEntry : array[0..0] of PALETTEENTRY;
  2434. end;
  2435. LPLOGPALETTE = ^LOGPALETTE;
  2436. tagLOGPALETTE = LOGPALETTE;
  2437. TLOGPALETTE = LOGPALETTE;
  2438. PLOGPALETTE = ^LOGPALETTE;
  2439. EMRCREATEPALETTE = record
  2440. emr : EMR;
  2441. ihPal : DWORD;
  2442. lgpl : LOGPALETTE;
  2443. end;
  2444. tagEMRCREATEPALETTE = EMRCREATEPALETTE;
  2445. TEMRCREATEPALETTE = EMRCREATEPALETTE;
  2446. PEMRCREATEPALETTE = ^EMRCREATEPALETTE;
  2447. LOGPEN = record
  2448. lopnStyle : UINT;
  2449. lopnWidth : POINT;
  2450. lopnColor : COLORREF;
  2451. end;
  2452. tagLOGPEN = LOGPEN;
  2453. TLOGPEN = LOGPEN;
  2454. PLOGPEN = ^LOGPEN;
  2455. EMRCREATEPEN = record
  2456. emr : EMR;
  2457. ihPen : DWORD;
  2458. lopn : LOGPEN;
  2459. end;
  2460. tagEMRCREATEPEN = EMRCREATEPEN;
  2461. TEMRCREATEPEN = EMRCREATEPEN;
  2462. PEMRCREATEPEN = ^EMRCREATEPEN;
  2463. EMRELLIPSE = record
  2464. emr : EMR;
  2465. rclBox : RECTL;
  2466. end;
  2467. tagEMRELLIPSE = EMRELLIPSE;
  2468. TEMRELLIPSE = EMRELLIPSE;
  2469. PEMRELLIPSE = ^EMRELLIPSE;
  2470. EMRRECTANGLE = EMRELLIPSE;
  2471. TEMRRECTANGLE = EMRELLIPSE;
  2472. PEMRRECTANGLE = ^EMRELLIPSE;
  2473. EMREOF = record
  2474. emr : EMR;
  2475. nPalEntries : DWORD;
  2476. offPalEntries : DWORD;
  2477. nSizeLast : DWORD;
  2478. end;
  2479. tagEMREOF = EMREOF;
  2480. TEMREOF = EMREOF;
  2481. PEMREOF = ^EMREOF;
  2482. EMREXCLUDECLIPRECT = record
  2483. emr : EMR;
  2484. rclClip : RECTL;
  2485. end;
  2486. tagEMREXCLUDECLIPRECT = EMREXCLUDECLIPRECT;
  2487. TEMREXCLUDECLIPRECT = EMREXCLUDECLIPRECT;
  2488. PEMREXCLUDECLIPRECT = ^EMREXCLUDECLIPRECT;
  2489. EMRINTERSECTCLIPRECT = EMREXCLUDECLIPRECT;
  2490. TEMRINTERSECTCLIPRECT = EMREXCLUDECLIPRECT;
  2491. PEMRINTERSECTCLIPRECT = ^EMREXCLUDECLIPRECT;
  2492. PANOSE = record
  2493. bFamilyType : BYTE;
  2494. bSerifStyle : BYTE;
  2495. bWeight : BYTE;
  2496. bProportion : BYTE;
  2497. bContrast : BYTE;
  2498. bStrokeVariation : BYTE;
  2499. bArmStyle : BYTE;
  2500. bLetterform : BYTE;
  2501. bMidline : BYTE;
  2502. bXHeight : BYTE;
  2503. end;
  2504. tagPANOSE = PANOSE;
  2505. TPANOSE = PANOSE;
  2506. PPANOSE = ^PANOSE;
  2507. EXTLOGFONTA = record
  2508. elfLogFont : LOGFONT;
  2509. elfFullName : array[0..(LF_FULLFACESIZE)-1] of AnsiCHAR;
  2510. elfStyle : array[0..(LF_FACESIZE)-1] of AnsiCHAR;
  2511. elfVersion : DWORD;
  2512. elfStyleSize : DWORD;
  2513. elfMatch : DWORD;
  2514. elfReserved : DWORD;
  2515. elfVendorId : array[0..(ELF_VENDOR_SIZE)-1] of BYTE;
  2516. elfCulture : DWORD;
  2517. elfPanose : PANOSE;
  2518. end;
  2519. LPEXTLOGFONTA = ^EXTLOGFONTA;
  2520. tagEXTLOGFONTA = EXTLOGFONTA;
  2521. TEXTLOGFONTA = EXTLOGFONTA;
  2522. PEXTLOGFONTA = LPEXTLOGFONTA;
  2523. EXTLOGFONTW = record
  2524. elfLogFont :LOGFONTW;
  2525. elfFullName :array[0..(LF_FULLFACESIZE) - 1] of WCHAR;
  2526. elfStyle :array[0..(LF_FACESIZE) - 1] of WCHAR;
  2527. elfVersion :DWORD;
  2528. elfStyleSize :DWORD;
  2529. elfMatch :DWORD;
  2530. elfReserved :DWORD;
  2531. elfVendorId :array[0..(ELF_VENDOR_SIZE) - 1] of Byte;
  2532. elfCulture :DWORD;
  2533. elfPanose :PANOSE;
  2534. end;
  2535. LPEXTLOGFONTW = ^EXTLOGFONTW;
  2536. tagEXTLOGFONTW = EXTLOGFONTW;
  2537. TEXTLOGFONTW = EXTLOGFONTW;
  2538. PEXTLOGFONTW = ^EXTLOGFONTW;
  2539. {$IFNDEF UNICODE}
  2540. EXTLOGFONT = EXTLOGFONTA;
  2541. LPEXTLOGFONT = ^EXTLOGFONTA;
  2542. tagEXTLOGFONT = EXTLOGFONTA;
  2543. TEXTLOGFONT = EXTLOGFONTA;
  2544. PEXTLOGFONT = ^EXTLOGFONTA;
  2545. {$ELSE}
  2546. EXTLOGFONT = EXTLOGFONTW;
  2547. LPEXTLOGFONT = ^EXTLOGFONTW;
  2548. tagEXTLOGFONT = EXTLOGFONTW;
  2549. TEXTLOGFONT = EXTLOGFONTW;
  2550. PEXTLOGFONT = ^EXTLOGFONTW;
  2551. {$ENDIF}
  2552. EMREXTCREATEFONTINDIRECTW = record
  2553. emr : EMR;
  2554. ihFont : DWORD;
  2555. elfw : EXTLOGFONT;
  2556. end;
  2557. tagEMREXTCREATEFONTINDIRECTW = EMREXTCREATEFONTINDIRECTW;
  2558. TEMREXTCREATEFONTINDIRECTW = EMREXTCREATEFONTINDIRECTW;
  2559. PEMREXTCREATEFONTINDIRECTW = ^EMREXTCREATEFONTINDIRECTW;
  2560. EXTLOGPEN = record
  2561. elpPenStyle : DWORD;
  2562. elpWidth : DWORD;
  2563. elpBrushStyle : UINT;
  2564. elpColor : COLORREF;
  2565. elpHatch : ULONG_PTR;
  2566. elpNumEntries : DWORD;
  2567. elpStyleEntry : array[0..0] of DWORD;
  2568. end;
  2569. tagEXTLOGPEN = EXTLOGPEN;
  2570. TEXTLOGPEN = EXTLOGPEN;
  2571. PEXTLOGPEN = ^EXTLOGPEN;
  2572. EMREXTCREATEPEN = record
  2573. emr : EMR;
  2574. ihPen : DWORD;
  2575. offBmi : DWORD;
  2576. cbBmi : DWORD;
  2577. offBits : DWORD;
  2578. cbBits : DWORD;
  2579. elp : EXTLOGPEN;
  2580. end;
  2581. tagEMREXTCREATEPEN = EMREXTCREATEPEN;
  2582. TEMREXTCREATEPEN = EMREXTCREATEPEN;
  2583. PEMREXTCREATEPEN = ^EMREXTCREATEPEN;
  2584. EMREXTFLOODFILL = record
  2585. emr : EMR;
  2586. ptlStart : POINTL;
  2587. crColor : COLORREF;
  2588. iMode : DWORD;
  2589. end;
  2590. tagEMREXTFLOODFILL = EMREXTFLOODFILL;
  2591. TEMREXTFLOODFILL = EMREXTFLOODFILL;
  2592. PEMREXTFLOODFILL = ^EMREXTFLOODFILL;
  2593. EMREXTSELECTCLIPRGN = record
  2594. emr : EMR;
  2595. cbRgnData : DWORD;
  2596. iMode : DWORD;
  2597. RgnData : array[0..0] of BYTE;
  2598. end;
  2599. tagEMREXTSELECTCLIPRGN = EMREXTSELECTCLIPRGN;
  2600. TEMREXTSELECTCLIPRGN = EMREXTSELECTCLIPRGN;
  2601. PEMREXTSELECTCLIPRGN = ^EMREXTSELECTCLIPRGN;
  2602. EMRTEXT = record
  2603. ptlReference : POINTL;
  2604. nChars : DWORD;
  2605. offString : DWORD;
  2606. fOptions : DWORD;
  2607. rcl : RECTL;
  2608. offDx : DWORD;
  2609. end;
  2610. tagEMRTEXT = EMRTEXT;
  2611. TEMRTEXT = EMRTEXT;
  2612. PEMRTEXT = ^EMRTEXT;
  2613. EMREXTTEXTOUTA = record
  2614. emr : EMR;
  2615. rclBounds : RECTL;
  2616. iGraphicsMode : DWORD;
  2617. exScale : Single;
  2618. eyScale : Single;
  2619. emrtext : EMRTEXT;
  2620. end;
  2621. tagEMREXTTEXTOUTA = EMREXTTEXTOUTA;
  2622. TEMREXTTEXTOUTA = EMREXTTEXTOUTA;
  2623. PEMREXTTEXTOUTA = ^EMREXTTEXTOUTA;
  2624. EMREXTTEXTOUTW = EMREXTTEXTOUTA;
  2625. TEMREXTTEXTOUTW = EMREXTTEXTOUTA;
  2626. PEMREXTTEXTOUTW = ^EMREXTTEXTOUTA;
  2627. EMRFILLPATH = record
  2628. emr : EMR;
  2629. rclBounds : RECTL;
  2630. end;
  2631. tagEMRFILLPATH = EMRFILLPATH;
  2632. TEMRFILLPATH = EMRFILLPATH;
  2633. PEMRFILLPATH = ^EMRFILLPATH;
  2634. EMRSTROKEANDFILLPATH = EMRFILLPATH;
  2635. TEMRSTROKEANDFILLPATH = EMRFILLPATH;
  2636. PEMRSTROKEANDFILLPATH = ^EMRFILLPATH;
  2637. EMRSTROKEPATH = EMRFILLPATH;
  2638. TEMRSTROKEPATH = EMRFILLPATH;
  2639. PEMRSTROKEPATH = ^EMRFILLPATH;
  2640. EMRFILLRGN = record
  2641. emr : EMR;
  2642. rclBounds : RECTL;
  2643. cbRgnData : DWORD;
  2644. ihBrush : DWORD;
  2645. RgnData : array[0..0] of BYTE;
  2646. end;
  2647. tagEMRFILLRGN = EMRFILLRGN;
  2648. TEMRFILLRGN = EMRFILLRGN;
  2649. PEMRFILLRGN = ^EMRFILLRGN;
  2650. EMRFORMAT = record
  2651. dSignature : DWORD;
  2652. nVersion : DWORD;
  2653. cbData : DWORD;
  2654. offData : DWORD;
  2655. end;
  2656. tagEMRFORMAT = EMRFORMAT;
  2657. TEMRFORMAT = EMRFORMAT;
  2658. PEMRFORMAT = ^EMRFORMAT;
  2659. SIZE = TSize;
  2660. LPSIZE = PSIZE;
  2661. tagSIZE = SIZE;
  2662. SIZEL = SIZE;
  2663. TSIZEL = SIZE;
  2664. PSIZEL = ^SIZE;
  2665. LPSIZEL = ^SIZE;
  2666. EMRFRAMERGN = record
  2667. emr : EMR;
  2668. rclBounds : RECTL;
  2669. cbRgnData : DWORD;
  2670. ihBrush : DWORD;
  2671. szlStroke : SIZEL;
  2672. RgnData : array[0..0] of BYTE;
  2673. end;
  2674. tagEMRFRAMERGN = EMRFRAMERGN;
  2675. TEMRFRAMERGN = EMRFRAMERGN;
  2676. PEMRFRAMERGN = ^EMRFRAMERGN;
  2677. EMRGDICOMMENT = record
  2678. emr : EMR;
  2679. cbData : DWORD;
  2680. Data : array[0..0] of BYTE;
  2681. end;
  2682. tagEMRGDICOMMENT = EMRGDICOMMENT;
  2683. TEMRGDICOMMENT = EMRGDICOMMENT;
  2684. PEMRGDICOMMENT = ^EMRGDICOMMENT;
  2685. EMRINVERTRGN = record
  2686. emr : EMR;
  2687. rclBounds : RECTL;
  2688. cbRgnData : DWORD;
  2689. RgnData : array[0..0] of BYTE;
  2690. end;
  2691. tagEMRINVERTRGN = EMRINVERTRGN;
  2692. TEMRINVERTRGN = EMRINVERTRGN;
  2693. PEMRINVERTRGN = ^EMRINVERTRGN;
  2694. EMRPAINTRGN = EMRINVERTRGN;
  2695. TEMRPAINTRGN = EMRINVERTRGN;
  2696. PEMRPAINTRGN = ^EMRINVERTRGN;
  2697. EMRLINETO = record
  2698. emr : EMR;
  2699. ptl : POINTL;
  2700. end;
  2701. tagEMRLINETO = EMRLINETO;
  2702. TEMRLINETO = EMRLINETO;
  2703. PEMRLINETO = ^EMRLINETO;
  2704. EMRMOVETOEX = EMRLINETO;
  2705. TEMRMOVETOEX = EMRLINETO;
  2706. PEMRMOVETOEX = ^EMRLINETO;
  2707. EMRMASKBLT = record
  2708. emr : EMR;
  2709. rclBounds : RECTL;
  2710. xDest : LONG;
  2711. yDest : LONG;
  2712. cxDest : LONG;
  2713. cyDest : LONG;
  2714. dwRop : DWORD;
  2715. xSrc : LONG;
  2716. ySrc : LONG;
  2717. xformSrc : XFORM;
  2718. crBkColorSrc : COLORREF;
  2719. iUsageSrc : DWORD;
  2720. offBmiSrc : DWORD;
  2721. cbBmiSrc : DWORD;
  2722. offBitsSrc : DWORD;
  2723. cbBitsSrc : DWORD;
  2724. xMask : LONG;
  2725. yMask : LONG;
  2726. iUsageMask : DWORD;
  2727. offBmiMask : DWORD;
  2728. cbBmiMask : DWORD;
  2729. offBitsMask : DWORD;
  2730. cbBitsMask : DWORD;
  2731. end;
  2732. tagEMRMASKBLT = EMRMASKBLT;
  2733. TEMRMASKBLT = EMRMASKBLT;
  2734. PEMRMASKBLT = ^EMRMASKBLT;
  2735. EMRMODIFYWORLDTRANSFORM = record
  2736. emr : EMR;
  2737. xform : XFORM;
  2738. iMode : DWORD;
  2739. end;
  2740. tagEMRMODIFYWORLDTRANSFORM = EMRMODIFYWORLDTRANSFORM;
  2741. TEMRMODIFYWORLDTRANSFORM = EMRMODIFYWORLDTRANSFORM;
  2742. PEMRMODIFYWORLDTRANSFORM = EMRMODIFYWORLDTRANSFORM;
  2743. EMROFFSETCLIPRGN = record
  2744. emr : EMR;
  2745. ptlOffset : POINTL;
  2746. end;
  2747. tagEMROFFSETCLIPRGN = EMROFFSETCLIPRGN;
  2748. TEMROFFSETCLIPRGN = EMROFFSETCLIPRGN;
  2749. PEMROFFSETCLIPRGN = ^EMROFFSETCLIPRGN;
  2750. EMRPLGBLT = record
  2751. emr : EMR;
  2752. rclBounds : RECTL;
  2753. aptlDest : array[0..2] of POINTL;
  2754. xSrc : LONG;
  2755. ySrc : LONG;
  2756. cxSrc : LONG;
  2757. cySrc : LONG;
  2758. xformSrc : XFORM;
  2759. crBkColorSrc : COLORREF;
  2760. iUsageSrc : DWORD;
  2761. offBmiSrc : DWORD;
  2762. cbBmiSrc : DWORD;
  2763. offBitsSrc : DWORD;
  2764. cbBitsSrc : DWORD;
  2765. xMask : LONG;
  2766. yMask : LONG;
  2767. iUsageMask : DWORD;
  2768. offBmiMask : DWORD;
  2769. cbBmiMask : DWORD;
  2770. offBitsMask : DWORD;
  2771. cbBitsMask : DWORD;
  2772. end;
  2773. tagEMRPLGBLT = EMRPLGBLT;
  2774. TEMRPLGBLT = EMRPLGBLT;
  2775. PEMRPLGBLT = ^EMRPLGBLT;
  2776. EMRPOLYDRAW = record
  2777. emr : EMR;
  2778. rclBounds : RECTL;
  2779. cptl : DWORD;
  2780. aptl : array[0..0] of POINTL;
  2781. abTypes : array[0..0] of BYTE;
  2782. end;
  2783. tagEMRPOLYDRAW = EMRPOLYDRAW;
  2784. TEMRPOLYDRAW = EMRPOLYDRAW;
  2785. PEMRPOLYDRAW = ^EMRPOLYDRAW;
  2786. EMRPOLYDRAW16 = record
  2787. emr : EMR;
  2788. rclBounds : RECTL;
  2789. cpts : DWORD;
  2790. apts : array[0..0] of POINTS;
  2791. abTypes : array[0..0] of BYTE;
  2792. end;
  2793. tagEMRPOLYDRAW16 = EMRPOLYDRAW16;
  2794. TEMRPOLYDRAW16 = EMRPOLYDRAW16;
  2795. PEMRPOLYDRAW16 = ^EMRPOLYDRAW16;
  2796. EMRPOLYLINE = record
  2797. emr : EMR;
  2798. rclBounds : RECTL;
  2799. cptl : DWORD;
  2800. aptl : array[0..0] of POINTL;
  2801. end;
  2802. tagEMRPOLYLINE = EMRPOLYLINE;
  2803. TEMRPOLYLINE = EMRPOLYLINE;
  2804. PEMRPOLYLINE = ^EMRPOLYLINE;
  2805. EMRPOLYBEZIER = EMRPOLYLINE;
  2806. TEMRPOLYBEZIER = EMRPOLYLINE;
  2807. PEMRPOLYBEZIER = ^EMRPOLYLINE;
  2808. EMRPOLYGON = EMRPOLYLINE;
  2809. TEMRPOLYGON = EMRPOLYLINE;
  2810. PEMRPOLYGON = ^EMRPOLYLINE;
  2811. EMRPOLYBEZIERTO = EMRPOLYLINE;
  2812. TEMRPOLYBEZIERTO = EMRPOLYLINE;
  2813. PEMRPOLYBEZIERTO = ^EMRPOLYLINE;
  2814. EMRPOLYLINETO = EMRPOLYLINE;
  2815. TEMRPOLYLINETO = EMRPOLYLINE;
  2816. PEMRPOLYLINETO = ^EMRPOLYLINE;
  2817. EMRPOLYLINE16 = record
  2818. emr : EMR;
  2819. rclBounds : RECTL;
  2820. cpts : DWORD;
  2821. apts : array[0..0] of POINTL;
  2822. end;
  2823. tagEMRPOLYLINE16 = EMRPOLYLINE16;
  2824. TEMRPOLYLINE16 = EMRPOLYLINE16;
  2825. PEMRPOLYLINE16 = ^EMRPOLYLINE16;
  2826. EMRPOLYBEZIER16 = EMRPOLYLINE16;
  2827. TEMRPOLYBEZIER16 = EMRPOLYLINE16;
  2828. PEMRPOLYBEZIER16 = ^EMRPOLYLINE16;
  2829. EMRPOLYGON16 = EMRPOLYLINE16;
  2830. TEMRPOLYGON16 = EMRPOLYLINE16;
  2831. PEMRPOLYGON16 = ^EMRPOLYLINE16;
  2832. EMRPOLYBEZIERTO16 = EMRPOLYLINE16;
  2833. TEMRPOLYBEZIERTO16 = EMRPOLYLINE16;
  2834. PEMRPOLYBEZIERTO16 = ^EMRPOLYLINE16;
  2835. EMRPOLYLINETO16 = EMRPOLYLINE16;
  2836. TEMRPOLYLINETO16 = EMRPOLYLINE16;
  2837. PEMRPOLYLINETO16 = ^EMRPOLYLINE16;
  2838. EMRPOLYPOLYLINE = record
  2839. emr : EMR;
  2840. rclBounds : RECTL;
  2841. nPolys : DWORD;
  2842. cptl : DWORD;
  2843. aPolyCounts : array[0..0] of DWORD;
  2844. aptl : array[0..0] of POINTL;
  2845. end;
  2846. tagEMRPOLYPOLYLINE = EMRPOLYPOLYLINE;
  2847. TEMRPOLYPOLYLINE = EMRPOLYPOLYLINE;
  2848. PEMRPOLYPOLYLINE = ^EMRPOLYPOLYLINE;
  2849. EMRPOLYPOLYGON = EMRPOLYPOLYLINE;
  2850. TEMRPOLYPOLYGON = EMRPOLYPOLYLINE;
  2851. PEMRPOLYPOLYGON = ^EMRPOLYPOLYLINE;
  2852. EMRPOLYPOLYLINE16 = record
  2853. emr : EMR;
  2854. rclBounds : RECTL;
  2855. nPolys : DWORD;
  2856. cpts : DWORD;
  2857. aPolyCounts : array[0..0] of DWORD;
  2858. apts : array[0..0] of POINTS;
  2859. end;
  2860. tagEMRPOLYPOLYLINE16 = EMRPOLYPOLYLINE16;
  2861. TEMRPOLYPOLYLINE16 = EMRPOLYPOLYLINE16;
  2862. PEMRPOLYPOLYLINE16 = ^EMRPOLYPOLYLINE16;
  2863. EMRPOLYPOLYGON16 = EMRPOLYPOLYLINE16;
  2864. TEMRPOLYPOLYGON16 = EMRPOLYPOLYLINE16;
  2865. PEMRPOLYPOLYGON16 = ^EMRPOLYPOLYLINE16;
  2866. EMRPOLYTEXTOUTA = record
  2867. emr : EMR;
  2868. rclBounds : RECTL;
  2869. iGraphicsMode : DWORD;
  2870. exScale : Single;
  2871. eyScale : Single;
  2872. cStrings : LONG;
  2873. aemrtext : array[0..0] of EMRTEXT;
  2874. end;
  2875. tagEMRPOLYTEXTOUTA = EMRPOLYTEXTOUTA;
  2876. TEMRPOLYTEXTOUTA = EMRPOLYTEXTOUTA;
  2877. PEMRPOLYTEXTOUTA = ^EMRPOLYTEXTOUTA;
  2878. EMRPOLYTEXTOUTW = EMRPOLYTEXTOUTA;
  2879. TEMRPOLYTEXTOUTW = EMRPOLYTEXTOUTA;
  2880. PEMRPOLYTEXTOUTW = ^EMRPOLYTEXTOUTA;
  2881. EMRRESIZEPALETTE = record
  2882. emr : EMR;
  2883. ihPal : DWORD;
  2884. cEntries : DWORD;
  2885. end;
  2886. tagEMRRESIZEPALETTE = EMRRESIZEPALETTE;
  2887. TEMRRESIZEPALETTE = EMRRESIZEPALETTE;
  2888. PEMRRESIZEPALETTE = ^EMRRESIZEPALETTE;
  2889. EMRRESTOREDC = record
  2890. emr : EMR;
  2891. iRelative : LONG;
  2892. end;
  2893. tagEMRRESTOREDC = EMRRESTOREDC;
  2894. TEMRRESTOREDC = EMRRESTOREDC;
  2895. PEMRRESTOREDC = ^EMRRESTOREDC;
  2896. EMRROUNDRECT = record
  2897. emr : EMR;
  2898. rclBox : RECTL;
  2899. szlCorner : SIZEL;
  2900. end;
  2901. tagEMRROUNDRECT = EMRROUNDRECT;
  2902. TEMRROUNDRECT = EMRROUNDRECT;
  2903. PEMRROUNDRECT = ^EMRROUNDRECT;
  2904. EMRSCALEVIEWPORTEXTEX = record
  2905. emr : EMR;
  2906. xNum : LONG;
  2907. xDenom : LONG;
  2908. yNum : LONG;
  2909. yDenom : LONG;
  2910. end;
  2911. tagEMRSCALEVIEWPORTEXTEX = EMRSCALEVIEWPORTEXTEX;
  2912. TEMRSCALEVIEWPORTEXTEX = EMRSCALEVIEWPORTEXTEX;
  2913. PEMRSCALEVIEWPORTEXTEX = ^EMRSCALEVIEWPORTEXTEX;
  2914. EMRSCALEWINDOWEXTEX = EMRSCALEVIEWPORTEXTEX;
  2915. TEMRSCALEWINDOWEXTEX = EMRSCALEVIEWPORTEXTEX;
  2916. PEMRSCALEWINDOWEXTEX = ^EMRSCALEVIEWPORTEXTEX;
  2917. EMRSELECTCOLORSPACE = record
  2918. emr : EMR;
  2919. ihCS : DWORD;
  2920. end;
  2921. tagEMRSELECTCOLORSPACE = EMRSELECTCOLORSPACE;
  2922. TEMRSELECTCOLORSPACE = EMRSELECTCOLORSPACE;
  2923. PEMRSELECTCOLORSPACE = ^EMRSELECTCOLORSPACE;
  2924. EMRDELETECOLORSPACE = EMRSELECTCOLORSPACE;
  2925. TEMRDELETECOLORSPACE = EMRSELECTCOLORSPACE;
  2926. PEMRDELETECOLORSPACE = ^EMRSELECTCOLORSPACE;
  2927. EMRSELECTOBJECT = record
  2928. emr : EMR;
  2929. ihObject : DWORD;
  2930. end;
  2931. tagEMRSELECTOBJECT = EMRSELECTOBJECT;
  2932. TEMRSELECTOBJECT = EMRSELECTOBJECT;
  2933. PEMRSELECTOBJECT = ^EMRSELECTOBJECT;
  2934. EMRDELETEOBJECT = EMRSELECTOBJECT;
  2935. TEMRDELETEOBJECT = EMRSELECTOBJECT;
  2936. PEMRDELETEOBJECT = ^EMRSELECTOBJECT;
  2937. EMRSELECTPALETTE = record
  2938. emr : EMR;
  2939. ihPal : DWORD;
  2940. end;
  2941. tagEMRSELECTPALETTE = EMRSELECTPALETTE;
  2942. TEMRSELECTPALETTE = EMRSELECTPALETTE;
  2943. PEMRSELECTPALETTE = ^EMRSELECTPALETTE;
  2944. EMRSETARCDIRECTION = record
  2945. emr : EMR;
  2946. iArcDirection : DWORD;
  2947. end;
  2948. tagEMRSETARCDIRECTION = EMRSETARCDIRECTION;
  2949. TEMRSETARCDIRECTION = EMRSETARCDIRECTION;
  2950. PEMRSETARCDIRECTION = ^EMRSETARCDIRECTION;
  2951. EMRSETBKCOLOR = record
  2952. emr : EMR;
  2953. crColor : COLORREF;
  2954. end;
  2955. tagEMRSETTEXTCOLOR = EMRSETBKCOLOR;
  2956. TEMRSETBKCOLOR = EMRSETBKCOLOR;
  2957. PEMRSETBKCOLOR = ^EMRSETBKCOLOR;
  2958. EMRSETTEXTCOLOR = EMRSETBKCOLOR;
  2959. TEMRSETTEXTCOLOR = EMRSETBKCOLOR;
  2960. PEMRSETTEXTCOLOR = ^EMRSETBKCOLOR;
  2961. EMRSETCOLORADJUSTMENT = record
  2962. emr : EMR;
  2963. ColorAdjustment : COLORADJUSTMENT;
  2964. end;
  2965. tagEMRSETCOLORADJUSTMENT = EMRSETCOLORADJUSTMENT;
  2966. TEMRSETCOLORADJUSTMENT = EMRSETCOLORADJUSTMENT;
  2967. PEMRSETCOLORADJUSTMENT = ^EMRSETCOLORADJUSTMENT;
  2968. EMRSETDIBITSTODEVICE = record
  2969. emr : EMR;
  2970. rclBounds : RECTL;
  2971. xDest : LONG;
  2972. yDest : LONG;
  2973. xSrc : LONG;
  2974. ySrc : LONG;
  2975. cxSrc : LONG;
  2976. cySrc : LONG;
  2977. offBmiSrc : DWORD;
  2978. cbBmiSrc : DWORD;
  2979. offBitsSrc : DWORD;
  2980. cbBitsSrc : DWORD;
  2981. iUsageSrc : DWORD;
  2982. iStartScan : DWORD;
  2983. cScans : DWORD;
  2984. end;
  2985. tagEMRSETDIBITSTODEVICE = EMRSETDIBITSTODEVICE;
  2986. TEMRSETDIBITSTODEVICE = EMRSETDIBITSTODEVICE;
  2987. PEMRSETDIBITSTODEVICE = ^EMRSETDIBITSTODEVICE;
  2988. EMRSETMAPPERFLAGS = record
  2989. emr : EMR;
  2990. dwFlags : DWORD;
  2991. end;
  2992. tagEMRSETMAPPERFLAGS = EMRSETMAPPERFLAGS;
  2993. TEMRSETMAPPERFLAGS = EMRSETMAPPERFLAGS;
  2994. PEMRSETMAPPERFLAGS = ^EMRSETMAPPERFLAGS;
  2995. EMRSETMITERLIMIT = record
  2996. emr : EMR;
  2997. eMiterLimit : Single;
  2998. end;
  2999. tagEMRSETMITERLIMIT = EMRSETMITERLIMIT;
  3000. TEMRSETMITERLIMIT = EMRSETMITERLIMIT;
  3001. PEMRSETMITERLIMIT = ^EMRSETMITERLIMIT;
  3002. EMRSETPALETTEENTRIES = record
  3003. emr : EMR;
  3004. ihPal : DWORD;
  3005. iStart : DWORD;
  3006. cEntries : DWORD;
  3007. aPalEntries : array[0..0] of PALETTEENTRY;
  3008. end;
  3009. tagEMRSETPALETTEENTRIES = EMRSETPALETTEENTRIES;
  3010. TEMRSETPALETTEENTRIES = EMRSETPALETTEENTRIES;
  3011. PEMRSETPALETTEENTRIES = ^EMRSETPALETTEENTRIES;
  3012. EMRSETPIXELV = record
  3013. emr : EMR;
  3014. ptlPixel : POINTL;
  3015. crColor : COLORREF;
  3016. end;
  3017. tagEMRSETPIXELV = EMRSETPIXELV;
  3018. TEMRSETPIXELV = EMRSETPIXELV;
  3019. PEMRSETPIXELV = ^EMRSETPIXELV;
  3020. EMRSETVIEWPORTEXTEX = record
  3021. emr : EMR;
  3022. szlExtent : SIZEL;
  3023. end;
  3024. tagEMRSETVIEWPORTEXTEX = EMRSETVIEWPORTEXTEX;
  3025. TEMRSETVIEWPORTEXTEX = EMRSETVIEWPORTEXTEX;
  3026. PEMRSETVIEWPORTEXTEX = ^EMRSETVIEWPORTEXTEX;
  3027. EMRSETWINDOWEXTEX = EMRSETVIEWPORTEXTEX;
  3028. TEMRSETWINDOWEXTEX = EMRSETVIEWPORTEXTEX;
  3029. PEMRSETWINDOWEXTEX = ^EMRSETVIEWPORTEXTEX;
  3030. EMRSETVIEWPORTORGEX = record
  3031. emr : EMR;
  3032. ptlOrigin : POINTL;
  3033. end;
  3034. tagEMRSETVIEWPORTORGEX = EMRSETVIEWPORTORGEX;
  3035. TEMRSETVIEWPORTORGEX = EMRSETVIEWPORTORGEX;
  3036. PEMRSETVIEWPORTORGEX = ^EMRSETVIEWPORTORGEX;
  3037. EMRSETWINDOWORGEX = EMRSETVIEWPORTORGEX;
  3038. TEMRSETWINDOWORGEX = EMRSETVIEWPORTORGEX;
  3039. PEMRSETWINDOWORGEX = ^EMRSETVIEWPORTORGEX;
  3040. EMRSETBRUSHORGEX = EMRSETVIEWPORTORGEX;
  3041. TEMRSETBRUSHORGEX = EMRSETVIEWPORTORGEX;
  3042. PEMRSETBRUSHORGEX = ^EMRSETVIEWPORTORGEX;
  3043. EMRSETWORLDTRANSFORM = record
  3044. emr : EMR;
  3045. xform : XFORM;
  3046. end;
  3047. tagEMRSETWORLDTRANSFORM = EMRSETWORLDTRANSFORM;
  3048. TEMRSETWORLDTRANSFORM = EMRSETWORLDTRANSFORM;
  3049. PEMRSETWORLDTRANSFORM = ^EMRSETWORLDTRANSFORM;
  3050. EMRSTRETCHBLT = record
  3051. emr : EMR;
  3052. rclBounds : RECTL;
  3053. xDest : LONG;
  3054. yDest : LONG;
  3055. cxDest : LONG;
  3056. cyDest : LONG;
  3057. dwRop : DWORD;
  3058. xSrc : LONG;
  3059. ySrc : LONG;
  3060. xformSrc : XFORM;
  3061. crBkColorSrc : COLORREF;
  3062. iUsageSrc : DWORD;
  3063. offBmiSrc : DWORD;
  3064. cbBmiSrc : DWORD;
  3065. offBitsSrc : DWORD;
  3066. cbBitsSrc : DWORD;
  3067. cxSrc : LONG;
  3068. cySrc : LONG;
  3069. end;
  3070. tagEMRSTRETCHBLT = EMRSTRETCHBLT;
  3071. TEMRSTRETCHBLT = EMRSTRETCHBLT;
  3072. PEMRSTRETCHBLT = ^EMRSTRETCHBLT;
  3073. EMRSTRETCHDIBITS = record
  3074. emr : EMR;
  3075. rclBounds : RECTL;
  3076. xDest : LONG;
  3077. yDest : LONG;
  3078. xSrc : LONG;
  3079. ySrc : LONG;
  3080. cxSrc : LONG;
  3081. cySrc : LONG;
  3082. offBmiSrc : DWORD;
  3083. cbBmiSrc : DWORD;
  3084. offBitsSrc : DWORD;
  3085. cbBitsSrc : DWORD;
  3086. iUsageSrc : DWORD;
  3087. dwRop : DWORD;
  3088. cxDest : LONG;
  3089. cyDest : LONG;
  3090. end;
  3091. tagEMRSTRETCHDIBITS = EMRSTRETCHDIBITS;
  3092. TEMRSTRETCHDIBITS = EMRSTRETCHDIBITS;
  3093. PEMRSTRETCHDIBITS = ^EMRSTRETCHDIBITS;
  3094. EMRABORTPATH = record
  3095. emr : EMR;
  3096. end;
  3097. TEMRABORTPATH = EMRABORTPATH;
  3098. PEMRABORTPATH = ^EMRABORTPATH;
  3099. tagABORTPATH = EMRABORTPATH;
  3100. TABORTPATH = EMRABORTPATH;
  3101. EMRBEGINPATH = EMRABORTPATH;
  3102. TEMRBEGINPATH = EMRABORTPATH;
  3103. PEMRBEGINPATH = ^EMRABORTPATH;
  3104. EMRENDPATH = EMRABORTPATH;
  3105. TEMRENDPATH = EMRABORTPATH;
  3106. PEMRENDPATH = ^EMRABORTPATH;
  3107. EMRCLOSEFIGURE = EMRABORTPATH;
  3108. TEMRCLOSEFIGURE = EMRABORTPATH;
  3109. PEMRCLOSEFIGURE = ^EMRABORTPATH;
  3110. EMRFLATTENPATH = EMRABORTPATH;
  3111. TEMRFLATTENPATH = EMRABORTPATH;
  3112. PEMRFLATTENPATH = ^EMRABORTPATH;
  3113. EMRWIDENPATH = EMRABORTPATH;
  3114. TEMRWIDENPATH = EMRABORTPATH;
  3115. PEMRWIDENPATH = ^EMRABORTPATH;
  3116. EMRSETMETARGN = EMRABORTPATH;
  3117. TEMRSETMETARGN = EMRABORTPATH;
  3118. PEMRSETMETARGN = ^EMRABORTPATH;
  3119. EMRSAVEDC = EMRABORTPATH;
  3120. TEMRSAVEDC = EMRABORTPATH;
  3121. PEMRSAVEDC = ^EMRABORTPATH;
  3122. EMRREALIZEPALETTE = EMRABORTPATH;
  3123. TEMRREALIZEPALETTE = EMRABORTPATH;
  3124. PEMRREALIZEPALETTE = ^EMRABORTPATH;
  3125. EMRSELECTCLIPPATH = record
  3126. emr : EMR;
  3127. iMode : DWORD;
  3128. end;
  3129. tagEMRSELECTCLIPPATH = EMRSELECTCLIPPATH;
  3130. TEMRSELECTCLIPPATH = EMRSELECTCLIPPATH;
  3131. PEMRSELECTCLIPPATH = ^EMRSELECTCLIPPATH;
  3132. EMRSETBKMODE = EMRSELECTCLIPPATH;
  3133. TEMRSETBKMODE = EMRSELECTCLIPPATH;
  3134. PEMRSETBKMODE = ^EMRSELECTCLIPPATH;
  3135. EMRSETMAPMODE = EMRSELECTCLIPPATH;
  3136. TEMRSETMAPMODE = EMRSELECTCLIPPATH;
  3137. PEMRSETMAPMODE = ^EMRSELECTCLIPPATH;
  3138. EMRSETPOLYFILLMODE = EMRSELECTCLIPPATH;
  3139. TEMRSETPOLYFILLMODE = EMRSELECTCLIPPATH;
  3140. PEMRSETPOLYFILLMODE = ^EMRSELECTCLIPPATH;
  3141. EMRSETROP2 = EMRSELECTCLIPPATH;
  3142. TEMRSETROP2 = EMRSELECTCLIPPATH;
  3143. PEMRSETROP2 = ^EMRSELECTCLIPPATH;
  3144. EMRSETSTRETCHBLTMODE = EMRSELECTCLIPPATH;
  3145. TEMRSETSTRETCHBLTMODE = EMRSELECTCLIPPATH;
  3146. PEMRSETSTRETCHBLTMODE = ^EMRSELECTCLIPPATH;
  3147. EMRSETTEXTALIGN = EMRSELECTCLIPPATH;
  3148. TEMRSETTEXTALIGN = EMRSELECTCLIPPATH;
  3149. PEMRSETTEXTALIGN = ^EMRSELECTCLIPPATH;
  3150. EMRENABLEICM = EMRSELECTCLIPPATH;
  3151. TEMRENABLEICM = EMRSELECTCLIPPATH;
  3152. PEMRENABLEICM = ^EMRSELECTCLIPPATH;
  3153. NMHDR = record
  3154. hwndFrom : HWND;
  3155. idFrom : UINT_PTR;
  3156. code : UINT;
  3157. end;
  3158. tagNMHDR = NMHDR;
  3159. TNMHDR = NMHDR;
  3160. PNMHDR = ^NMHDR;
  3161. ENCORRECTTEXT = record
  3162. nmhdr : NMHDR;
  3163. chrg : CHARRANGE;
  3164. seltyp : WORD;
  3165. end;
  3166. _encorrecttext = ENCORRECTTEXT;
  3167. Tencorrecttext = ENCORRECTTEXT;
  3168. Pencorrecttext = ^ENCORRECTTEXT;
  3169. ENDROPFILES = record
  3170. nmhdr : NMHDR;
  3171. hDrop : HANDLE;
  3172. cp : LONG;
  3173. fProtected : WINBOOL;
  3174. end;
  3175. _endropfiles = ENDROPFILES;
  3176. Tendropfiles = ENDROPFILES;
  3177. Pendropfiles = ^ENDROPFILES;
  3178. ENSAVECLIPBOARD = record
  3179. nmhdr : NMHDR;
  3180. cObjectCount : LONG;
  3181. cch : LONG;
  3182. end;
  3183. TENSAVECLIPBOARD = ENSAVECLIPBOARD;
  3184. PENSAVECLIPBOARD = ^ENSAVECLIPBOARD;
  3185. ENOLEOPFAILED = record
  3186. nmhdr : NMHDR;
  3187. iob : LONG;
  3188. lOper : LONG;
  3189. hr : HRESULT;
  3190. end;
  3191. TENOLEOPFAILED = ENOLEOPFAILED;
  3192. PENOLEOPFAILED = ^ENOLEOPFAILED;
  3193. ENHMETAHEADER = record
  3194. iType : DWORD;
  3195. nSize : DWORD;
  3196. rclBounds : RECTL;
  3197. rclFrame : RECTL;
  3198. dSignature : DWORD;
  3199. nVersion : DWORD;
  3200. nBytes : DWORD;
  3201. nRecords : DWORD;
  3202. nHandles : WORD;
  3203. sReserved : WORD;
  3204. nDescription : DWORD;
  3205. offDescription : DWORD;
  3206. nPalEntries : DWORD;
  3207. szlDevice : SIZEL;
  3208. szlMillimeters : SIZEL;
  3209. // #if (WINVER >= 0x0400)
  3210. cbPixelFormat : DWORD;
  3211. offPixelFormat : DWORD;
  3212. bOpenGL : DWORD;
  3213. // #endif
  3214. // #if (WINVER >= 0x0500)
  3215. szlMicrometers : SIZEL;
  3216. // #endif
  3217. end;
  3218. LPENHMETAHEADER = ^ENHMETAHEADER;
  3219. tagENHMETAHEADER = ENHMETAHEADER;
  3220. TENHMETAHEADER = ENHMETAHEADER;
  3221. PENHMETAHEADER = ^ENHMETAHEADER;
  3222. ENHMETARECORD = record
  3223. iType : DWORD;
  3224. nSize : DWORD;
  3225. dParm : array[0..0] of DWORD;
  3226. end;
  3227. LPENHMETARECORD = ^ENHMETARECORD;
  3228. tagENHMETARECORD = ENHMETARECORD;
  3229. TENHMETARECORD = ENHMETARECORD;
  3230. PENHMETARECORD = ^ENHMETARECORD;
  3231. ENPROTECTED = record
  3232. nmhdr : NMHDR;
  3233. msg : UINT;
  3234. wParam : WPARAM;
  3235. lParam : LPARAM;
  3236. chrg : CHARRANGE;
  3237. end;
  3238. _enprotected = ENPROTECTED;
  3239. Tenprotected = ENPROTECTED;
  3240. Penprotected = ^ENPROTECTED;
  3241. SERVICE_STATUS = record
  3242. dwServiceType : DWORD;
  3243. dwCurrentState : DWORD;
  3244. dwControlsAccepted : DWORD;
  3245. dwWin32ExitCode : DWORD;
  3246. dwServiceSpecificExitCode : DWORD;
  3247. dwCheckPoint : DWORD;
  3248. dwWaitHint : DWORD;
  3249. end;
  3250. LPSERVICE_STATUS = ^SERVICE_STATUS;
  3251. _SERVICE_STATUS = SERVICE_STATUS;
  3252. TSERVICESTATUS = SERVICE_STATUS;
  3253. PSERVICESTATUS = ^SERVICE_STATUS;
  3254. ENUM_SERVICE_STATUS = record
  3255. lpServiceName : LPTSTR;
  3256. lpDisplayName : LPTSTR;
  3257. ServiceStatus : SERVICE_STATUS;
  3258. end;
  3259. LPENUM_SERVICE_STATUS = ^ENUM_SERVICE_STATUS;
  3260. _ENUM_SERVICE_STATUS = ENUM_SERVICE_STATUS;
  3261. TENUMSERVICESTATUS = ENUM_SERVICE_STATUS;
  3262. PENUMSERVICESTATUS = ^ENUM_SERVICE_STATUS;
  3263. ENUMLOGFONT = record
  3264. elfLogFont : LOGFONT;
  3265. elfFullName : array[0..(LF_FULLFACESIZE)-1] of TCHAR;
  3266. elfStyle : array[0..(LF_FACESIZE)-1] of TCHAR;
  3267. end;
  3268. tagENUMLOGFONT = ENUMLOGFONT;
  3269. TENUMLOGFONT = ENUMLOGFONT;
  3270. PENUMLOGFONT = ^ENUMLOGFONT;
  3271. ENUMLOGFONTEX = record
  3272. elfLogFont : LOGFONT;
  3273. elfFullName : array[0..(LF_FULLFACESIZE)-1] of TCHAR;
  3274. elfStyle : array[0..(LF_FACESIZE)-1] of TCHAR;
  3275. elfScript : array[0..(LF_FACESIZE)-1] of TCHAR;
  3276. end;
  3277. tagENUMLOGFONTEX = ENUMLOGFONTEX;
  3278. TENUMLOGFONTEX = ENUMLOGFONTEX;
  3279. PENUMLOGFONTEX = ^ENUMLOGFONTEX;
  3280. {
  3281. Then follow:
  3282. TCHAR SourceName[]
  3283. TCHAR Computername[]
  3284. SID UserSid
  3285. TCHAR Strings[]
  3286. BYTE Data[]
  3287. CHAR Pad[]
  3288. DWORD Length;
  3289. }
  3290. EVENTLOGRECORD = record
  3291. Length : DWORD;
  3292. Reserved : DWORD;
  3293. RecordNumber : DWORD;
  3294. TimeGenerated : DWORD;
  3295. TimeWritten : DWORD;
  3296. EventID : DWORD;
  3297. EventType : WORD;
  3298. NumStrings : WORD;
  3299. EventCategory : WORD;
  3300. ReservedFlags : WORD;
  3301. ClosingRecordNumber : DWORD;
  3302. StringOffset : DWORD;
  3303. UserSidLength : DWORD;
  3304. UserSidOffset : DWORD;
  3305. DataLength : DWORD;
  3306. DataOffset : DWORD;
  3307. end;
  3308. _EVENTLOGRECORD = EVENTLOGRECORD;
  3309. TEVENTLOGRECORD = EVENTLOGRECORD;
  3310. PEVENTLOGRECORD = ^EVENTLOGRECORD;
  3311. EVENTMSG = record
  3312. message : UINT;
  3313. paramL : UINT;
  3314. paramH : UINT;
  3315. time : DWORD;
  3316. hwnd : HWND;
  3317. end;
  3318. tagEVENTMSG = EVENTMSG;
  3319. TEVENTMSG = EVENTMSG;
  3320. PEVENTMSG = ^EVENTMSG;
  3321. EXCEPTION_POINTERS = record
  3322. ExceptionRecord : PEXCEPTION_RECORD;
  3323. ContextRecord : PCONTEXT;
  3324. end;
  3325. LPEXCEPTION_POINTERS = ^EXCEPTION_POINTERS;
  3326. PEXCEPTION_POINTERS = ^EXCEPTION_POINTERS;
  3327. _EXCEPTION_POINTERS = EXCEPTION_POINTERS;
  3328. TEXCEPTIONPOINTERS = EXCEPTION_POINTERS;
  3329. PEXCEPTIONPOINTERS = ^EXCEPTION_POINTERS;
  3330. EXT_BUTTON = record
  3331. idCommand : WORD;
  3332. idsHelp : WORD;
  3333. fsStyle : WORD;
  3334. end;
  3335. LPEXT_BUTTON = ^EXT_BUTTON;
  3336. _EXT_BUTTON = EXT_BUTTON;
  3337. TEXTBUTTON = EXT_BUTTON;
  3338. PEXTBUTTON = ^EXT_BUTTON;
  3339. FILTERKEYS = record
  3340. cbSize : UINT;
  3341. dwFlags : DWORD;
  3342. iWaitMSec : DWORD;
  3343. iDelayMSec : DWORD;
  3344. iRepeatMSec : DWORD;
  3345. iBounceMSec : DWORD;
  3346. end;
  3347. tagFILTERKEYS = FILTERKEYS;
  3348. TFILTERKEYS = FILTERKEYS;
  3349. PFILTERKEYS = ^FILTERKEYS;
  3350. FIND_NAME_BUFFER = record
  3351. length : UCHAR;
  3352. access_control : UCHAR;
  3353. frame_control : UCHAR;
  3354. destination_addr : array[0..5] of UCHAR;
  3355. source_addr : array[0..5] of UCHAR;
  3356. routing_info : array[0..17] of UCHAR;
  3357. end;
  3358. _FIND_NAME_BUFFER = FIND_NAME_BUFFER;
  3359. TFINDNAMEBUFFER = FIND_NAME_BUFFER;
  3360. PFINDNAMEBUFFER = ^FIND_NAME_BUFFER;
  3361. FIND_NAME_HEADER = record
  3362. node_count : WORD;
  3363. reserved : UCHAR;
  3364. unique_group : UCHAR;
  3365. end;
  3366. _FIND_NAME_HEADER = FIND_NAME_HEADER;
  3367. TFINDNAMEHEADER = FIND_NAME_HEADER;
  3368. PFINDNAMEHEADER = ^FIND_NAME_HEADER;
  3369. FINDREPLACE = record
  3370. lStructSize : DWORD;
  3371. hwndOwner : HWND;
  3372. hInstance : HINST;
  3373. Flags : DWORD;
  3374. lpstrFindWhat : LPTSTR;
  3375. lpstrReplaceWith : LPTSTR;
  3376. wFindWhatLen : WORD;
  3377. wReplaceWithLen : WORD;
  3378. lCustData : LPARAM;
  3379. lpfnHook : LPFRHOOKPROC;
  3380. lpTemplateName : LPCTSTR;
  3381. end;
  3382. LPFINDREPLACE = ^FINDREPLACE;
  3383. TFINDREPLACE = FINDREPLACE;
  3384. PFINDREPLACE = ^FINDREPLACE;
  3385. {FINDTEXT = record conflicts with FindText function }
  3386. TFINDTEXT = record
  3387. chrg : CHARRANGE;
  3388. lpstrText : LPSTR;
  3389. end;
  3390. _findtext = TFINDTEXT;
  3391. Pfindtext = ^TFINDTEXT;
  3392. FINDTEXTEX = record
  3393. chrg : CHARRANGE;
  3394. lpstrText : LPSTR;
  3395. chrgText : CHARRANGE;
  3396. end;
  3397. _findtextex = FINDTEXTEX;
  3398. Tfindtextex = FINDTEXTEX;
  3399. Pfindtextex = ^FINDTEXTEX;
  3400. FMS_GETDRIVEINFOA = record
  3401. dwTotalSpace : DWORD;
  3402. dwFreeSpace : DWORD;
  3403. szPath : array[0..259] of AnsiCHAR;
  3404. szVolume : array[0..13] of AnsiCHAR;
  3405. szShare : array[0..127] of AnsiCHAR;
  3406. end;
  3407. _FMS_GETDRIVEINFOA = FMS_GETDRIVEINFOA;
  3408. TFMSGETDRIVEINFOA = FMS_GETDRIVEINFOA;
  3409. PFMSGETDRIVEINFOA = ^FMS_GETDRIVEINFOA;
  3410. FMS_GETDRIVEINFOW = record
  3411. dwTotalSpace : DWORD;
  3412. dwFreeSpace : DWORD;
  3413. szPath : array[0..259] of WCHAR;
  3414. szVolume : array[0..13] of WCHAR;
  3415. szShare : array[0..127] of WCHAR;
  3416. end;
  3417. _FMS_GETDRIVEINFOW = FMS_GETDRIVEINFOW;
  3418. TFMSGETDRIVEINFOW = FMS_GETDRIVEINFOW;
  3419. PFMSGETDRIVEINFOW = ^FMS_GETDRIVEINFOW;
  3420. {$ifdef Unicode}
  3421. _FMS_GETDRIVEINFO = FMS_GETDRIVEINFOW;
  3422. TFMSGETDRIVEINFO = FMS_GETDRIVEINFOW;
  3423. PFMSGETDRIVEINFO = PFMSGETDRIVEINFOW;
  3424. FMS_GETDRIVEINFO = FMS_GETDRIVEINFOW;
  3425. {$else}
  3426. _FMS_GETDRIVEINFO = FMS_GETDRIVEINFOA;
  3427. TFMSGETDRIVEINFO = FMS_GETDRIVEINFOA;
  3428. PFMSGETDRIVEINFO = PFMSGETDRIVEINFOA;
  3429. FMS_GETDRIVEINFO = FMS_GETDRIVEINFOA;
  3430. {$endif}
  3431. FMS_GETFILESELA = record
  3432. ftTime : FILETIME;
  3433. dwSize : DWORD;
  3434. bAttr : BYTE;
  3435. szName : array[0..259] of AnsiCHAR;
  3436. end;
  3437. _FMS_GETFILESELA = FMS_GETFILESELA;
  3438. TFMSGETFILESELA = FMS_GETFILESELA;
  3439. PFMSGETFILESELA = ^FMS_GETFILESELA;
  3440. FMS_GETFILESELW = record
  3441. ftTime : FILETIME;
  3442. dwSize : DWORD;
  3443. bAttr : BYTE;
  3444. szName : array[0..259] of WCHAR;
  3445. end;
  3446. _FMS_GETFILESELW = FMS_GETFILESELW;
  3447. TFMSGETFILESELW = FMS_GETFILESELW;
  3448. PFMSGETFILESELW = ^FMS_GETFILESELW;
  3449. {$ifdef Unicode}
  3450. _FMS_GETFILESEL = FMS_GETFILESELW;
  3451. TFMSGETFILESEL = FMS_GETFILESELW;
  3452. FMS_GETFILESEL = FMS_GETFILESELW;
  3453. PFMSGETFILESEL = PFMSGETFILESELW;
  3454. {$else}
  3455. _FMS_GETFILESEL = FMS_GETFILESELA;
  3456. TFMSGETFILESEL = FMS_GETFILESELA;
  3457. FMS_GETFILESEL = FMS_GETFILESELA;
  3458. PFMSGETFILESEL = PFMSGETFILESELA;
  3459. {$endif}
  3460. FMS_LOADA = record
  3461. dwSize : DWORD;
  3462. szMenuName : array[0..(MENU_TEXT_LEN)-1] of AnsiCHAR;
  3463. hMenu : HMENU;
  3464. wMenuDelta : UINT;
  3465. end;
  3466. _FMS_LOADA = FMS_LOADA;
  3467. TFMSLOADA = FMS_LOADA;
  3468. PFMSLOADA = ^FMS_LOADA;
  3469. FMS_LOADW = record
  3470. dwSize : DWORD;
  3471. szMenuName : array[0..(MENU_TEXT_LEN)-1] of WCHAR;
  3472. hMenu : HMENU;
  3473. wMenuDelta : UINT;
  3474. end;
  3475. _FMS_LOADW = FMS_LOADW;
  3476. TFMSLOADW = FMS_LOADW;
  3477. PFMSLOADW = ^FMS_LOADW;
  3478. {$ifdef unicode}
  3479. _FMS_LOAD = FMS_LOADW;
  3480. TFMSLOAD = FMS_LOADW;
  3481. PFMSLOAD = PFMSLOADW;
  3482. FMS_LOAD = FMS_LOADW;
  3483. {$else}
  3484. _FMS_LOAD = FMS_LOADA;
  3485. TFMSLOAD = FMS_LOADA;
  3486. PFMSLOAD = PFMSLOADA;
  3487. FMS_LOAD = FMS_LOADA;
  3488. {$endif}
  3489. FMS_TOOLBARLOAD = record
  3490. dwSize : DWORD;
  3491. lpButtons : LPEXT_BUTTON;
  3492. cButtons : WORD;
  3493. cBitmaps : WORD;
  3494. idBitmap : WORD;
  3495. hBitmap : HBITMAP;
  3496. end;
  3497. _FMS_TOOLBARLOAD = FMS_TOOLBARLOAD;
  3498. TFMSTOOLBARLOAD = FMS_TOOLBARLOAD;
  3499. PFMSTOOLBARLOAD = ^FMS_TOOLBARLOAD;
  3500. FOCUS_EVENT_RECORD = record
  3501. bSetFocus : WINBOOL;
  3502. end;
  3503. _FOCUS_EVENT_RECORD = FOCUS_EVENT_RECORD;
  3504. TFOCUSEVENTRECORD = FOCUS_EVENT_RECORD;
  3505. PFOCUSEVENTRECORD = ^FOCUS_EVENT_RECORD;
  3506. FORM_INFO_1 = record
  3507. Flags : DWORD;
  3508. pName : LPTSTR;
  3509. Size : SIZEL;
  3510. ImageableArea : RECTL;
  3511. end;
  3512. _FORM_INFO_1 = FORM_INFO_1;
  3513. TFORMINFO1 = FORM_INFO_1;
  3514. PFORMINFO1 = ^FORM_INFO_1;
  3515. FORMAT_PARAMETERS = record
  3516. MediaType : MEDIA_TYPE;
  3517. StartCylinderNumber : DWORD;
  3518. EndCylinderNumber : DWORD;
  3519. StartHeadNumber : DWORD;
  3520. EndHeadNumber : DWORD;
  3521. end;
  3522. _FORMAT_PARAMETERS = FORMAT_PARAMETERS;
  3523. TFORMATPARAMETERS = FORMAT_PARAMETERS;
  3524. PFORMATPARAMETERS = ^FORMAT_PARAMETERS;
  3525. FORMATRANGE = record
  3526. _hdc : HDC;
  3527. hdcTarget : HDC;
  3528. rc : RECT;
  3529. rcPage : RECT;
  3530. chrg : CHARRANGE;
  3531. end;
  3532. _formatrange = FORMATRANGE;
  3533. Tformatrange = FORMATRANGE;
  3534. Pformatrange = ^FORMATRANGE;
  3535. GCP_RESULTS = record
  3536. lStructSize : DWORD;
  3537. lpOutString : LPTSTR;
  3538. lpOrder : ^UINT;
  3539. lpDx : ^WINT;
  3540. lpCaretPos : ^WINT;
  3541. lpClass : LPSTR; { Unicode-independent, i.e. not LPTSTR }
  3542. lpGlyphs : LPWSTR; { Unicode-independent }
  3543. nGlyphs : UINT;
  3544. nMaxFit : WINT;
  3545. end;
  3546. LPGCP_RESULTS = ^GCP_RESULTS;
  3547. tagGCP_RESULTS = GCP_RESULTS;
  3548. TGCPRESULTS = GCP_RESULTS;
  3549. PGCPRESULTS = ^GCP_RESULTS;
  3550. GENERIC_MAPPING = record
  3551. GenericRead : ACCESS_MASK;
  3552. GenericWrite : ACCESS_MASK;
  3553. GenericExecute : ACCESS_MASK;
  3554. GenericAll : ACCESS_MASK;
  3555. end;
  3556. PGENERIC_MAPPING = ^GENERIC_MAPPING;
  3557. _GENERIC_MAPPING = GENERIC_MAPPING;
  3558. TGENERICMAPPING = GENERIC_MAPPING;
  3559. PGENERICMAPPING = ^GENERIC_MAPPING;
  3560. GLYPHMETRICS = record
  3561. gmBlackBoxX : UINT;
  3562. gmBlackBoxY : UINT;
  3563. gmptGlyphOrigin : POINT;
  3564. gmCellIncX : SHORT;
  3565. gmCellIncY : SHORT;
  3566. end;
  3567. LPGLYPHMETRICS = ^GLYPHMETRICS;
  3568. _GLYPHMETRICS = GLYPHMETRICS;
  3569. TGLYPHMETRICS = GLYPHMETRICS;
  3570. PGLYPHMETRICS = ^GLYPHMETRICS;
  3571. HANDLETABLE = record
  3572. objectHandle : array[0..0] of HGDIOBJ;
  3573. end;
  3574. tagHANDLETABLE = HANDLETABLE;
  3575. THANDLETABLE = HANDLETABLE;
  3576. LPHANDLETABLE = ^HANDLETABLE;
  3577. HD_HITTESTINFO = record
  3578. pt : POINT;
  3579. flags : UINT;
  3580. iItem : longint;
  3581. end;
  3582. _HD_HITTESTINFO = HD_HITTESTINFO;
  3583. THDHITTESTINFO = HD_HITTESTINFO;
  3584. PHDHITTESTINFO = ^HD_HITTESTINFO;
  3585. HD_ITEM = record
  3586. mask : UINT;
  3587. cxy : longint;
  3588. pszText : LPTSTR;
  3589. hbm : HBITMAP;
  3590. cchTextMax : longint;
  3591. fmt : longint;
  3592. lParam : LPARAM;
  3593. end;
  3594. _HD_ITEM = HD_ITEM;
  3595. THDITEM = HD_ITEM;
  3596. PHDITEM = ^HD_ITEM;
  3597. WINDOWPOS = record
  3598. _hwnd : HWND;
  3599. hwndInsertAfter : HWND;
  3600. x : longint;
  3601. y : longint;
  3602. cx : longint;
  3603. cy : longint;
  3604. flags : UINT;
  3605. end;
  3606. LPWINDOWPOS = ^WINDOWPOS;
  3607. _WINDOWPOS = WINDOWPOS;
  3608. TWINDOWPOS = WINDOWPOS;
  3609. PWINDOWPOS = ^WINDOWPOS;
  3610. PWindowInfo = ^TWindowInfo;
  3611. LPWindowInfo = ^TWindowInfo;
  3612. tagWINDOWINFO = record
  3613. cbSize: DWORD;
  3614. rcWindow: TRect;
  3615. rcClient: TRect;
  3616. dwStyle: DWORD;
  3617. dwExStyle: DWORD;
  3618. dwWindowStatus: DWORD;
  3619. cxWindowBorders: UINT;
  3620. cyWindowBorders: UINT;
  3621. atomWindowType: TAtom;
  3622. wCreatorVersion: WORD;
  3623. end;
  3624. TWindowInfo = tagWINDOWINFO;
  3625. HD_LAYOUT = record
  3626. prc : ^RECT;
  3627. pwpos : ^WINDOWPOS;
  3628. end;
  3629. _HD_LAYOUT = HD_LAYOUT;
  3630. THDLAYOUT = HD_LAYOUT;
  3631. PHDLAYOUT = ^HD_LAYOUT;
  3632. HD_NOTIFY = record
  3633. hdr : NMHDR;
  3634. iItem : longint;
  3635. iButton : longint;
  3636. pitem : ^HD_ITEM;
  3637. end;
  3638. _HD_NOTIFY = HD_NOTIFY;
  3639. THDNOTIFY = HD_NOTIFY;
  3640. PHDNOTIFY = ^HD_NOTIFY;
  3641. HELPINFO = record
  3642. cbSize : UINT;
  3643. iContextType : longint;
  3644. iCtrlId : longint;
  3645. hItemHandle : HANDLE;
  3646. dwContextId : DWORD_PTR;
  3647. // NOTE: this is defined as DWORD in http://msdn.microsoft.com/en-us/library/windows/desktop/bb773313%28v=vs.85%29.asp
  3648. // but mingw has it as DWORD_PTR, so we will use that
  3649. MousePos : POINT;
  3650. end;
  3651. LPHELPINFO = ^HELPINFO;
  3652. tagHELPINFO = HELPINFO;
  3653. THELPINFO = HELPINFO;
  3654. PHELPINFO = ^HELPINFO;
  3655. HELPWININFOA = record
  3656. wStructSize : longint;
  3657. x : longint;
  3658. y : longint;
  3659. dx : longint;
  3660. dy : longint;
  3661. wMax : longint;
  3662. rgchMember : array[0..1] of AnsiCHAR;
  3663. end;
  3664. THELPWININFOA = HELPWININFOA;
  3665. PHELPWININFOA = ^HELPWININFOA;
  3666. HELPWININFOW = record
  3667. wStructSize : longint;
  3668. x : longint;
  3669. y : longint;
  3670. dx : longint;
  3671. dy : longint;
  3672. wMax : longint;
  3673. rgchMember : array[0..1] of WCHAR;
  3674. end;
  3675. THELPWININFOW = HELPWININFOW;
  3676. PHELPWININFOW = ^HELPWININFOW;
  3677. {$ifdef Unicode}
  3678. HELPWININFO = HELPWININFOW;
  3679. THELPWININFO = HELPWININFOW;
  3680. PHELPWININFO = PHELPWININFOW;
  3681. {$else}
  3682. HELPWININFO = HELPWININFOA;
  3683. THELPWININFO = HELPWININFOA;
  3684. PHELPWININFO = PHELPWININFOA;
  3685. {$endif}
  3686. HIGHCONTRAST = record
  3687. cbSize : UINT;
  3688. dwFlags : DWORD;
  3689. lpszDefaultScheme : LPTSTR;
  3690. end;
  3691. LPHIGHCONTRAST = ^HIGHCONTRAST;
  3692. tagHIGHCONTRAST = HIGHCONTRAST;
  3693. THIGHCONTRAST = HIGHCONTRAST;
  3694. PHIGHCONTRAST = ^HIGHCONTRAST;
  3695. HSZPAIR = record
  3696. hszSvc : HSZ;
  3697. hszTopic : HSZ;
  3698. end;
  3699. tagHSZPAIR = HSZPAIR;
  3700. THSZPAIR = HSZPAIR;
  3701. PHSZPAIR = ^HSZPAIR;
  3702. ICONINFO = record
  3703. fIcon : WINBOOL;
  3704. xHotspot : DWORD;
  3705. yHotspot : DWORD;
  3706. hbmMask : HBITMAP;
  3707. hbmColor : HBITMAP;
  3708. end;
  3709. _ICONINFO = ICONINFO;
  3710. TICONINFO = ICONINFO;
  3711. PICONINFO = ^ICONINFO;
  3712. ICONMETRICS = record
  3713. cbSize : UINT;
  3714. iHorzSpacing : longint;
  3715. iVertSpacing : longint;
  3716. iTitleWrap : longint;
  3717. lfFont : LOGFONT;
  3718. end;
  3719. LPICONMETRICS = ^ICONMETRICS;
  3720. tagICONMETRICS = ICONMETRICS;
  3721. TICONMETRICS = ICONMETRICS;
  3722. PICONMETRICS = ^ICONMETRICS;
  3723. IMAGEINFO = record
  3724. hbmImage : HBITMAP;
  3725. hbmMask : HBITMAP;
  3726. Unused1 : longint;
  3727. Unused2 : longint;
  3728. rcImage : RECT;
  3729. end;
  3730. _IMAGEINFO = IMAGEINFO;
  3731. TIMAGEINFO = IMAGEINFO;
  3732. PIMAGEINFO = ^IMAGEINFO;
  3733. KEY_EVENT_RECORD = packed record
  3734. bKeyDown : WINBOOL;
  3735. wRepeatCount : WORD;
  3736. wVirtualKeyCode : WORD;
  3737. wVirtualScanCode : WORD;
  3738. case longint of
  3739. 0 : ( UnicodeChar : WCHAR;
  3740. dwControlKeyState : DWORD; );
  3741. 1 : ( AsciiChar : CHAR );
  3742. end;
  3743. _KEY_EVENT_RECORD = KEY_EVENT_RECORD;
  3744. TKEYEVENTRECORD = KEY_EVENT_RECORD;
  3745. PKEYEVENTRECORD = ^KEY_EVENT_RECORD;
  3746. MOUSE_EVENT_RECORD = record
  3747. dwMousePosition : COORD;
  3748. dwButtonState : DWORD;
  3749. dwControlKeyState : DWORD;
  3750. dwEventFlags : DWORD;
  3751. end;
  3752. _MOUSE_EVENT_RECORD = MOUSE_EVENT_RECORD;
  3753. TMOUSEEVENTRECORD = MOUSE_EVENT_RECORD;
  3754. PMOUSEEVENTRECORD = ^MOUSE_EVENT_RECORD;
  3755. WINDOW_BUFFER_SIZE_RECORD = record
  3756. dwSize : COORD;
  3757. end;
  3758. _WINDOW_BUFFER_SIZE_RECORD = WINDOW_BUFFER_SIZE_RECORD;
  3759. TWINDOWBUFFERSIZERECORD = WINDOW_BUFFER_SIZE_RECORD;
  3760. PWINDOWBUFFERSIZERECORD = ^WINDOW_BUFFER_SIZE_RECORD;
  3761. MENU_EVENT_RECORD = record
  3762. dwCommandId : UINT;
  3763. end;
  3764. PMENU_EVENT_RECORD = ^MENU_EVENT_RECORD;
  3765. _MENU_EVENT_RECORD = MENU_EVENT_RECORD;
  3766. TMENUEVENTRECORD = MENU_EVENT_RECORD;
  3767. PMENUEVENTRECORD = ^MENU_EVENT_RECORD;
  3768. INPUT_RECORD = record
  3769. EventType: Word;
  3770. Reserved: Word;
  3771. Event : record case longint of
  3772. 0 : ( KeyEvent : KEY_EVENT_RECORD );
  3773. 1 : ( MouseEvent : MOUSE_EVENT_RECORD );
  3774. 2 : ( WindowBufferSizeEvent : WINDOW_BUFFER_SIZE_RECORD );
  3775. 3 : ( MenuEvent : MENU_EVENT_RECORD );
  3776. 4 : ( FocusEvent : FOCUS_EVENT_RECORD );
  3777. end;
  3778. end;
  3779. PINPUT_RECORD = ^INPUT_RECORD;
  3780. _INPUT_RECORD = INPUT_RECORD;
  3781. TINPUTRECORD = INPUT_RECORD;
  3782. PINPUTRECORD = ^INPUT_RECORD;
  3783. SYSTEMTIME = record
  3784. case integer of
  3785. 1 : (
  3786. wYear : WORD;
  3787. wMonth : WORD;
  3788. wDayOfWeek : WORD;
  3789. wDay : WORD;
  3790. wHour : WORD;
  3791. wMinute : WORD;
  3792. wSecond : WORD;
  3793. wMilliseconds : WORD;
  3794. );
  3795. { Compatibility for FPC }
  3796. 2 : (
  3797. Year : WORD;
  3798. Month : WORD;
  3799. DayOfWeek : WORD;
  3800. Day : WORD;
  3801. Hour : WORD;
  3802. Minute : WORD;
  3803. Second : WORD;
  3804. Millisecond : WORD;
  3805. );
  3806. end;
  3807. LPSYSTEMTIME = ^SYSTEMTIME;
  3808. _SYSTEMTIME = SYSTEMTIME;
  3809. TSYSTEMTIME = SYSTEMTIME;
  3810. PSYSTEMTIME = ^SYSTEMTIME;
  3811. JOB_INFO_1 = record
  3812. JobId : DWORD;
  3813. pPrinterName : LPTSTR;
  3814. pMachineName : LPTSTR;
  3815. pUserName : LPTSTR;
  3816. pDocument : LPTSTR;
  3817. pDatatype : LPTSTR;
  3818. pStatus : LPTSTR;
  3819. Status : DWORD;
  3820. Priority : DWORD;
  3821. Position : DWORD;
  3822. TotalPages : DWORD;
  3823. PagesPrinted : DWORD;
  3824. Submitted : SYSTEMTIME;
  3825. end;
  3826. _JOB_INFO_1 = JOB_INFO_1;
  3827. TJOBINFO1 = JOB_INFO_1;
  3828. PJOBINFO1 = ^JOB_INFO_1;
  3829. SID_IDENTIFIER_AUTHORITY = record
  3830. Value : array[0..5] of BYTE;
  3831. end;
  3832. LPSID_IDENTIFIER_AUTHORITY = ^SID_IDENTIFIER_AUTHORITY;
  3833. PSID_IDENTIFIER_AUTHORITY = ^SID_IDENTIFIER_AUTHORITY;
  3834. _SID_IDENTIFIER_AUTHORITY = SID_IDENTIFIER_AUTHORITY;
  3835. TSIDIDENTIFIERAUTHORITY = SID_IDENTIFIER_AUTHORITY;
  3836. PSIDIDENTIFIERAUTHORITY = ^SID_IDENTIFIER_AUTHORITY;
  3837. SID = record
  3838. Revision : BYTE;
  3839. SubAuthorityCount : BYTE;
  3840. IdentifierAuthority : SID_IDENTIFIER_AUTHORITY;
  3841. SubAuthority : array[0..(ANYSIZE_ARRAY)-1] of DWORD;
  3842. end;
  3843. _SID = SID;
  3844. TSID = SID;
  3845. PSID = ^SID;
  3846. SECURITY_DESCRIPTOR_CONTROL = WORD;
  3847. PSECURITY_DESCRIPTOR_CONTROL = ^SECURITY_DESCRIPTOR_CONTROL;
  3848. TSECURITYDESCRIPTORCONTROL = SECURITY_DESCRIPTOR_CONTROL;
  3849. PSECURITYDESCRIPTORCONTROL = ^SECURITY_DESCRIPTOR_CONTROL;
  3850. SECURITY_DESCRIPTOR = record
  3851. Revision : BYTE;
  3852. Sbz1 : BYTE;
  3853. Control : SECURITY_DESCRIPTOR_CONTROL;
  3854. Owner : PSID;
  3855. Group : PSID;
  3856. Sacl : PACL;
  3857. Dacl : PACL;
  3858. end;
  3859. PSECURITY_DESCRIPTOR = ^SECURITY_DESCRIPTOR;
  3860. _SECURITY_DESCRIPTOR = SECURITY_DESCRIPTOR;
  3861. TSECURITYDESCRIPTOR = SECURITY_DESCRIPTOR;
  3862. PSECURITYDESCRIPTOR = ^SECURITY_DESCRIPTOR;
  3863. JOB_INFO_2 = record
  3864. JobId : DWORD;
  3865. pPrinterName : LPTSTR;
  3866. pMachineName : LPTSTR;
  3867. pUserName : LPTSTR;
  3868. pDocument : LPTSTR;
  3869. pNotifyName : LPTSTR;
  3870. pDatatype : LPTSTR;
  3871. pPrintProcessor : LPTSTR;
  3872. pParameters : LPTSTR;
  3873. pDriverName : LPTSTR;
  3874. pDevMode : LPDEVMODE;
  3875. pStatus : LPTSTR;
  3876. pSecurityDescriptor : PSECURITY_DESCRIPTOR;
  3877. Status : DWORD;
  3878. Priority : DWORD;
  3879. Position : DWORD;
  3880. StartTime : DWORD;
  3881. UntilTime : DWORD;
  3882. TotalPages : DWORD;
  3883. Size : DWORD;
  3884. Submitted : SYSTEMTIME;
  3885. Time : DWORD;
  3886. PagesPrinted : DWORD;
  3887. end;
  3888. _JOB_INFO_2 = JOB_INFO_2;
  3889. TJOBINFO2 = JOB_INFO_2;
  3890. PJOBINFO2 = ^JOB_INFO_2;
  3891. KERNINGPAIR = record
  3892. wFirst : WORD;
  3893. wSecond : WORD;
  3894. iKernAmount : longint;
  3895. end;
  3896. LPKERNINGPAIR = ^KERNINGPAIR;
  3897. tagKERNINGPAIR = KERNINGPAIR;
  3898. TKERNINGPAIR = KERNINGPAIR;
  3899. PKERNINGPAIR = ^KERNINGPAIR;
  3900. LANA_ENUM = record
  3901. length : UCHAR;
  3902. lana : array[0..(MAX_LANA)-1] of UCHAR;
  3903. end;
  3904. _LANA_ENUM = LANA_ENUM;
  3905. TLANAENUM = LANA_ENUM;
  3906. PLANAENUM = ^LANA_ENUM;
  3907. LDT_ENTRY = record
  3908. LimitLow : WORD;
  3909. BaseLow : WORD;
  3910. HighWord : record
  3911. case longint of
  3912. 0 : ( Bytes : record
  3913. BaseMid : BYTE;
  3914. Flags1 : BYTE;
  3915. Flags2 : BYTE;
  3916. BaseHi : BYTE;
  3917. end );
  3918. 1 : ( Bits : record
  3919. flag0 : longint;
  3920. end );
  3921. end;
  3922. end;
  3923. LPLDT_ENTRY = ^LDT_ENTRY;
  3924. PLDT_ENTRY = ^LDT_ENTRY;
  3925. _LDT_ENTRY = LDT_ENTRY;
  3926. TLDTENTRY = LDT_ENTRY;
  3927. PLDTENTRY = ^LDT_ENTRY;
  3928. const
  3929. bm_LDT_ENTRY_BaseMid = $FF;
  3930. bp_LDT_ENTRY_BaseMid = 0;
  3931. bm_LDT_ENTRY_Type = $1F00;
  3932. bp_LDT_ENTRY_Type = 8;
  3933. bm_LDT_ENTRY_Dpl = $6000;
  3934. bp_LDT_ENTRY_Dpl = 13;
  3935. bm_LDT_ENTRY_Pres = $8000;
  3936. bp_LDT_ENTRY_Pres = 15;
  3937. bm_LDT_ENTRY_LimitHi = $F0000;
  3938. bp_LDT_ENTRY_LimitHi = 16;
  3939. bm_LDT_ENTRY_Sys = $100000;
  3940. bp_LDT_ENTRY_Sys = 20;
  3941. bm_LDT_ENTRY_Reserved_0 = $200000;
  3942. bp_LDT_ENTRY_Reserved_0 = 21;
  3943. bm_LDT_ENTRY_Default_Big = $400000;
  3944. bp_LDT_ENTRY_Default_Big = 22;
  3945. bm_LDT_ENTRY_Granularity = $800000;
  3946. bp_LDT_ENTRY_Granularity = 23;
  3947. bm_LDT_ENTRY_BaseHi = $FF000000;
  3948. bp_LDT_ENTRY_BaseHi = 24;
  3949. type
  3950. LOCALESIGNATURE = record
  3951. lsUsb : array[0..3] of DWORD;
  3952. lsCsbDefault : array[0..1] of DWORD;
  3953. lsCsbSupported : array[0..1] of DWORD;
  3954. end;
  3955. tagLOCALESIGNATURE = LOCALESIGNATURE;
  3956. TLOCALESIGNATURE = LOCALESIGNATURE;
  3957. PLOCALESIGNATURE = ^LOCALESIGNATURE;
  3958. LOCALGROUP_MEMBERS_INFO_0 = record
  3959. lgrmi0_sid : PSID;
  3960. end;
  3961. _LOCALGROUP_MEMBERS_INFO_0 = LOCALGROUP_MEMBERS_INFO_0;
  3962. TLOCALGROUPMEMBERSINFO0 = LOCALGROUP_MEMBERS_INFO_0;
  3963. PLOCALGROUPMEMBERSINFO0 = ^LOCALGROUP_MEMBERS_INFO_0;
  3964. LOCALGROUP_MEMBERS_INFO_3 = record
  3965. lgrmi3_domainandname : LPWSTR;
  3966. end;
  3967. _LOCALGROUP_MEMBERS_INFO_3 = LOCALGROUP_MEMBERS_INFO_3;
  3968. TLOCALGROUPMEMBERSINFO3 = LOCALGROUP_MEMBERS_INFO_3;
  3969. PLOCALGROUPMEMBERSINFO3 = ^LOCALGROUP_MEMBERS_INFO_3;
  3970. FXPT16DOT16 = longint;
  3971. LPFXPT16DOT16 = ^FXPT16DOT16;
  3972. TFXPT16DOT16 = FXPT16DOT16;
  3973. PFXPT16DOT16 = ^FXPT16DOT16;
  3974. LUID = TlargeInteger;
  3975. TLUID = LUID;
  3976. PLUID = ^LUID;
  3977. LUID_AND_ATTRIBUTES = packed record
  3978. Luid : LUID;
  3979. Attributes : DWORD;
  3980. end;
  3981. _LUID_AND_ATTRIBUTES = LUID_AND_ATTRIBUTES;
  3982. TLUIDANDATTRIBUTES = LUID_AND_ATTRIBUTES;
  3983. PLUIDANDATTRIBUTES = ^LUID_AND_ATTRIBUTES;
  3984. LUID_AND_ATTRIBUTES_ARRAY = array[0..(ANYSIZE_ARRAY)-1] of LUID_AND_ATTRIBUTES;
  3985. PLUID_AND_ATTRIBUTES_ARRAY = ^LUID_AND_ATTRIBUTES_ARRAY;
  3986. TLUIDANDATTRIBUTESARRAY = LUID_AND_ATTRIBUTES_ARRAY;
  3987. PLUIDANDATTRIBUTESARRAY = ^LUID_AND_ATTRIBUTES_ARRAY;
  3988. LV_COLUMN = record
  3989. mask : UINT;
  3990. fmt : longint;
  3991. cx : longint;
  3992. pszText : LPTSTR;
  3993. cchTextMax : longint;
  3994. iSubItem : longint;
  3995. end;
  3996. _LV_COLUMN = LV_COLUMN;
  3997. TLVCOLUMN = LV_COLUMN;
  3998. PLVCOLUMN = ^LV_COLUMN;
  3999. LV_ITEM = record
  4000. mask : UINT;
  4001. iItem : longint;
  4002. iSubItem : longint;
  4003. state : UINT;
  4004. stateMask : UINT;
  4005. pszText : LPTSTR;
  4006. cchTextMax : longint;
  4007. iImage : longint;
  4008. lParam : LPARAM;
  4009. end;
  4010. _LV_ITEM = LV_ITEM;
  4011. TLVITEM = LV_ITEM;
  4012. PLVITEM = ^LV_ITEM;
  4013. LV_DISPINFO = record
  4014. hdr : NMHDR;
  4015. item : LV_ITEM;
  4016. end;
  4017. tagLV_DISPINFO = LV_DISPINFO;
  4018. TLVDISPINFO = LV_DISPINFO;
  4019. PLVDISPINFO = ^LV_DISPINFO;
  4020. LV_FINDINFO = record
  4021. flags : UINT;
  4022. psz : LPCTSTR;
  4023. lParam : LPARAM;
  4024. pt : POINT;
  4025. vkDirection : UINT;
  4026. end;
  4027. _LV_FINDINFO = LV_FINDINFO;
  4028. TLVFINDINFO = LV_FINDINFO;
  4029. PLVFINDINFO = ^LV_FINDINFO;
  4030. LV_HITTESTINFO = record
  4031. pt : POINT;
  4032. flags : UINT;
  4033. iItem : longint;
  4034. iSubItem : longint;
  4035. iGroup : longint;
  4036. end;
  4037. _LV_HITTESTINFO = LV_HITTESTINFO;
  4038. TLVHITTESTINFO = LV_HITTESTINFO;
  4039. PLVHITTESTINFO = ^LV_HITTESTINFO;
  4040. LV_KEYDOWN = record
  4041. hdr : NMHDR;
  4042. wVKey : WORD;
  4043. flags : UINT;
  4044. end;
  4045. tagLV_KEYDOWN = LV_KEYDOWN;
  4046. TLVKEYDOWN = LV_KEYDOWN;
  4047. PLVKEYDOWN = ^LV_KEYDOWN;
  4048. MAT2 = packed record
  4049. eM11 : FIXED;
  4050. eM12 : FIXED;
  4051. eM21 : FIXED;
  4052. eM22 : FIXED;
  4053. end;
  4054. _MAT2 = MAT2;
  4055. TMAT2 = MAT2;
  4056. PMAT2 = ^MAT2;
  4057. MDICREATESTRUCT = record
  4058. szClass : LPCTSTR;
  4059. szTitle : LPCTSTR;
  4060. hOwner : HANDLE;
  4061. x : longint;
  4062. y : longint;
  4063. cx : longint;
  4064. cy : longint;
  4065. style : DWORD;
  4066. lParam : LPARAM;
  4067. end;
  4068. LPMDICREATESTRUCT = ^MDICREATESTRUCT;
  4069. tagMDICREATESTRUCT = MDICREATESTRUCT;
  4070. TMDICREATESTRUCT = MDICREATESTRUCT;
  4071. PMDICREATESTRUCT = ^MDICREATESTRUCT;
  4072. MEASUREITEMSTRUCT = record
  4073. CtlType : UINT;
  4074. CtlID : UINT;
  4075. itemID : UINT;
  4076. itemWidth : UINT;
  4077. itemHeight : UINT;
  4078. itemData : ULONG_PTR;
  4079. end;
  4080. LPMEASUREITEMSTRUCT = ^MEASUREITEMSTRUCT;
  4081. tagMEASUREITEMSTRUCT = MEASUREITEMSTRUCT;
  4082. TMEASUREITEMSTRUCT = MEASUREITEMSTRUCT;
  4083. PMEASUREITEMSTRUCT = ^MEASUREITEMSTRUCT;
  4084. MEMORY_BASIC_INFORMATION = record
  4085. BaseAddress : PVOID;
  4086. AllocationBase : PVOID;
  4087. AllocationProtect : DWORD;
  4088. RegionSize : PTRUINT; // MvdV: size_t in win SDK 6.0.
  4089. State : DWORD;
  4090. Protect : DWORD;
  4091. _Type : DWORD;
  4092. end;
  4093. PMEMORY_BASIC_INFORMATION = ^MEMORY_BASIC_INFORMATION;
  4094. _MEMORY_BASIC_INFORMATION = MEMORY_BASIC_INFORMATION;
  4095. TMEMORYBASICINFORMATION = MEMORY_BASIC_INFORMATION;
  4096. PMEMORYBASICINFORMATION = ^MEMORY_BASIC_INFORMATION;
  4097. MEMORYSTATUS = record
  4098. dwLength : DWORD;
  4099. dwMemoryLoad : DWORD;
  4100. dwTotalPhys : SIZE_T;
  4101. dwAvailPhys : SIZE_T;
  4102. dwTotalPageFile : SIZE_T;
  4103. dwAvailPageFile : SIZE_T;
  4104. dwTotalVirtual : SIZE_T;
  4105. dwAvailVirtual : SIZE_T;
  4106. end;
  4107. LPMEMORYSTATUS = ^MEMORYSTATUS;
  4108. _MEMORYSTATUS = MEMORYSTATUS;
  4109. TMEMORYSTATUS = MEMORYSTATUS;
  4110. PMEMORYSTATUS = ^MEMORYSTATUS;
  4111. MENUEX_TEMPLATE_HEADER = record
  4112. wVersion : WORD;
  4113. wOffset : WORD;
  4114. dwHelpId : DWORD;
  4115. end;
  4116. TMENUXTEMPLATEHEADER = MENUEX_TEMPLATE_HEADER;
  4117. PMENUXTEMPLATEHEADER = ^MENUEX_TEMPLATE_HEADER;
  4118. MENUEX_TEMPLATE_ITEM = record
  4119. dwType : DWORD;
  4120. dwState : DWORD;
  4121. uId : UINT;
  4122. bResInfo : BYTE;
  4123. szText : array[0..0] of WCHAR;
  4124. dwHelpId : DWORD;
  4125. end;
  4126. TMENUEXTEMPLATEITEM = MENUEX_TEMPLATE_ITEM;
  4127. PMENUEXTEMPLATEITEM = ^MENUEX_TEMPLATE_ITEM;
  4128. MENUINFO = record
  4129. cbSize : DWORD;
  4130. fMask : DWORD;
  4131. dwStyle : DWORD;
  4132. cyMax : UINT;
  4133. hbrBack : HBRUSH;
  4134. dwContextHelpID : DWORD;
  4135. dwMenuData : ULONG_PTR;
  4136. end;
  4137. LPMENUINFO = ^MENUINFO;
  4138. LPCMENUINFO = ^MENUINFO;
  4139. tagMENUINFO = MENUINFO;
  4140. TMENUINFO = MENUINFO;
  4141. PMENUINFO = ^MENUINFO;
  4142. MENUITEMINFO = record
  4143. cbSize : UINT;
  4144. fMask : UINT;
  4145. fType : UINT;
  4146. fState : UINT;
  4147. wID : UINT;
  4148. hSubMenu : HMENU;
  4149. hbmpChecked : HBITMAP;
  4150. hbmpUnchecked : HBITMAP;
  4151. dwItemData : ULONG_PTR;
  4152. dwTypeData : LPTSTR;
  4153. cch : UINT;
  4154. hbmpItem : HBITMAP;
  4155. end;
  4156. LPMENUITEMINFO = ^MENUITEMINFO;
  4157. LPCMENUITEMINFO = ^MENUITEMINFO;
  4158. tagMENUITEMINFO = MENUITEMINFO;
  4159. TMENUITEMINFO = MENUITEMINFO;
  4160. TMENUITEMINFOA = MENUITEMINFO;
  4161. PMENUITEMINFO = ^MENUITEMINFO;
  4162. MENUITEMTEMPLATE = record
  4163. mtOption : WORD;
  4164. mtID : WORD;
  4165. mtString : array[0..0] of WCHAR;
  4166. end;
  4167. TMENUITEMTEMPLATE = MENUITEMTEMPLATE;
  4168. PMENUITEMTEMPLATE = ^MENUITEMTEMPLATE;
  4169. MENUITEMTEMPLATEHEADER = record
  4170. versionNumber : WORD;
  4171. offset : WORD;
  4172. end;
  4173. TMENUITEMTEMPLATEHEADER = MENUITEMTEMPLATEHEADER;
  4174. PMENUITEMTEMPLATEHEADER = ^MENUITEMTEMPLATEHEADER;
  4175. MENUTEMPLATE = record
  4176. end;
  4177. LPMENUTEMPLATE = ^MENUTEMPLATE;
  4178. TMENUTEMPLATE = MENUTEMPLATE;
  4179. PMENUTEMPLATE = ^MENUTEMPLATE;
  4180. METAFILEPICT = record
  4181. mm : LONG;
  4182. xExt : LONG;
  4183. yExt : LONG;
  4184. hMF : HMETAFILE;
  4185. end;
  4186. LPMETAFILEPICT = ^METAFILEPICT;
  4187. tagMETAFILEPICT = METAFILEPICT;
  4188. TMETAFILEPICT = METAFILEPICT;
  4189. PMETAFILEPICT = ^METAFILEPICT;
  4190. METAHEADER = packed record
  4191. mtType : WORD;
  4192. mtHeaderSize : WORD;
  4193. mtVersion : WORD;
  4194. mtSize : DWORD;
  4195. mtNoObjects : WORD;
  4196. mtMaxRecord : DWORD;
  4197. mtNoParameters : WORD;
  4198. end;
  4199. tagMETAHEADER = METAHEADER;
  4200. TMETAHEADER = METAHEADER;
  4201. PMETAHEADER = ^METAHEADER;
  4202. METARECORD = record
  4203. rdSize : DWORD;
  4204. rdFunction : WORD;
  4205. rdParm : array[0..0] of WORD;
  4206. end;
  4207. LPMETARECORD = ^METARECORD;
  4208. tagMETARECORD = METARECORD;
  4209. TMETARECORD = METARECORD;
  4210. PMETARECORD = ^METARECORD;
  4211. MINIMIZEDMETRICS = record
  4212. cbSize : UINT;
  4213. iWidth : longint;
  4214. iHorzGap : longint;
  4215. iVertGap : longint;
  4216. iArrange : longint;
  4217. end;
  4218. LPMINIMIZEDMETRICS = ^MINIMIZEDMETRICS;
  4219. tagMINIMIZEDMETRICS = MINIMIZEDMETRICS;
  4220. TMINIMIZEDMETRICS = MINIMIZEDMETRICS;
  4221. PMINIMIZEDMETRICS = ^MINIMIZEDMETRICS;
  4222. MINMAXINFO = record
  4223. ptReserved : POINT;
  4224. ptMaxSize : POINT;
  4225. ptMaxPosition : POINT;
  4226. ptMinTrackSize : POINT;
  4227. ptMaxTrackSize : POINT;
  4228. end;
  4229. tagMINMAXINFO = MINMAXINFO;
  4230. TMINMAXINFO = MINMAXINFO;
  4231. PMINMAXINFO = ^MINMAXINFO;
  4232. MODEMDEVCAPS = record
  4233. dwActualSize : DWORD;
  4234. dwRequiredSize : DWORD;
  4235. dwDevSpecificOffset : DWORD;
  4236. dwDevSpecificSize : DWORD;
  4237. dwModemProviderVersion : DWORD;
  4238. dwModemManufacturerOffset : DWORD;
  4239. dwModemManufacturerSize : DWORD;
  4240. dwModemModelOffset : DWORD;
  4241. dwModemModelSize : DWORD;
  4242. dwModemVersionOffset : DWORD;
  4243. dwModemVersionSize : DWORD;
  4244. dwDialOptions : DWORD;
  4245. dwCallSetupFailTimer : DWORD;
  4246. dwInactivityTimeout : DWORD;
  4247. dwSpeakerVolume : DWORD;
  4248. dwSpeakerMode : DWORD;
  4249. dwModemOptions : DWORD;
  4250. dwMaxDTERate : DWORD;
  4251. dwMaxDCERate : DWORD;
  4252. abVariablePortion : array[0..0] of BYTE;
  4253. end;
  4254. LPMODEMDEVCAPS = ^MODEMDEVCAPS;
  4255. TMODEMDEVCAPS = MODEMDEVCAPS;
  4256. PMODEMDEVCAPS = ^MODEMDEVCAPS;
  4257. modemdevcaps_tag = MODEMDEVCAPS;
  4258. MODEMSETTINGS = record
  4259. dwActualSize : DWORD;
  4260. dwRequiredSize : DWORD;
  4261. dwDevSpecificOffset : DWORD;
  4262. dwDevSpecificSize : DWORD;
  4263. dwCallSetupFailTimer : DWORD;
  4264. dwInactivityTimeout : DWORD;
  4265. dwSpeakerVolume : DWORD;
  4266. dwSpeakerMode : DWORD;
  4267. dwPreferredModemOptions : DWORD;
  4268. dwNegotiatedModemOptions : DWORD;
  4269. dwNegotiatedDCERate : DWORD;
  4270. abVariablePortion : array[0..0] of BYTE;
  4271. end;
  4272. LPMODEMSETTINGS = ^MODEMSETTINGS;
  4273. TMODEMSETTINGS = MODEMSETTINGS;
  4274. PMODEMSETTINGS = ^MODEMSETTINGS;
  4275. modemsettings_tag = MODEMSETTINGS;
  4276. MONCBSTRUCT = record
  4277. cb : UINT;
  4278. dwTime : DWORD;
  4279. hTask : HANDLE;
  4280. dwRet : DWORD;
  4281. wType : UINT;
  4282. wFmt : UINT;
  4283. hConv : HCONV;
  4284. hsz1 : HSZ;
  4285. hsz2 : HSZ;
  4286. hData : HDDEDATA;
  4287. dwData1 : ULONG_PTR;
  4288. dwData2 : ULONG_PTR;
  4289. cc : CONVCONTEXT;
  4290. cbData : DWORD;
  4291. Data : array[0..7] of DWORD;
  4292. end;
  4293. tagMONCBSTRUCT = MONCBSTRUCT;
  4294. TMONCBSTRUCT = MONCBSTRUCT;
  4295. PMONCBSTRUCT = ^MONCBSTRUCT;
  4296. MONCONVSTRUCT = record
  4297. cb : UINT;
  4298. fConnect : WINBOOL;
  4299. dwTime : DWORD;
  4300. hTask : HANDLE;
  4301. hszSvc : HSZ;
  4302. hszTopic : HSZ;
  4303. hConvClient : HCONV;
  4304. hConvServer : HCONV;
  4305. end;
  4306. tagMONCONVSTRUCT = MONCONVSTRUCT;
  4307. TMONCONVSTRUCT = MONCONVSTRUCT;
  4308. PMONCONVSTRUCT = ^MONCONVSTRUCT;
  4309. MONERRSTRUCT = record
  4310. cb : UINT;
  4311. wLastError : UINT;
  4312. dwTime : DWORD;
  4313. hTask : HANDLE;
  4314. end;
  4315. tagMONERRSTRUCT = MONERRSTRUCT;
  4316. TMONERRSTRUCT = MONERRSTRUCT;
  4317. PMONERRSTRUCT = ^MONERRSTRUCT;
  4318. MONHSZSTRUCTA = record
  4319. cb : UINT;
  4320. fsAction : WINBOOL;
  4321. dwTime : DWORD;
  4322. hsz : HSZ;
  4323. hTask : HANDLE;
  4324. str : array[0..0] of AnsiCHAR;
  4325. end;
  4326. tagMONHSZSTRUCTA = MONHSZSTRUCTA;
  4327. TMONHSZSTRUCTA = MONHSZSTRUCTA;
  4328. PMONHSZSTRUCTA = ^MONHSZSTRUCTA;
  4329. MONHSZSTRUCTW = record
  4330. cb : UINT;
  4331. fsAction : WINBOOL;
  4332. dwTime : DWORD;
  4333. hsz : HSZ;
  4334. hTask : HANDLE;
  4335. str : array[0..0] of WCHAR;
  4336. end;
  4337. tagMONHSZSTRUCTW = MONHSZSTRUCTW;
  4338. TMONHSZSTRUCTW = MONHSZSTRUCTW;
  4339. PMONHSZSTRUCTW = ^MONHSZSTRUCTW;
  4340. {$ifdef unicode}
  4341. tagMONHSZSTRUCT = MONHSZSTRUCTW;
  4342. TMONHSZSTRUCT = MONHSZSTRUCTW;
  4343. PMONHSZSTRUCT = PMONHSZSTRUCTW;
  4344. MONHSZSTRUCT = MONHSZSTRUCTW;
  4345. {$else}
  4346. tagMONHSZSTRUCT = MONHSZSTRUCTA;
  4347. TMONHSZSTRUCT = MONHSZSTRUCTA;
  4348. PMONHSZSTRUCT = PMONHSZSTRUCTA;
  4349. MONHSZSTRUCT = MONHSZSTRUCTA;
  4350. {$endif}
  4351. MONITOR_INFO_1 = record
  4352. pName : LPTSTR;
  4353. end;
  4354. _MONITOR_INFO_1 = MONITOR_INFO_1;
  4355. TMONITORINFO1 = MONITOR_INFO_1;
  4356. PMONITORINFO1 = ^MONITOR_INFO_1;
  4357. MONITOR_INFO_2 = record
  4358. pName : LPTSTR;
  4359. pEnvironment : LPTSTR;
  4360. pDLLName : LPTSTR;
  4361. end;
  4362. _MONITOR_INFO_2 = MONITOR_INFO_2;
  4363. TMONITORINFO2 = MONITOR_INFO_2;
  4364. PMONITORINFO2 = ^MONITOR_INFO_2;
  4365. MONLINKSTRUCT = record
  4366. cb : UINT;
  4367. dwTime : DWORD;
  4368. hTask : HANDLE;
  4369. fEstablished : WINBOOL;
  4370. fNoData : WINBOOL;
  4371. hszSvc : HSZ;
  4372. hszTopic : HSZ;
  4373. hszItem : HSZ;
  4374. wFmt : UINT;
  4375. fServer : WINBOOL;
  4376. hConvServer : HCONV;
  4377. hConvClient : HCONV;
  4378. end;
  4379. tagMONLINKSTRUCT = MONLINKSTRUCT;
  4380. TMONLINKSTRUCT = MONLINKSTRUCT;
  4381. PMONLINKSTRUCT = ^MONLINKSTRUCT;
  4382. MONMSGSTRUCT = record
  4383. cb : UINT;
  4384. hwndTo : HWND;
  4385. dwTime : DWORD;
  4386. hTask : HANDLE;
  4387. wMsg : UINT;
  4388. wParam : WPARAM;
  4389. lParam : LPARAM;
  4390. dmhd : DDEML_MSG_HOOK_DATA;
  4391. end;
  4392. tagMONMSGSTRUCT = MONMSGSTRUCT;
  4393. TMONMSGSTRUCT = MONMSGSTRUCT;
  4394. PMONMSGSTRUCT = ^MONMSGSTRUCT;
  4395. MOUSEHOOKSTRUCT = record
  4396. pt : POINT;
  4397. hwnd : HWND;
  4398. wHitTestCode : UINT;
  4399. dwExtraInfo : ULONG_PTR;
  4400. end;
  4401. LPMOUSEHOOKSTRUCT = ^MOUSEHOOKSTRUCT;
  4402. tagMOUSEHOOKSTRUCT = MOUSEHOOKSTRUCT;
  4403. TMOUSEHOOKSTRUCT = MOUSEHOOKSTRUCT;
  4404. PMOUSEHOOKSTRUCT = ^MOUSEHOOKSTRUCT;
  4405. MOUSEKEYS = record
  4406. cbSize : DWORD;
  4407. dwFlags : DWORD;
  4408. iMaxSpeed : DWORD;
  4409. iTimeToMaxSpeed : DWORD;
  4410. iCtrlSpeed : DWORD;
  4411. dwReserved1 : DWORD;
  4412. dwReserved2 : DWORD;
  4413. end;
  4414. TMOUSEKEYS = MOUSEKEYS;
  4415. PMOUSEKEYS = ^MOUSEKEYS;
  4416. MSGBOXCALLBACK = procedure (lpHelpInfo:LPHELPINFO);stdcall;
  4417. TMSGBOXCALLBACK = MSGBOXCALLBACK;
  4418. MSGBOXPARAMS = record
  4419. cbSize : UINT;
  4420. hwndOwner : HWND;
  4421. hInstance : HINST;
  4422. lpszText : LPCTSTR;
  4423. lpszCaption : LPCTSTR;
  4424. dwStyle : DWORD;
  4425. lpszIcon : LPCTSTR;
  4426. dwContextHelpId : DWORD_PTR;
  4427. lpfnMsgBoxCallback : MSGBOXCALLBACK;
  4428. dwLanguageId : DWORD;
  4429. end;
  4430. LPMSGBOXPARAMS = ^MSGBOXPARAMS;
  4431. TMSGBOXPARAMS = MSGBOXPARAMS;
  4432. TMSGBOXPARAMSA = MSGBOXPARAMS;
  4433. PMSGBOXPARAMS = ^MSGBOXPARAMS;
  4434. MSGFILTER = record
  4435. nmhdr : NMHDR;
  4436. msg : UINT;
  4437. wParam : WPARAM;
  4438. lParam : LPARAM;
  4439. end;
  4440. _msgfilter = MSGFILTER;
  4441. Tmsgfilter = MSGFILTER;
  4442. Pmsgfilter = ^MSGFILTER;
  4443. MULTIKEYHELPA = record
  4444. mkSize : DWORD;
  4445. mkKeylist : AnsiCHAR;
  4446. szKeyphrase : array[0..0] of AnsiCHAR;
  4447. end;
  4448. tagMULTIKEYHELPA = MULTIKEYHELPA;
  4449. TMULTIKEYHELPA = MULTIKEYHELPA;
  4450. PMULTIKEYHELPA = ^MULTIKEYHELPA;
  4451. MULTIKEYHELPW = record
  4452. mkSize : DWORD;
  4453. mkKeylist : WideCHAR;
  4454. szKeyphrase : array[0..0] of WideCHAR;
  4455. end;
  4456. tagMULTIKEYHELPW = MULTIKEYHELPW;
  4457. TMULTIKEYHELPW = MULTIKEYHELPW;
  4458. PMULTIKEYHELPW = ^MULTIKEYHELPW;
  4459. {$ifdef Unicode}
  4460. tagMULTIKEYHELP = MULTIKEYHELPW;
  4461. TMULTIKEYHELP = MULTIKEYHELPW;
  4462. PMULTIKEYHELP = PMULTIKEYHELPW;
  4463. MULTIKEYHELP = MULTIKEYHELPW;
  4464. {$else}
  4465. tagMULTIKEYHELP = MULTIKEYHELPA;
  4466. TMULTIKEYHELP = MULTIKEYHELPA;
  4467. PMULTIKEYHELP = PMULTIKEYHELPA;
  4468. MULTIKEYHELP = MULTIKEYHELPA;
  4469. {$endif}
  4470. NAME_BUFFER = record
  4471. name : array[0..(NCBNAMSZ)-1] of UCHAR;
  4472. name_num : UCHAR;
  4473. name_flags : UCHAR;
  4474. end;
  4475. _NAME_BUFFER = NAME_BUFFER;
  4476. TNAMEBUFFER = NAME_BUFFER;
  4477. PNAMEBUFFER = ^NAME_BUFFER;
  4478. p_NCB = ^_NCB;
  4479. NCB = record
  4480. ncb_command : UCHAR;
  4481. ncb_retcode : UCHAR;
  4482. ncb_lsn : UCHAR;
  4483. ncb_num : UCHAR;
  4484. ncb_buffer : PUCHAR;
  4485. ncb_length : WORD;
  4486. ncb_callname : array[0..(NCBNAMSZ)-1] of UCHAR;
  4487. ncb_name : array[0..(NCBNAMSZ)-1] of UCHAR;
  4488. ncb_rto : UCHAR;
  4489. ncb_sto : UCHAR;
  4490. ncb_post : procedure (_para1:p_NCB);CDECL;
  4491. ncb_lana_num : UCHAR;
  4492. ncb_cmd_cplt : UCHAR;
  4493. ncb_reserve : array[0..9] of UCHAR;
  4494. ncb_event : HANDLE;
  4495. end;
  4496. _NCB = NCB;
  4497. TNCB = NCB;
  4498. PNCB = ^NCB;
  4499. NCCALCSIZE_PARAMS = record
  4500. rgrc : array[0..2] of RECT;
  4501. lppos : PWINDOWPOS;
  4502. end;
  4503. _NCCALCSIZE_PARAMS = NCCALCSIZE_PARAMS;
  4504. TNCCALCSIZEPARAMS = NCCALCSIZE_PARAMS;
  4505. PNCCALCSIZEPARAMS = ^NCCALCSIZE_PARAMS;
  4506. NDDESHAREINFO = record
  4507. lRevision : LONG;
  4508. lpszShareName : LPTSTR;
  4509. lShareType : LONG;
  4510. lpszAppTopicList : LPTSTR;
  4511. fSharedFlag : LONG;
  4512. fService : LONG;
  4513. fStartAppFlag : LONG;
  4514. nCmdShow : LONG;
  4515. qModifyId : array[0..1] of LONG;
  4516. cNumItems : LONG;
  4517. lpszItemList : LPTSTR;
  4518. end;
  4519. _NDDESHAREINFO = NDDESHAREINFO;
  4520. TNDDESHAREINFO = NDDESHAREINFO;
  4521. PNDDESHAREINFO = ^NDDESHAREINFO;
  4522. NETRESOURCE = record
  4523. dwScope : DWORD;
  4524. dwType : DWORD;
  4525. dwDisplayType : DWORD;
  4526. dwUsage : DWORD;
  4527. lpLocalName : LPTSTR;
  4528. lpRemoteName : LPTSTR;
  4529. lpComment : LPTSTR;
  4530. lpProvider : LPTSTR;
  4531. end;
  4532. LPNETRESOURCE = ^NETRESOURCE;
  4533. _NETRESOURCE = NETRESOURCE;
  4534. TNETRESOURCE = NETRESOURCE;
  4535. TNETRESOURCEA = NETRESOURCE;
  4536. PNETRESOURCE = ^NETRESOURCE;
  4537. PNETRESOURCEA = ^NETRESOURCE;
  4538. NEWCPLINFOA = record
  4539. dwSize : DWORD;
  4540. dwFlags : DWORD;
  4541. dwHelpContext : DWORD;
  4542. lpData : LONG_PTR;
  4543. hIcon : HICON;
  4544. szName : array[0..31] of AnsiCHAR;
  4545. szInfo : array[0..63] of AnsiCHAR;
  4546. szHelpFile : array[0..127] of AnsiCHAR;
  4547. end;
  4548. tagNEWCPLINFOA = NEWCPLINFOA;
  4549. TNEWCPLINFOA = NEWCPLINFOA;
  4550. PNEWCPLINFOA = ^NEWCPLINFOA;
  4551. NEWCPLINFOW = record
  4552. dwSize : DWORD;
  4553. dwFlags : DWORD;
  4554. dwHelpContext : DWORD;
  4555. lData : LONG;
  4556. hIcon : HICON;
  4557. szName : array[0..31] of WideCHAR;
  4558. szInfo : array[0..63] of WideCHAR;
  4559. szHelpFile : array[0..127] of WideCHAR;
  4560. end;
  4561. tagNEWCPLINFOW = NEWCPLINFOW;
  4562. TNEWCPLINFOW = NEWCPLINFOW;
  4563. PNEWCPLINFOW = ^NEWCPLINFOW;
  4564. {$ifdef Unicode}
  4565. tagNEWCPLINFO = NEWCPLINFOW;
  4566. TNEWCPLINFO = NEWCPLINFOW;
  4567. PNEWCPLINFO = PNEWCPLINFOW;
  4568. NEWCPLINFO = NEWCPLINFOW;
  4569. {$else}
  4570. tagNEWCPLINFO = NEWCPLINFOA;
  4571. TNEWCPLINFO = NEWCPLINFOA;
  4572. PNEWCPLINFO = PNEWCPLINFOA;
  4573. NEWCPLINFO = NEWCPLINFOA;
  4574. {$endif}
  4575. NEWTEXTMETRICA = record
  4576. tmHeight : LONG;
  4577. tmAscent : LONG;
  4578. tmDescent : LONG;
  4579. tmInternalLeading : LONG;
  4580. tmExternalLeading : LONG;
  4581. tmAveCharWidth : LONG;
  4582. tmMaxCharWidth : LONG;
  4583. tmWeight : LONG;
  4584. tmOverhang : LONG;
  4585. tmDigitizedAspectX : LONG;
  4586. tmDigitizedAspectY : LONG;
  4587. tmFirstChar : AnsiChar;
  4588. tmLastChar : AnsiChar;
  4589. tmDefaultChar : AnsiChar;
  4590. tmBreakChar : AnsiChar;
  4591. tmItalic : BYTE;
  4592. tmUnderlined : BYTE;
  4593. tmStruckOut : BYTE;
  4594. tmPitchAndFamily : BYTE;
  4595. tmCharSet : BYTE;
  4596. ntmFlags : DWORD;
  4597. ntmSizeEM : UINT;
  4598. ntmCellHeight : UINT;
  4599. ntmAvgWidth : UINT;
  4600. end;
  4601. LPNEWTEXTMETRICA = ^NEWTEXTMETRICA;
  4602. tagNEWTEXTMETRICA = NEWTEXTMETRICA;
  4603. _NEWTEXTMETRICA = NEWTEXTMETRICA;
  4604. TNEWTEXTMETRICA = NEWTEXTMETRICA;
  4605. PNEWTEXTMETRICA = ^NEWTEXTMETRICA;
  4606. NEWTEXTMETRICW = record
  4607. tmHeight :LONG;
  4608. tmAscent :LONG;
  4609. tmDescent :LONG;
  4610. tmInternalLeading :LONG;
  4611. tmExternalLeading :LONG;
  4612. tmAveCharWidth :LONG;
  4613. tmMaxCharWidth :LONG;
  4614. tmWeight :LONG;
  4615. tmOverhang :LONG;
  4616. tmDigitizedAspectX :LONG;
  4617. tmDigitizedAspectY :LONG;
  4618. tmFirstChar :WCHAR;
  4619. tmLastChar :WCHAR;
  4620. tmDefaultChar :WCHAR;
  4621. tmBreakChar :WCHAR;
  4622. tmItalic :Byte;
  4623. tmUnderlined :Byte;
  4624. tmStruckOut :Byte;
  4625. tmPitchAndFamily :Byte;
  4626. tmCharSet :Byte;
  4627. ntmFlags :DWORD;
  4628. ntmSizeEM :UINT;
  4629. ntmCellHeight :UINT;
  4630. ntmAvgWidth :UINT;
  4631. end;
  4632. LPNEWTEXTMETRICW = ^NEWTEXTMETRICW;
  4633. tagNEWTEXTMETRICW = NEWTEXTMETRICW;
  4634. _NEWTEXTMETRICW = NEWTEXTMETRICW;
  4635. TNEWTEXTMETRICW = NEWTEXTMETRICW;
  4636. PNEWTEXTMETRICW = ^NEWTEXTMETRICW;
  4637. {$IFNDEF UNICODE}
  4638. LPNEWTEXTMETRIC = ^NEWTEXTMETRICA;
  4639. _NEWTEXTMETRIC = NEWTEXTMETRICA;
  4640. tagNEWTEXTMETRIC = NEWTEXTMETRICA;
  4641. TNEWTEXTMETRIC = NEWTEXTMETRICA;
  4642. PNEWTEXTMETRIC = ^NEWTEXTMETRICA;
  4643. NEWTEXTMETRIC = NEWTEXTMETRICA;
  4644. {$ELSE}
  4645. LPNEWTEXTMETRIC = ^NEWTEXTMETRICW;
  4646. _NEWTEXTMETRIC = NEWTEXTMETRICW;
  4647. tagNEWTEXTMETRIC = NEWTEXTMETRICW;
  4648. TNEWTEXTMETRIC = NEWTEXTMETRICW;
  4649. PNEWTEXTMETRIC = ^NEWTEXTMETRICW;
  4650. NEWTEXTMETRIC = NEWTEXTMETRICW;
  4651. {$ENDIF}
  4652. NEWTEXTMETRICEXA = record
  4653. ntmentm : NEWTEXTMETRICA;
  4654. ntmeFontSignature : FONTSIGNATURE;
  4655. end;
  4656. LPNEWTEXTMETRICEXA = ^NEWTEXTMETRICEXA;
  4657. tagNEWTEXTMETRICEXA = NEWTEXTMETRICEXA;
  4658. TNEWTEXTMETRICEXA = NEWTEXTMETRICEXA;
  4659. PNEWTEXTMETRICEXA = ^NEWTEXTMETRICEXA;
  4660. NEWTEXTMETRICEXW = record
  4661. ntmentm :NEWTEXTMETRICW;
  4662. ntmeFontSignature :FONTSIGNATURE;
  4663. end;
  4664. LPNEWTEXTMETRICEXW = ^NEWTEXTMETRICEXW;
  4665. tagNEWTEXTMETRICEXW = NEWTEXTMETRICEXW;
  4666. TNEWTEXTMETRICEXW = NEWTEXTMETRICEXW;
  4667. PNEWTEXTMETRICEXW = ^NEWTEXTMETRICEXW;
  4668. {$IFNDEF UNICODE}
  4669. LPNEWTEXTMETRICEX = ^NEWTEXTMETRICEXA;
  4670. _NEWTEXTMETRICEX = NEWTEXTMETRICEXA;
  4671. tagNEWTEXTMETRICEX = NEWTEXTMETRICEXA;
  4672. TNEWTEXTMETRICEX = NEWTEXTMETRICEXA;
  4673. PNEWTEXTMETRICEX = ^NEWTEXTMETRICEXA;
  4674. NEWTEXTMETRICEX = NEWTEXTMETRICEXA;
  4675. {$ELSE}
  4676. LPNEWTEXTMETRICEX = ^NEWTEXTMETRICEXW;
  4677. _NEWTEXTMETRICEX = NEWTEXTMETRICEXW;
  4678. tagNEWTEXTMETRICEX = NEWTEXTMETRICEXW;
  4679. TNEWTEXTMETRICEX = NEWTEXTMETRICEXW;
  4680. PNEWTEXTMETRICEX = ^NEWTEXTMETRICEXW;
  4681. NEWTEXTMETRICEX = NEWTEXTMETRICEXW;
  4682. {$ENDIF}
  4683. NM_LISTVIEW = record
  4684. hdr : NMHDR;
  4685. iItem : longint;
  4686. iSubItem : longint;
  4687. uNewState : UINT;
  4688. uOldState : UINT;
  4689. uChanged : UINT;
  4690. ptAction : POINT;
  4691. lParam : LPARAM;
  4692. end;
  4693. tagNM_LISTVIEW = NM_LISTVIEW;
  4694. TNMLISTVIEW = NM_LISTVIEW;
  4695. PNMLISTVIEW = ^NM_LISTVIEW;
  4696. TV_ITEM = record
  4697. mask : UINT;
  4698. hItem : HTREEITEM;
  4699. state : UINT;
  4700. stateMask : UINT;
  4701. pszText : LPTSTR;
  4702. cchTextMax : longint;
  4703. iImage : longint;
  4704. iSelectedImage : longint;
  4705. cChildren : longint;
  4706. lParam : LPARAM;
  4707. end;
  4708. LPTV_ITEM = ^TV_ITEM;
  4709. _TV_ITEM = TV_ITEM;
  4710. TTVITEM = TV_ITEM;
  4711. PTVITEM = ^TV_ITEM;
  4712. NM_TREEVIEW = record
  4713. hdr : NMHDR;
  4714. action : UINT;
  4715. itemOld : TV_ITEM;
  4716. itemNew : TV_ITEM;
  4717. ptDrag : POINT;
  4718. end;
  4719. LPNM_TREEVIEW = ^NM_TREEVIEW;
  4720. _NM_TREEVIEW = NM_TREEVIEW;
  4721. TNMTREEVIEW = NM_TREEVIEW;
  4722. PNMTREEVIEW = ^NM_TREEVIEW;
  4723. NM_UPDOWNW = record
  4724. hdr : NMHDR;
  4725. iPos : longint;
  4726. iDelta : longint;
  4727. end;
  4728. _NM_UPDOWN = NM_UPDOWNW;
  4729. TNMUPDOWN = NM_UPDOWNW;
  4730. PNMUPDOWN = ^NM_UPDOWNW;
  4731. NONCLIENTMETRICS = record
  4732. cbSize : UINT;
  4733. iBorderWidth : longint;
  4734. iScrollWidth : longint;
  4735. iScrollHeight : longint;
  4736. iCaptionWidth : longint;
  4737. iCaptionHeight : longint;
  4738. lfCaptionFont : LOGFONT;
  4739. iSmCaptionWidth : longint;
  4740. iSmCaptionHeight : longint;
  4741. lfSmCaptionFont : LOGFONT;
  4742. iMenuWidth : longint;
  4743. iMenuHeight : longint;
  4744. lfMenuFont : LOGFONT;
  4745. lfStatusFont : LOGFONT;
  4746. lfMessageFont : LOGFONT;
  4747. //iPaddedBorderWidth : longint; // WINVER >= 0x0600
  4748. end;
  4749. LPNONCLIENTMETRICS = ^NONCLIENTMETRICS;
  4750. tagNONCLIENTMETRICS = NONCLIENTMETRICS;
  4751. TNONCLIENTMETRICS = NONCLIENTMETRICS;
  4752. PNONCLIENTMETRICS = ^NONCLIENTMETRICS;
  4753. SERVICE_ADDRESS = record
  4754. dwAddressType : DWORD;
  4755. dwAddressFlags : DWORD;
  4756. dwAddressLength : DWORD;
  4757. dwPrincipalLength : DWORD;
  4758. lpAddress : ^BYTE;
  4759. lpPrincipal : ^BYTE;
  4760. end;
  4761. _SERVICE_ADDRESS = SERVICE_ADDRESS;
  4762. TSERVICEADDRESS = SERVICE_ADDRESS;
  4763. PSERVICEADDRESS = ^SERVICE_ADDRESS;
  4764. SERVICE_ADDRESSES = record
  4765. dwAddressCount : DWORD;
  4766. Addresses : array[0..0] of SERVICE_ADDRESS;
  4767. end;
  4768. LPSERVICE_ADDRESSES = ^SERVICE_ADDRESSES;
  4769. _SERVICE_ADDRESSES = SERVICE_ADDRESSES;
  4770. TSERVICEADDRESSES = SERVICE_ADDRESSES;
  4771. PSERVICEADDRESSES = ^SERVICE_ADDRESSES;
  4772. GUID = system.tguid;
  4773. LPGUID = ^GUID;
  4774. _GUID = GUID;
  4775. TGUID = GUID;
  4776. PGUID = ^GUID;
  4777. CLSID = GUID;
  4778. LPCLSID = ^CLSID;
  4779. TCLSID = CLSID;
  4780. PCLSID = ^CLSID;
  4781. SERVICE_INFO = record
  4782. lpServiceType : LPGUID;
  4783. lpServiceName : LPTSTR;
  4784. lpComment : LPTSTR;
  4785. lpLocale : LPTSTR;
  4786. dwDisplayHint : DWORD;
  4787. dwVersion : DWORD;
  4788. dwTime : DWORD;
  4789. lpMachineName : LPTSTR;
  4790. lpServiceAddress : LPSERVICE_ADDRESSES;
  4791. ServiceSpecificInfo : BLOB;
  4792. end;
  4793. _SERVICE_INFO = SERVICE_INFO;
  4794. TSERVICEINFO = SERVICE_INFO;
  4795. PSERVICEINFO = ^SERVICE_INFO;
  4796. NS_SERVICE_INFO = record
  4797. dwNameSpace : DWORD;
  4798. ServiceInfo : SERVICE_INFO;
  4799. end;
  4800. _NS_SERVICE_INFO = NS_SERVICE_INFO;
  4801. TNSSERVICEINFO = NS_SERVICE_INFO;
  4802. PNSSERVICEINFO = ^NS_SERVICE_INFO;
  4803. NUMBERFMT = record
  4804. NumDigits : UINT;
  4805. LeadingZero : UINT;
  4806. Grouping : UINT;
  4807. lpDecimalSep : LPTSTR;
  4808. lpThousandSep : LPTSTR;
  4809. NegativeOrder : UINT;
  4810. end;
  4811. _numberfmt = NUMBERFMT;
  4812. Tnumberfmt = NUMBERFMT;
  4813. Pnumberfmt = ^NUMBERFMT;
  4814. OFSTRUCT = record
  4815. cBytes : BYTE;
  4816. fFixedDisk : BYTE;
  4817. nErrCode : WORD;
  4818. Reserved1 : WORD;
  4819. Reserved2 : WORD;
  4820. szPathName : array[0..(OFS_MAXPATHNAME)-1] of CHAR;
  4821. end;
  4822. LPOFSTRUCT = ^OFSTRUCT;
  4823. _OFSTRUCT = OFSTRUCT;
  4824. TOFSTRUCT = OFSTRUCT;
  4825. POFSTRUCT = ^OFSTRUCT;
  4826. OPENFILENAME_NT4 = record
  4827. lStructSize : DWORD;
  4828. hwndOwner : HWND;
  4829. hInstance : HINST;
  4830. lpstrFilter : LPCTSTR;
  4831. lpstrCustomFilter : LPTSTR;
  4832. nMaxCustFilter : DWORD;
  4833. nFilterIndex : DWORD;
  4834. lpstrFile : LPTSTR;
  4835. nMaxFile : DWORD;
  4836. lpstrFileTitle : LPTSTR;
  4837. nMaxFileTitle : DWORD;
  4838. lpstrInitialDir : LPCTSTR;
  4839. lpstrTitle : LPCTSTR;
  4840. Flags : DWORD;
  4841. nFileOffset : WORD;
  4842. nFileExtension : WORD;
  4843. lpstrDefExt : LPCTSTR;
  4844. lCustData : LPARAM;
  4845. lpfnHook : LPOFNHOOKPROC;
  4846. lpTemplateName : LPCTSTR;
  4847. end;
  4848. LPOPENFILENAME_NT4 = ^OPENFILENAME_NT4;
  4849. TOPENFILENAME_NT4 = OPENFILENAME_NT4;
  4850. POPENFILENAME_NT4 = ^OPENFILENAME_NT4;
  4851. OPENFILENAME = record
  4852. lStructSize : DWORD;
  4853. hwndOwner : HWND;
  4854. hInstance : HINST;
  4855. lpstrFilter : LPCTSTR;
  4856. lpstrCustomFilter : LPTSTR;
  4857. nMaxCustFilter : DWORD;
  4858. nFilterIndex : DWORD;
  4859. lpstrFile : LPTSTR;
  4860. nMaxFile : DWORD;
  4861. lpstrFileTitle : LPTSTR;
  4862. nMaxFileTitle : DWORD;
  4863. lpstrInitialDir : LPCTSTR;
  4864. lpstrTitle : LPCTSTR;
  4865. Flags : DWORD;
  4866. nFileOffset : WORD;
  4867. nFileExtension : WORD;
  4868. lpstrDefExt : LPCTSTR;
  4869. lCustData : LPARAM;
  4870. lpfnHook : LPOFNHOOKPROC;
  4871. lpTemplateName : LPCTSTR;
  4872. pvReserved : pointer;
  4873. dwreserved : dword;
  4874. FlagsEx : dword;
  4875. end;
  4876. LPOPENFILENAME = ^OPENFILENAME;
  4877. TOPENFILENAME = OPENFILENAME;
  4878. POPENFILENAME = ^OPENFILENAME;
  4879. tagOFN = OPENFILENAME;
  4880. TOFN = OPENFILENAME;
  4881. POFN = ^OPENFILENAME;
  4882. OFNOTIFY = record
  4883. hdr : NMHDR;
  4884. lpOFN : LPOPENFILENAME;
  4885. pszFile : LPTSTR;
  4886. end;
  4887. LPOFNOTIFY = ^OFNOTIFY;
  4888. _OFNOTIFY = OFNOTIFY;
  4889. TOFNOTIFY = OFNOTIFY;
  4890. POFNOTIFY = ^OFNOTIFY;
  4891. OSVERSIONINFOA = record
  4892. dwOSVersionInfoSize : DWORD;
  4893. dwMajorVersion : DWORD;
  4894. dwMinorVersion : DWORD;
  4895. dwBuildNumber : DWORD;
  4896. dwPlatformId : DWORD;
  4897. szCSDVersion : array[0..127] of AnsiCHAR;
  4898. end;
  4899. LPOSVERSIONINFOA= ^OSVERSIONINFOA;
  4900. _OSVERSIONINFOA = OSVERSIONINFOA;
  4901. TOSVERSIONINFOA = OSVERSIONINFOA;
  4902. POSVERSIONINFOA = LPOSVERSIONINFOA;
  4903. OSVERSIONINFOW = record
  4904. dwOSVersionInfoSize : DWORD;
  4905. dwMajorVersion : DWORD;
  4906. dwMinorVersion : DWORD;
  4907. dwBuildNumber : DWORD;
  4908. dwPlatformId : DWORD;
  4909. szCSDVersion : array[0..127] of WCHAR;
  4910. end;
  4911. LPOSVERSIONINFOW = ^OSVERSIONINFOW;
  4912. _OSVERSIONINFOW = OSVERSIONINFOW;
  4913. TOSVERSIONINFOW = OSVERSIONINFOW;
  4914. POSVERSIONINFOW = LPOSVERSIONINFOW;
  4915. {$IFNDEF UNICODE}
  4916. LPOSVERSIONINFO = ^OSVERSIONINFOA;
  4917. _OSVERSIONINFO = OSVERSIONINFOA;
  4918. TOSVERSIONINFO = OSVERSIONINFOA;
  4919. POSVERSIONINFO = ^OSVERSIONINFOA;
  4920. OSVERSIONINFO = OSVERSIONINFOA;
  4921. {$ELSE}
  4922. LPOSVERSIONINFO = ^OSVERSIONINFOW;
  4923. _OSVERSIONINFO = OSVERSIONINFOW;
  4924. TOSVERSIONINFO = OSVERSIONINFOW;
  4925. POSVERSIONINFO = ^OSVERSIONINFOW;
  4926. OSVERSIONINFO = OSVERSIONINFOW;
  4927. {$ENDIF}
  4928. {$push}
  4929. {$packrecords 4}
  4930. TEXTMETRICA = record
  4931. tmHeight : LONG;
  4932. tmAscent : LONG;
  4933. tmDescent : LONG;
  4934. tmInternalLeading : LONG;
  4935. tmExternalLeading : LONG;
  4936. tmAveCharWidth : LONG;
  4937. tmMaxCharWidth : LONG;
  4938. tmWeight : LONG;
  4939. tmOverhang : LONG;
  4940. tmDigitizedAspectX : LONG;
  4941. tmDigitizedAspectY : LONG;
  4942. tmFirstChar : AnsiChar;
  4943. tmLastChar : AnsiChar;
  4944. tmDefaultChar : AnsiChar;
  4945. tmBreakChar : AnsiChar;
  4946. tmItalic : BYTE;
  4947. tmUnderlined : BYTE;
  4948. tmStruckOut : BYTE;
  4949. tmPitchAndFamily : BYTE;
  4950. tmCharSet : BYTE;
  4951. end;
  4952. LPTEXTMETRICA = ^TEXTMETRICA;
  4953. tagTEXTMETRICA = TEXTMETRICA;
  4954. _TEXTMETRICA = TEXTMETRICA;
  4955. TTEXTMETRICA = TEXTMETRICA;
  4956. PTEXTMETRICA = LPTEXTMETRICA;
  4957. TEXTMETRICW = record
  4958. tmHeight : LONG;
  4959. tmAscent : LONG;
  4960. tmDescent : LONG;
  4961. tmInternalLeading : LONG;
  4962. tmExternalLeading : LONG;
  4963. tmAveCharWidth : LONG;
  4964. tmMaxCharWidth : LONG;
  4965. tmWeight : LONG;
  4966. tmOverhang : LONG;
  4967. tmDigitizedAspectX : LONG;
  4968. tmDigitizedAspectY : LONG;
  4969. tmFirstChar : WCHAR;
  4970. tmLastChar : WCHAR;
  4971. tmDefaultChar : WCHAR;
  4972. tmBreakChar : WCHAR;
  4973. tmItalic : BYTE;
  4974. tmUnderlined : BYTE;
  4975. tmStruckOut : BYTE;
  4976. tmPitchAndFamily : BYTE;
  4977. tmCharSet : BYTE;
  4978. end;
  4979. LPTEXTMETRICW = ^TEXTMETRICW;
  4980. tagTEXTMETRICW = TEXTMETRICW;
  4981. _TEXTMETRICW = TEXTMETRICW;
  4982. TTEXTMETRICW = TEXTMETRICW;
  4983. PTEXTMETRICW = ^TEXTMETRICW;
  4984. {$IFNDEF UNICODE}
  4985. LPTEXTMETRIC = ^TEXTMETRICA;
  4986. _TEXTMETRIC = TEXTMETRICA;
  4987. tagTEXTMETRIC = TEXTMETRICA;
  4988. TTEXTMETRIC = TEXTMETRICA;
  4989. PTEXTMETRIC = ^TEXTMETRICA;
  4990. TEXTMETRIC = TEXTMETRICA;
  4991. {$ELSE}
  4992. LPTEXTMETRIC = ^TEXTMETRICW;
  4993. _TEXTMETRIC = TEXTMETRICW;
  4994. tagTEXTMETRIC = TEXTMETRICW;
  4995. TTEXTMETRIC = TEXTMETRICW;
  4996. PTEXTMETRIC = ^TEXTMETRICW;
  4997. TEXTMETRIC = TEXTMETRICW;
  4998. {$ENDIF}
  4999. {$PACKRECORDS C}
  5000. OUTLINETEXTMETRICA = record
  5001. otmSize : UINT;
  5002. otmTextMetrics : TEXTMETRICA;
  5003. otmFiller : BYTE;
  5004. otmPanoseNumber : PANOSE;
  5005. otmfsSelection : UINT;
  5006. otmfsType : UINT;
  5007. otmsCharSlopeRise : longint;
  5008. otmsCharSlopeRun : longint;
  5009. otmItalicAngle : longint;
  5010. otmEMSquare : UINT;
  5011. otmAscent : longint;
  5012. otmDescent : longint;
  5013. otmLineGap : UINT;
  5014. otmsCapEmHeight : UINT;
  5015. otmsXHeight : UINT;
  5016. otmrcFontBox : RECT;
  5017. otmMacAscent : longint;
  5018. otmMacDescent : longint;
  5019. otmMacLineGap : UINT;
  5020. otmusMinimumPPEM : UINT;
  5021. otmptSubscriptSize : POINT;
  5022. otmptSubscriptOffset : POINT;
  5023. otmptSuperscriptSize : POINT;
  5024. otmptSuperscriptOffset : POINT;
  5025. otmsStrikeoutSize : UINT;
  5026. otmsStrikeoutPosition : longint;
  5027. otmsUnderscoreSize : longint;
  5028. otmsUnderscorePosition : longint;
  5029. otmpFamilyName : PSTR;
  5030. otmpFaceName : PSTR;
  5031. otmpStyleName : PSTR;
  5032. otmpFullName : PSTR;
  5033. end;
  5034. LPOUTLINETEXTMETRICA = ^OUTLINETEXTMETRICA;
  5035. _OUTLINETEXTMETRICA = OUTLINETEXTMETRICA;
  5036. TOUTLINETEXTMETRICA = OUTLINETEXTMETRICA;
  5037. POUTLINETEXTMETRICA = ^OUTLINETEXTMETRICA;
  5038. OUTLINETEXTMETRICW = record
  5039. otmSize : UINT;
  5040. otmTextMetrics : TEXTMETRICW;
  5041. otmFiller : BYTE;
  5042. otmPanoseNumber : PANOSE;
  5043. otmfsSelection : UINT;
  5044. otmfsType : UINT;
  5045. otmsCharSlopeRise : longint;
  5046. otmsCharSlopeRun : longint;
  5047. otmItalicAngle : longint;
  5048. otmEMSquare : UINT;
  5049. otmAscent : longint;
  5050. otmDescent : longint;
  5051. otmLineGap : UINT;
  5052. otmsCapEmHeight : UINT;
  5053. otmsXHeight : UINT;
  5054. otmrcFontBox : RECT;
  5055. otmMacAscent : longint;
  5056. otmMacDescent : longint;
  5057. otmMacLineGap : UINT;
  5058. otmusMinimumPPEM : UINT;
  5059. otmptSubscriptSize : POINT;
  5060. otmptSubscriptOffset : POINT;
  5061. otmptSuperscriptSize : POINT;
  5062. otmptSuperscriptOffset : POINT;
  5063. otmsStrikeoutSize : UINT;
  5064. otmsStrikeoutPosition : longint;
  5065. otmsUnderscoreSize : longint;
  5066. otmsUnderscorePosition : longint;
  5067. otmpFamilyName : PSTR;
  5068. otmpFaceName : PSTR;
  5069. otmpStyleName : PSTR;
  5070. otmpFullName : PSTR;
  5071. end;
  5072. LPOUTLINETEXTMETRICW = ^OUTLINETEXTMETRICW;
  5073. _OUTLINETEXTMETRICW = OUTLINETEXTMETRICW;
  5074. TOUTLINETEXTMETRICW = OUTLINETEXTMETRICW;
  5075. POUTLINETEXTMETRICW = LPOUTLINETEXTMETRICW;
  5076. {$ifdef Unicode}
  5077. LPOUTLINETEXTMETRIC = LPOUTLINETEXTMETRICW;
  5078. _OUTLINETEXTMETRIC = OUTLINETEXTMETRICW;
  5079. TOUTLINETEXTMETRIC = OUTLINETEXTMETRICW;
  5080. POUTLINETEXTMETRIC = LPOUTLINETEXTMETRICW;
  5081. OUTLINETEXTMETRIC = OUTLINETEXTMETRICW;
  5082. {$else}
  5083. LPOUTLINETEXTMETRIC = LPOUTLINETEXTMETRICA;
  5084. _OUTLINETEXTMETRIC = OUTLINETEXTMETRICA;
  5085. TOUTLINETEXTMETRIC = OUTLINETEXTMETRICA;
  5086. POUTLINETEXTMETRIC = LPOUTLINETEXTMETRICA;
  5087. OUTLINETEXTMETRIC = OUTLINETEXTMETRICA;
  5088. {$endif}
  5089. {$POP}
  5090. OVERLAPPED = record
  5091. Internal : ULONG_PTR;
  5092. InternalHigh : ULONG_PTR;
  5093. Offset : DWORD;
  5094. OffsetHigh : DWORD;
  5095. hEvent : HANDLE;
  5096. end;
  5097. LPOVERLAPPED = ^OVERLAPPED;
  5098. _OVERLAPPED = OVERLAPPED;
  5099. TOVERLAPPED = OVERLAPPED;
  5100. POVERLAPPED = ^OVERLAPPED;
  5101. {PAGESETUPDLG = record conflicts with function PageSetupDlg }
  5102. TPAGESETUPDLG = record
  5103. lStructSize : DWORD;
  5104. hwndOwner : HWND;
  5105. hDevMode : HGLOBAL;
  5106. hDevNames : HGLOBAL;
  5107. Flags : DWORD;
  5108. ptPaperSize : POINT;
  5109. rtMinMargin : RECT;
  5110. rtMargin : RECT;
  5111. hInstance : HINST;
  5112. lCustData : LPARAM;
  5113. lpfnPageSetupHook : LPPAGESETUPHOOK;
  5114. lpfnPagePaintHook : LPPAGEPAINTHOOK;
  5115. lpPageSetupTemplateName : LPCTSTR;
  5116. hPageSetupTemplate : HGLOBAL;
  5117. end;
  5118. LPPAGESETUPDLG = ^TPAGESETUPDLG;
  5119. PPAGESETUPDLG = ^TPAGESETUPDLG;
  5120. tagPSD = TPAGESETUPDLG;
  5121. TPSD = TPAGESETUPDLG;
  5122. PPSD = ^TPAGESETUPDLG;
  5123. PAINTSTRUCT = record
  5124. hdc : HDC;
  5125. fErase : WINBOOL;
  5126. rcPaint : RECT;
  5127. fRestore : WINBOOL;
  5128. fIncUpdate : WINBOOL;
  5129. rgbReserved : array[0..31] of BYTE;
  5130. end;
  5131. LPPAINTSTRUCT = ^PAINTSTRUCT;
  5132. tagPAINTSTRUCT = PAINTSTRUCT;
  5133. TPAINTSTRUCT = PAINTSTRUCT;
  5134. PPAINTSTRUCT = ^PAINTSTRUCT;
  5135. PARAFORMAT = record
  5136. cbSize : UINT;
  5137. dwMask : DWORD;
  5138. wNumbering : WORD;
  5139. wReserved : WORD;
  5140. dxStartIndent : LONG;
  5141. dxRightIndent : LONG;
  5142. dxOffset : LONG;
  5143. wAlignment : WORD;
  5144. cTabCount : SHORT;
  5145. rgxTabs : array[0..(MAX_TAB_STOPS)-1] of LONG;
  5146. end;
  5147. _paraformat = PARAFORMAT;
  5148. Tparaformat = PARAFORMAT;
  5149. Pparaformat = ^PARAFORMAT;
  5150. PERF_COUNTER_BLOCK = record
  5151. ByteLength : DWORD;
  5152. end;
  5153. _PERF_COUNTER_BLOCK = PERF_COUNTER_BLOCK;
  5154. TPERFCOUNTERBLOCK = PERF_COUNTER_BLOCK;
  5155. PPERFCOUNTERBLOCK = ^PERF_COUNTER_BLOCK;
  5156. PERF_COUNTER_DEFINITION = record
  5157. ByteLength : DWORD;
  5158. CounterNameTitleIndex : DWORD;
  5159. CounterNameTitle : LPWSTR;
  5160. CounterHelpTitleIndex : DWORD;
  5161. CounterHelpTitle : LPWSTR;
  5162. DefaultScale : DWORD;
  5163. DetailLevel : DWORD;
  5164. CounterType : DWORD;
  5165. CounterSize : DWORD;
  5166. CounterOffset : DWORD;
  5167. end;
  5168. _PERF_COUNTER_DEFINITION = PERF_COUNTER_DEFINITION;
  5169. TPERFCOUNTERDEFINITION = PERF_COUNTER_DEFINITION;
  5170. PPERFCOUNTERDEFINITION = ^PERF_COUNTER_DEFINITION;
  5171. PERF_DATA_BLOCK = record
  5172. Signature : array[0..3] of WCHAR;
  5173. LittleEndian : DWORD;
  5174. Version : DWORD;
  5175. Revision : DWORD;
  5176. TotalByteLength : DWORD;
  5177. HeaderLength : DWORD;
  5178. NumObjectTypes : DWORD;
  5179. DefaultObject : DWORD;
  5180. SystemTime : SYSTEMTIME;
  5181. PerfTime : LARGE_INTEGER;
  5182. PerfFreq : LARGE_INTEGER;
  5183. PerfTime100nSec : LARGE_INTEGER;
  5184. SystemNameLength : DWORD;
  5185. SystemNameOffset : DWORD;
  5186. end;
  5187. _PERF_DATA_BLOCK = PERF_DATA_BLOCK;
  5188. TPERFDATABLOCK = PERF_DATA_BLOCK;
  5189. PPERFDATABLOCK = ^PERF_DATA_BLOCK;
  5190. PERF_INSTANCE_DEFINITION = record
  5191. ByteLength : DWORD;
  5192. ParentObjectTitleIndex : DWORD;
  5193. ParentObjectInstance : DWORD;
  5194. UniqueID : DWORD;
  5195. NameOffset : DWORD;
  5196. NameLength : DWORD;
  5197. end;
  5198. _PERF_INSTANCE_DEFINITION = PERF_INSTANCE_DEFINITION;
  5199. TPERFINSTANCEDEFINITION = PERF_INSTANCE_DEFINITION;
  5200. PPERFINSTANCEDEFINITION = PERF_INSTANCE_DEFINITION;
  5201. PERF_OBJECT_TYPE = record
  5202. TotalByteLength : DWORD;
  5203. DefinitionLength : DWORD;
  5204. HeaderLength : DWORD;
  5205. ObjectNameTitleIndex : DWORD;
  5206. ObjectNameTitle : LPWSTR;
  5207. ObjectHelpTitleIndex : DWORD;
  5208. ObjectHelpTitle : LPWSTR;
  5209. DetailLevel : DWORD;
  5210. NumCounters : DWORD;
  5211. DefaultCounter : DWORD;
  5212. NumInstances : DWORD;
  5213. CodePage : DWORD;
  5214. PerfTime : LARGE_INTEGER;
  5215. PerfFreq : LARGE_INTEGER;
  5216. end;
  5217. _PERF_OBJECT_TYPE = PERF_OBJECT_TYPE;
  5218. TPERFOBJECTTYPE = PERF_OBJECT_TYPE;
  5219. PPERFOBJECTTYPE = ^PERF_OBJECT_TYPE;
  5220. POLYTEXT = record
  5221. x : longint;
  5222. y : longint;
  5223. n : UINT;
  5224. lpstr : LPCTSTR;
  5225. uiFlags : UINT;
  5226. rcl : RECT;
  5227. pdx : ^longint;
  5228. end;
  5229. _POLYTEXT = POLYTEXT;
  5230. TPOLYTEXT = POLYTEXT;
  5231. PPOLYTEXT = ^POLYTEXT;
  5232. PORT_INFO_1 = record
  5233. pName : LPTSTR;
  5234. end;
  5235. _PORT_INFO_1 = PORT_INFO_1;
  5236. TPORTINFO1 = PORT_INFO_1;
  5237. PPORTINFO1 = ^PORT_INFO_1;
  5238. PORT_INFO_2 = record
  5239. pPortName : LPSTR;
  5240. pMonitorName : LPSTR;
  5241. pDescription : LPSTR;
  5242. fPortType : DWORD;
  5243. Reserved : DWORD;
  5244. end;
  5245. _PORT_INFO_2 = PORT_INFO_2;
  5246. TPORTINFO2 = PORT_INFO_2;
  5247. PPORTINFO2 = ^PORT_INFO_2;
  5248. PREVENT_MEDIA_REMOVAL = record
  5249. PreventMediaRemoval : BOOLEAN;
  5250. end;
  5251. _PREVENT_MEDIA_REMOVAL = PREVENT_MEDIA_REMOVAL;
  5252. TPREVENTMEDIAREMOVAL = PREVENT_MEDIA_REMOVAL;
  5253. PPREVENTMEDIAREMOVAL = ^PREVENT_MEDIA_REMOVAL;
  5254. {PRINTDLG = record conflicts with PrintDlg function }
  5255. TPRINTDLG = packed record
  5256. lStructSize : DWORD;
  5257. hwndOwner : HWND;
  5258. hDevMode : HGLOBAL;
  5259. hDevNames : HGLOBAL;
  5260. hDC : HDC;
  5261. Flags : DWORD;
  5262. nFromPage : WORD;
  5263. nToPage : WORD;
  5264. nMinPage : WORD;
  5265. nMaxPage : WORD;
  5266. nCopies : WORD;
  5267. hInstance : HINST;
  5268. lCustData : LPARAM;
  5269. lpfnPrintHook : LPPRINTHOOKPROC;
  5270. lpfnSetupHook : LPSETUPHOOKPROC;
  5271. lpPrintTemplateName : LPCTSTR;
  5272. lpSetupTemplateName : LPCTSTR;
  5273. hPrintTemplate : HGLOBAL;
  5274. hSetupTemplate : HGLOBAL;
  5275. end;
  5276. LPPRINTDLG = ^TPRINTDLG;
  5277. PPRINTDLG = ^TPRINTDLG;
  5278. tagPD = TPRINTDLG;
  5279. TPD = TPRINTDLG;
  5280. PPD = ^TPRINTDLG;
  5281. PRINTER_DEFAULTS = record
  5282. pDatatype : LPTSTR;
  5283. pDevMode : LPDEVMODE;
  5284. DesiredAccess : ACCESS_MASK;
  5285. end;
  5286. _PRINTER_DEFAULTS = PRINTER_DEFAULTS;
  5287. TPRINTERDEFAULTS = PRINTER_DEFAULTS;
  5288. PPRINTERDEFAULTS = ^PRINTER_DEFAULTS;
  5289. PRINTER_INFO_1 = record
  5290. Flags : DWORD;
  5291. pDescription : LPTSTR;
  5292. pName : LPTSTR;
  5293. pComment : LPTSTR;
  5294. end;
  5295. LPPRINTER_INFO_1 = ^PRINTER_INFO_1;
  5296. PPRINTER_INFO_1 = ^PRINTER_INFO_1;
  5297. _PRINTER_INFO_1 = PRINTER_INFO_1;
  5298. TPRINTERINFO1 = PRINTER_INFO_1;
  5299. PPRINTERINFO1 = ^PRINTER_INFO_1;
  5300. PRINTER_INFO_2 = record
  5301. pServerName : LPTSTR;
  5302. pPrinterName : LPTSTR;
  5303. pShareName : LPTSTR;
  5304. pPortName : LPTSTR;
  5305. pDriverName : LPTSTR;
  5306. pComment : LPTSTR;
  5307. pLocation : LPTSTR;
  5308. pDevMode : LPDEVMODE;
  5309. pSepFile : LPTSTR;
  5310. pPrintProcessor : LPTSTR;
  5311. pDatatype : LPTSTR;
  5312. pParameters : LPTSTR;
  5313. pSecurityDescriptor : PSECURITY_DESCRIPTOR;
  5314. Attributes : DWORD;
  5315. Priority : DWORD;
  5316. DefaultPriority : DWORD;
  5317. StartTime : DWORD;
  5318. UntilTime : DWORD;
  5319. Status : DWORD;
  5320. cJobs : DWORD;
  5321. AveragePPM : DWORD;
  5322. end;
  5323. _PRINTER_INFO_2 = PRINTER_INFO_2;
  5324. TPRINTERINFO2 = PRINTER_INFO_2;
  5325. PPRINTERINFO2 = ^PRINTER_INFO_2;
  5326. PRINTER_INFO_3 = record
  5327. pSecurityDescriptor : PSECURITY_DESCRIPTOR;
  5328. end;
  5329. _PRINTER_INFO_3 = PRINTER_INFO_3;
  5330. TPRINTERINFO3 = PRINTER_INFO_3;
  5331. PPRINTERINFO3 = ^PRINTER_INFO_3;
  5332. PRINTER_INFO_4 = record
  5333. pPrinterName : LPTSTR;
  5334. pServerName : LPTSTR;
  5335. Attributes : DWORD;
  5336. end;
  5337. _PRINTER_INFO_4 = PRINTER_INFO_4;
  5338. TPRINTERINFO4 = PRINTER_INFO_4;
  5339. PPRINTERINFO4 = ^PRINTER_INFO_4;
  5340. PRINTER_INFO_5 = record
  5341. pPrinterName : LPTSTR;
  5342. pPortName : LPTSTR;
  5343. Attributes : DWORD;
  5344. DeviceNotSelectedTimeout : DWORD;
  5345. TransmissionRetryTimeout : DWORD;
  5346. end;
  5347. _PRINTER_INFO_5 = PRINTER_INFO_5;
  5348. TPRINTERINFO5 = PRINTER_INFO_5;
  5349. PPRINTERINFO5 = ^PRINTER_INFO_5;
  5350. PRINTER_NOTIFY_INFO_DATA = record
  5351. _Type : WORD;
  5352. Field : WORD;
  5353. Reserved : DWORD;
  5354. Id : DWORD;
  5355. NotifyData : record
  5356. case longint of
  5357. 0 : ( adwData : array[0..1] of DWORD );
  5358. 1 : ( Data : record
  5359. cbBuf : DWORD;
  5360. pBuf : LPVOID;
  5361. end );
  5362. end;
  5363. end;
  5364. _PRINTER_NOTIFY_INFO_DATA = PRINTER_NOTIFY_INFO_DATA;
  5365. TPRINTERNOTIFYINFODATA = PRINTER_NOTIFY_INFO_DATA;
  5366. PPRINTERNOTIFYINFODATA = ^PRINTER_NOTIFY_INFO_DATA;
  5367. PRINTER_NOTIFY_INFO = record
  5368. Version : DWORD;
  5369. Flags : DWORD;
  5370. Count : DWORD;
  5371. aData : array[0..0] of PRINTER_NOTIFY_INFO_DATA;
  5372. end;
  5373. _PRINTER_NOTIFY_INFO = PRINTER_NOTIFY_INFO;
  5374. TPRINTERNOTIFYINFO = PRINTER_NOTIFY_INFO;
  5375. PPRINTERNOTIFYINFO = ^PRINTER_NOTIFY_INFO;
  5376. PRINTER_NOTIFY_OPTIONS_TYPE = record
  5377. _Type : WORD;
  5378. Reserved0 : WORD;
  5379. Reserved1 : DWORD;
  5380. Reserved2 : DWORD;
  5381. Count : DWORD;
  5382. pFields : PWORD;
  5383. end;
  5384. PPRINTER_NOTIFY_OPTIONS_TYPE = ^PRINTER_NOTIFY_OPTIONS_TYPE;
  5385. _PRINTER_NOTIFY_OPTIONS_TYPE = PRINTER_NOTIFY_OPTIONS_TYPE;
  5386. TPRINTERNOTIFYOPTIONSTYPE = PRINTER_NOTIFY_OPTIONS_TYPE;
  5387. PPRINTERNOTIFYOPTIONSTYPE = ^PRINTER_NOTIFY_OPTIONS_TYPE;
  5388. PRINTER_NOTIFY_OPTIONS = record
  5389. Version : DWORD;
  5390. Flags : DWORD;
  5391. Count : DWORD;
  5392. pTypes : PPRINTER_NOTIFY_OPTIONS_TYPE;
  5393. end;
  5394. _PRINTER_NOTIFY_OPTIONS = PRINTER_NOTIFY_OPTIONS;
  5395. TPRINTERNOTIFYOPTIONS = PRINTER_NOTIFY_OPTIONS;
  5396. PPRINTERNOTIFYOPTIONS = ^PRINTER_NOTIFY_OPTIONS;
  5397. PRINTPROCESSOR_INFO_1 = record
  5398. pName : LPTSTR;
  5399. end;
  5400. _PRINTPROCESSOR_INFO_1 = PRINTPROCESSOR_INFO_1;
  5401. TPRINTPROCESSORINFO1 = PRINTPROCESSOR_INFO_1;
  5402. PPRINTPROCESSORINFO1 = ^PRINTPROCESSOR_INFO_1;
  5403. PRIVILEGE_SET = record
  5404. PrivilegeCount : DWORD;
  5405. Control : DWORD;
  5406. Privilege : array[0..(ANYSIZE_ARRAY)-1] of LUID_AND_ATTRIBUTES;
  5407. end;
  5408. LPPRIVILEGE_SET = ^PRIVILEGE_SET;
  5409. PPRIVILEGE_SET = ^PRIVILEGE_SET;
  5410. _PRIVILEGE_SET = PRIVILEGE_SET;
  5411. TPRIVILEGESET = PRIVILEGE_SET;
  5412. PPRIVILEGESET = ^PRIVILEGE_SET;
  5413. PROCESS_HEAPENTRY = record
  5414. lpData : PVOID;
  5415. cbData : DWORD;
  5416. cbOverhead : BYTE;
  5417. iRegionIndex : BYTE;
  5418. wFlags : WORD;
  5419. case longint of
  5420. 0 : (hMem : HANDLE;
  5421. dwReserved : array [0..2] of DWORD;
  5422. );
  5423. 1 : (dwCommittedSize : DWORD;
  5424. dwUnCommittedSize : DWORD;
  5425. lpFirstBlock : LPVOID;
  5426. lpLastBlock : LPVOID;
  5427. );
  5428. end;
  5429. LPPROCESS_HEAP_ENTRY = ^PROCESS_HEAPENTRY;
  5430. _PROCESS_HEAP_ENTRY = PROCESS_HEAPENTRY;
  5431. TPROCESSHEAPENTRY = PROCESS_HEAPENTRY;
  5432. PPROCESSHEAPENTRY = ^PROCESS_HEAPENTRY;
  5433. PROCESS_INFORMATION = record
  5434. hProcess : HANDLE;
  5435. hThread : HANDLE;
  5436. dwProcessId : DWORD;
  5437. dwThreadId : DWORD;
  5438. end;
  5439. LPPROCESS_INFORMATION = ^PROCESS_INFORMATION;
  5440. _PROCESS_INFORMATION = PROCESS_INFORMATION;
  5441. TPROCESSINFORMATION = PROCESS_INFORMATION;
  5442. PPROCESSINFORMATION = ^PROCESS_INFORMATION;
  5443. LPFNPSPCALLBACK = function (_para1:HWND; _para2:UINT; _para3:LPVOID):UINT;stdcall;
  5444. TFNPSPCALLBACK = LPFNPSPCALLBACK;
  5445. PROPSHEETPAGE = record
  5446. dwSize : DWORD;
  5447. dwFlags : DWORD;
  5448. hInstance : HINST;
  5449. case longint of
  5450. 0 : (pszTemplate : LPCTSTR);
  5451. 1 : (pResource : LPCDLGTEMPLATE;
  5452. case longint of
  5453. 0 : (hIcon : HICON);
  5454. 1 : (pszIcon : LPCTSTR;
  5455. pszTitle : LPCTSTR;
  5456. pfnDlgProc : DLGPROC;
  5457. lParam : LPARAM;
  5458. pfnCallback : LPFNPSPCALLBACK;
  5459. pcRefParent : ^UINT;
  5460. );
  5461. );
  5462. end;
  5463. LPPROPSHEETPAGE = ^PROPSHEETPAGE;
  5464. LPCPROPSHEETPAGE = ^PROPSHEETPAGE;
  5465. _PROPSHEETPAGE = PROPSHEETPAGE;
  5466. TPROPSHEETPAGE = PROPSHEETPAGE;
  5467. PPROPSHEETPAGE = ^PROPSHEETPAGE;
  5468. emptyrecord = record
  5469. end;
  5470. lpemptyrecord = ^emptyrecord;
  5471. HPROPSHEETPAGE = ^emptyrecord;
  5472. PROPSHEETHEADER = record
  5473. dwSize : DWORD;
  5474. dwFlags : DWORD;
  5475. hwndParent : HWND;
  5476. hInstance : HINST;
  5477. case longint of
  5478. 0 : (hIcon : HICON);
  5479. 1 : (pszIcon : LPCTSTR;
  5480. pszCaption : LPCTSTR;
  5481. nPages : UINT;
  5482. case longint of
  5483. 0 : (nStartPage : UINT);
  5484. 1 : (pStartPage : LPCTSTR;
  5485. case longint of
  5486. 0 : (ppsp : LPCPROPSHEETPAGE);
  5487. 1 : (phpage : ^HPROPSHEETPAGE;
  5488. pfnCallback : PFNPROPSHEETCALLBACK;
  5489. case longint of
  5490. 0 : (hbmWatermark : HBITMAP);
  5491. 1 : (pszbmWatermark : LPCTSTR;
  5492. hplWatermark : HPALETTE;
  5493. case longint of
  5494. 0 : (hbmHeader : HBITMAP);
  5495. 1 : (pszbmHeader: PAnsiChar);
  5496. );
  5497. );
  5498. );
  5499. );
  5500. end;
  5501. LPPROPSHEETHEADER = ^PROPSHEETHEADER;
  5502. LPCPROPSHEETHEADER = ^PROPSHEETHEADER;
  5503. _PROPSHEETHEADER = PROPSHEETHEADER;
  5504. TPROPSHEETHEADER = PROPSHEETHEADER;
  5505. PPROPSHEETHEADER = ^PROPSHEETHEADER;
  5506. { PropertySheet callbacks }
  5507. LPFNADDPROPSHEETPAGE = function (_para1:HPROPSHEETPAGE; _para2:LPARAM):WINBOOL;stdcall;
  5508. TFNADDPROPSHEETPAGE = LPFNADDPROPSHEETPAGE;
  5509. LPFNADDPROPSHEETPAGES = function (_para1:LPVOID; _para2:LPFNADDPROPSHEETPAGE; _para3:LPARAM):WINBOOL;stdcall;
  5510. TFNADDPROPSHEETPAGES = LPFNADDPROPSHEETPAGES;
  5511. PROTOCOL_INFO = record
  5512. dwServiceFlags : DWORD;
  5513. iAddressFamily : WINT;
  5514. iMaxSockAddr : WINT;
  5515. iMinSockAddr : WINT;
  5516. iSocketType : WINT;
  5517. iProtocol : WINT;
  5518. dwMessageSize : DWORD;
  5519. lpProtocol : LPTSTR;
  5520. end;
  5521. _PROTOCOL_INFO = PROTOCOL_INFO;
  5522. TPROTOCOLINFO = PROTOCOL_INFO;
  5523. PPROTOCOLINFO = ^PROTOCOL_INFO;
  5524. PROVIDOR_INFO_1 = record
  5525. pName : LPTSTR;
  5526. pEnvironment : LPTSTR;
  5527. pDLLName : LPTSTR;
  5528. end;
  5529. _PROVIDOR_INFO_1 = PROVIDOR_INFO_1;
  5530. TPROVIDORINFO1 = PROVIDOR_INFO_1;
  5531. PPROVIDORINFO1 = ^PROVIDOR_INFO_1;
  5532. PSHNOTIFY = record
  5533. hdr : NMHDR;
  5534. lParam : LPARAM;
  5535. end;
  5536. LPPSHNOTIFY = ^PSHNOTIFY;
  5537. _PSHNOTIFY = PSHNOTIFY;
  5538. TPSHNOTIFY = PSHNOTIFY;
  5539. PPSHNOTIFY = ^PSHNOTIFY;
  5540. PUNCTUATION = record
  5541. iSize : UINT;
  5542. szPunctuation : LPSTR;
  5543. end;
  5544. _punctuation = PUNCTUATION;
  5545. Tpunctuation = PUNCTUATION;
  5546. Ppunctuation = ^PUNCTUATION;
  5547. QUERY_SERVICE_CONFIG = record
  5548. dwServiceType : DWORD;
  5549. dwStartType : DWORD;
  5550. dwErrorControl : DWORD;
  5551. lpBinaryPathName : LPTSTR;
  5552. lpLoadOrderGroup : LPTSTR;
  5553. dwTagId : DWORD;
  5554. lpDependencies : LPTSTR;
  5555. lpServiceStartName : LPTSTR;
  5556. lpDisplayName : LPTSTR;
  5557. end;
  5558. LPQUERY_SERVICE_CONFIG = ^QUERY_SERVICE_CONFIG;
  5559. _QUERY_SERVICE_CONFIG = QUERY_SERVICE_CONFIG;
  5560. TQUERYSERVICECONFIG = QUERY_SERVICE_CONFIG;
  5561. PQUERYSERVICECONFIG = ^QUERY_SERVICE_CONFIG;
  5562. QUERY_SERVICE_LOCK_STATUS = record
  5563. fIsLocked : DWORD;
  5564. lpLockOwner : LPTSTR;
  5565. dwLockDuration : DWORD;
  5566. end;
  5567. LPQUERY_SERVICE_LOCK_STATUS = ^QUERY_SERVICE_LOCK_STATUS;
  5568. _QUERY_SERVICE_LOCK_STATUS = QUERY_SERVICE_LOCK_STATUS;
  5569. TQUERYSERVICELOCKSTATUS = QUERY_SERVICE_LOCK_STATUS;
  5570. PQUERYSERVICELOCKSTATUS = ^QUERY_SERVICE_LOCK_STATUS;
  5571. RASAMBA = record
  5572. dwSize : DWORD;
  5573. dwError : DWORD;
  5574. szNetBiosError : array[0..(NETBIOS_NAME_LEN + 1)-1] of AnsiCHAR;
  5575. bLana : BYTE;
  5576. end;
  5577. _RASAMBA = RASAMBA;
  5578. TRASAMBA = RASAMBA;
  5579. PRASAMBA = ^RASAMBA;
  5580. RASAMBW = record
  5581. dwSize : DWORD;
  5582. dwError : DWORD;
  5583. szNetBiosError : array[0..(NETBIOS_NAME_LEN + 1)-1] of WideCHAR;
  5584. bLana : BYTE;
  5585. end;
  5586. _RASAMBW = RASAMBW;
  5587. TRASAMBW = RASAMBW;
  5588. PRASAMBW = ^RASAMBW;
  5589. {$ifdef Unicode}
  5590. _RASAMB = RASAMBW;
  5591. TRASAMB = RASAMBW;
  5592. PRASAMB = PRASAMBW;
  5593. RASAMB = RASAMBW;
  5594. {$else}
  5595. _RASAMB = RASAMBA;
  5596. TRASAMB = RASAMBA;
  5597. RASAMB = RASAMBA;
  5598. PRASAMB = PRASAMBA;
  5599. {$endif}
  5600. RASCONNA = record
  5601. dwSize : DWORD;
  5602. hrasconn : HRASCONN;
  5603. szEntryName : array[0..(RAS_MaxEntryName + 1)-1] of AnsiCHAR;
  5604. szDeviceType : array[0..(RAS_MaxDeviceType + 1)-1] of AnsiCHAR;
  5605. szDeviceName : array[0..(RAS_MaxDeviceName + 1)-1] of AnsiCHAR;
  5606. end;
  5607. _RASCONNA = RASCONNA;
  5608. TRASCONNA = RASCONNA;
  5609. PRASCONNA = ^RASCONNA;
  5610. RASCONNW = record
  5611. dwSize : DWORD;
  5612. hrasconn : HRASCONN;
  5613. szEntryName : array[0..(RAS_MaxEntryName + 1)-1] of WideCHAR;
  5614. szDeviceType : array[0..(RAS_MaxDeviceType + 1)-1] of WideCHAR;
  5615. szDeviceName : array[0..(RAS_MaxDeviceName + 1)-1] of WideCHAR;
  5616. end;
  5617. _RASCONNW = RASCONNW;
  5618. TRASCONNW = RASCONNW;
  5619. PRASCONNW = ^RASCONNW;
  5620. {$ifdef Unicode}
  5621. _RASCONN = RASCONNW;
  5622. TRASCONN = RASCONNW;
  5623. PRASCONN = PRASCONNW;
  5624. RASCONN = RASCONNW;
  5625. {$else}
  5626. _RASCONN = RASCONNA;
  5627. TRASCONN = RASCONNA;
  5628. PRASCONN = PRASCONNA;
  5629. RASCONN = RASCONNA;
  5630. {$endif}
  5631. { actually: in_addr }
  5632. RASIPV4ADDR = record
  5633. case longint of
  5634. 0 : (s_b1 : BYTE;
  5635. s_b2 : BYTE;
  5636. s_b3 : BYTE;
  5637. s_b4 : BYTE;
  5638. );
  5639. 1 : (s_w1 : USHORT;
  5640. s_w2 : USHORT;
  5641. );
  5642. 2 : (S_addr : ULONG;);
  5643. end;
  5644. { actually: in6_addr }
  5645. RASIPV6ADDR = record
  5646. case longint of
  5647. 0 : (rbyte : array[0..15] of BYTE);
  5648. 1 : (rword : array[0..7] of USHORT);
  5649. end;
  5650. RASTUNNELENDPOINT = record
  5651. dwType : DWORD;
  5652. case longint of
  5653. 0 : (ipv4 : RASIPV4ADDR);
  5654. 1 : (ipv6 : RASIPV6ADDR);
  5655. end;
  5656. RASCONNSUBSTATE = longint; //enumerated type
  5657. RASCONNSTATUSA = record
  5658. dwSize : DWORD;
  5659. rasconnstate : RASCONNSTATE;
  5660. dwError : DWORD;
  5661. szDeviceType : array[0..(RAS_MaxDeviceType + 1)-1] of AnsiCHAR;
  5662. szDeviceName : array[0..(RAS_MaxDeviceName + 1)-1] of AnsiCHAR;
  5663. szPhoneNumber : array[0..(RAS_MaxPhoneNumber + 1)-1] of AnsiCHAR; // http://msdn.microsoft.com/en-us/library/windows/desktop/aa376728%28v=vs.85%29.aspx
  5664. localEndPoint : RASTUNNELENDPOINT;
  5665. remoteEndPoint : RASTUNNELENDPOINT;
  5666. rasconnsubstate : RASCONNSUBSTATE;
  5667. end;
  5668. _RASCONNSTATUSA = RASCONNSTATUSA;
  5669. TRASCONNSTATUSA = RASCONNSTATUSA;
  5670. PRASCONNSTATUSA = ^RASCONNSTATUSA;
  5671. RASCONNSTATUSW = record
  5672. dwSize : DWORD;
  5673. rasconnstate : RASCONNSTATE;
  5674. dwError : DWORD;
  5675. szDeviceType : array[0..(RAS_MaxDeviceType + 1)-1] of WideCHAR;
  5676. szDeviceName : array[0..(RAS_MaxDeviceName + 1)-1] of WideCHAR;
  5677. szPhoneNumber : array[0..(RAS_MaxPhoneNumber + 1)-1] of WideCHAR; // http://msdn.microsoft.com/en-us/library/windows/desktop/aa376728%28v=vs.85%29.aspx
  5678. localEndPoint : RASTUNNELENDPOINT;
  5679. remoteEndPoint : RASTUNNELENDPOINT;
  5680. rasconnsubstate : RASCONNSUBSTATE;
  5681. end;
  5682. _RASCONNSTATUSW = RASCONNSTATUSW;
  5683. TRASCONNSTATUSW = RASCONNSTATUSW;
  5684. PRASCONNSTATUSW = ^RASCONNSTATUSW;
  5685. {$ifdef Unicode}
  5686. _RASCONNSTATUS = RASCONNSTATUSW;
  5687. TRASCONNSTATUS = RASCONNSTATUSW;
  5688. PRASCONNSTATUS = PRASCONNSTATUSW;
  5689. RASCONNSTATUS = RASCONNSTATUSW;
  5690. {$else}
  5691. _RASCONNSTATUS = RASCONNSTATUSA;
  5692. TRASCONNSTATUS = RASCONNSTATUSA;
  5693. PRASCONNSTATUS = PRASCONNSTATUSA;
  5694. RASCONNSTATUS = RASCONNSTATUSA;
  5695. {$endif}
  5696. RASDIALEXTENSIONS = record
  5697. dwSize : DWORD;
  5698. dwfOptions : DWORD;
  5699. hwndParent : HWND;
  5700. reserved : DWORD;
  5701. end;
  5702. _RASDIALEXTENSIONS = RASDIALEXTENSIONS;
  5703. TRASDIALEXTENSIONS = RASDIALEXTENSIONS;
  5704. PRASDIALEXTENSIONS = ^RASDIALEXTENSIONS;
  5705. RASDIALPARAMSA = record
  5706. dwSize : DWORD;
  5707. szEntryName : array[0..(RAS_MaxEntryName + 1)-1] of AnsiCHAR;
  5708. szPhoneNumber : array[0..(RAS_MaxPhoneNumber + 1)-1] of AnsiCHAR;
  5709. szCallbackNumber : array[0..(RAS_MaxCallbackNumber + 1)-1] of AnsiCHAR;
  5710. szUserName : array[0..(UNLEN + 1)-1] of AnsiCHAR;
  5711. szPassword : array[0..(PWLEN + 1)-1] of AnsiCHAR;
  5712. szDomain : array[0..(DNLEN + 1)-1] of AnsiCHAR;
  5713. dwSubEntry : DWORD; // http://msdn.microsoft.com/en-us/library/windows/desktop/aa377238%28v=vs.85%29.aspx
  5714. dwCallbackId : ULONG_PTR;
  5715. dwIfIndex : DWORD;
  5716. end;
  5717. _RASDIALPARAMSA = RASDIALPARAMSA;
  5718. TRASDIALPARAMSA = RASDIALPARAMSA;
  5719. PRASDIALPARAMSA = ^RASDIALPARAMSA;
  5720. RASDIALPARAMSW = record
  5721. dwSize : DWORD;
  5722. szEntryName : array[0..(RAS_MaxEntryName + 1)-1] of WCHAR;
  5723. szPhoneNumber : array[0..(RAS_MaxPhoneNumber + 1)-1] of WCHAR;
  5724. szCallbackNumber : array[0..(RAS_MaxCallbackNumber + 1)-1] of WCHAR;
  5725. szUserName : array[0..(UNLEN + 1)-1] of WCHAR;
  5726. szPassword : array[0..(PWLEN + 1)-1] of WCHAR;
  5727. szDomain : array[0..(DNLEN + 1)-1] of WCHAR;
  5728. dwSubEntry : DWORD; // http://msdn.microsoft.com/en-us/library/windows/desktop/aa377238%28v=vs.85%29.aspx
  5729. dwCallbackId : ULONG_PTR;
  5730. dwIfIndex : DWORD;
  5731. end;
  5732. _RASDIALPARAMSW = RASDIALPARAMSW;
  5733. TRASDIALPARAMSW = RASDIALPARAMSW;
  5734. PRASDIALPARAMSW = ^RASDIALPARAMSW;
  5735. {$ifdef Unicode}
  5736. _RASDIALPARAMS = RASDIALPARAMSW;
  5737. TRASDIALPARAMS = RASDIALPARAMSW;
  5738. PRASDIALPARAMS = PRASDIALPARAMSW;
  5739. RASDIALPARAMS = RASDIALPARAMSW;
  5740. {$else}
  5741. _RASDIALPARAMS = RASDIALPARAMSA;
  5742. TRASDIALPARAMS = RASDIALPARAMSA;
  5743. PRASDIALPARAMS = PRASDIALPARAMSA;
  5744. RASDIALPARAMS = RASDIALPARAMSA;
  5745. {$endif}
  5746. RASENTRYNAMEA = record
  5747. dwSize : DWORD;
  5748. szEntryName : array[0..(RAS_MaxEntryName + 1)-1] of AnsiCHAR;
  5749. { Winver>=0x500 members }
  5750. dwFlags : DWORD;
  5751. szPhonebookPath : array[0..(MAX_PATH + 1)-1] of AnsiCHAR;
  5752. end;
  5753. _RASENTRYNAMEA = RASENTRYNAMEA;
  5754. TRASENTRYNAMEA = RASENTRYNAMEA;
  5755. PRASENTRYNAMEA = ^RASENTRYNAMEA;
  5756. RASENTRYNAMEW = record
  5757. dwSize : DWORD;
  5758. szEntryName : array[0..(RAS_MaxEntryName + 1)-1] of WCHAR;
  5759. { Winver>=0x500 members }
  5760. dwFlags : DWORD;
  5761. szPhonebookPath : array[0..(MAX_PATH + 1)-1] of WCHAR;
  5762. end;
  5763. _RASENTRYNAMEW = RASENTRYNAMEW;
  5764. TRASENTRYNAMEW = RASENTRYNAMEW;
  5765. PRASENTRYNAMEW = ^RASENTRYNAMEW;
  5766. {$ifdef Unicode}
  5767. _RASENTRYNAME = RASENTRYNAMEW;
  5768. TRASENTRYNAME = RASENTRYNAMEW;
  5769. PRASENTRYNAME = ^RASENTRYNAMEW;
  5770. RASENTRYNAME = RASENTRYNAMEW;
  5771. {$else}
  5772. _RASENTRYNAME = RASENTRYNAMEA;
  5773. TRASENTRYNAME = RASENTRYNAMEA;
  5774. PRASENTRYNAME = ^RASENTRYNAMEA;
  5775. RASENTRYNAME = RASENTRYNAMEA;
  5776. {$endif}
  5777. RASPPPIPA = record
  5778. dwSize : DWORD;
  5779. dwError : DWORD;
  5780. szIpAddress : array[0..(RAS_MaxIpAddress + 1)-1] of AnsiCHAR;
  5781. end;
  5782. _RASPPPIPA = RASPPPIPA;
  5783. TRASPPPIPA = RASPPPIPA;
  5784. PRASPPPIPA = ^RASPPPIPA;
  5785. RASPPPIPW = record
  5786. dwSize : DWORD;
  5787. dwError : DWORD;
  5788. szIpAddress : array[0..(RAS_MaxIpAddress + 1)-1] of WCHAR;
  5789. end;
  5790. _RASPPPIPW = RASPPPIPW;
  5791. TRASPPPIPW = RASPPPIPW;
  5792. PRASPPPIPW = ^RASPPPIPW;
  5793. {$ifdef Unicode}
  5794. _RASPPPIP = RASPPPIPW;
  5795. TRASPPPIP = RASPPPIPW;
  5796. PRASPPPIP = PRASPPPIPW;
  5797. RASPPPIP = RASPPPIPW;
  5798. {$else}
  5799. _RASPPPIP = RASPPPIPA;
  5800. TRASPPPIP = RASPPPIPA;
  5801. PRASPPPIP = PRASPPPIPA;
  5802. RASPPPIP = RASPPPIPA;
  5803. {$endif}
  5804. RASPPPIPXA = record
  5805. dwSize : DWORD;
  5806. dwError : DWORD;
  5807. szIpxAddress : array[0..(RAS_MaxIpxAddress + 1)-1] of AnsiCHAR;
  5808. end;
  5809. _RASPPPIPXA = RASPPPIPXA;
  5810. TRASPPPIPXA = RASPPPIPXA;
  5811. PRASPPPIPXA = ^RASPPPIPXA;
  5812. RASPPPIPXW = record
  5813. dwSize : DWORD;
  5814. dwError : DWORD;
  5815. szIpxAddress : array[0..(RAS_MaxIpxAddress + 1)-1] of WCHAR;
  5816. end;
  5817. _RASPPPIPXW = RASPPPIPXW;
  5818. TRASPPPIPXW = RASPPPIPXW;
  5819. PRASPPPIPXW = ^RASPPPIPXW;
  5820. {$ifdef Unicode}
  5821. _RASPPPIPX = RASPPPIPXW;
  5822. TRASPPPIPX = RASPPPIPXW;
  5823. PRASPPPIPX = PRASPPPIPXW;
  5824. RASPPPIPX = RASPPPIPXW;
  5825. {$else}
  5826. _RASPPPIPX = RASPPPIPXA;
  5827. TRASPPPIPX = RASPPPIPXA;
  5828. PRASPPPIPX = PRASPPPIPXA;
  5829. RASPPPIPX = RASPPPIPXA;
  5830. {$endif}
  5831. RASPPPNBFA = record
  5832. dwSize : DWORD;
  5833. dwError : DWORD;
  5834. dwNetBiosError : DWORD;
  5835. szNetBiosError : array[0..(NETBIOS_NAME_LEN + 1)-1] of AnsiCHAR;
  5836. szWorkstationName : array[0..(NETBIOS_NAME_LEN + 1)-1] of AnsiCHAR;
  5837. bLana : BYTE;
  5838. end;
  5839. _RASPPPNBFA = RASPPPNBFA;
  5840. TRASPPPNBFA = RASPPPNBFA;
  5841. PRASPPPNBFA = ^RASPPPNBFA;
  5842. RASPPPNBFW = record
  5843. dwSize : DWORD;
  5844. dwError : DWORD;
  5845. dwNetBiosError : DWORD;
  5846. szNetBiosError : array[0..(NETBIOS_NAME_LEN + 1)-1] of WCHAR;
  5847. szWorkstationName : array[0..(NETBIOS_NAME_LEN + 1)-1] of WCHAR;
  5848. bLana : BYTE;
  5849. end;
  5850. _RASPPPNBFW = RASPPPNBFW;
  5851. TRASPPPNBFW = RASPPPNBFW;
  5852. PRASPPPNBFW = ^RASPPPNBFW;
  5853. {$ifdef Unicode}
  5854. _RASPPPNBF = RASPPPNBFW;
  5855. TRASPPPNBF = RASPPPNBFW;
  5856. PRASPPPNBF = PRASPPPNBFW;
  5857. RASPPPNBF = RASPPPNBFW;
  5858. {$else}
  5859. _RASPPPNBF = RASPPPNBFA;
  5860. TRASPPPNBF = RASPPPNBFA;
  5861. PRASPPPNBF = PRASPPPNBFA;
  5862. RASPPPNBF = RASPPPNBFA;
  5863. {$endif}
  5864. RASTERIZER_STATUS = record
  5865. nSize : short;
  5866. wFlags : short;
  5867. nLanguageID : short;
  5868. end;
  5869. LPRASTERIZER_STATUS = ^RASTERIZER_STATUS;
  5870. _RASTERIZER_STATUS = RASTERIZER_STATUS;
  5871. TRASTERIZERSTATUS = RASTERIZER_STATUS;
  5872. PRASTERIZERSTATUS = ^RASTERIZER_STATUS;
  5873. REASSIGN_BLOCKS = record
  5874. Reserved : WORD;
  5875. Count : WORD;
  5876. BlockNumber : array[0..0] of DWORD;
  5877. end;
  5878. _REASSIGN_BLOCKS = REASSIGN_BLOCKS;
  5879. TREASSIGNBLOCKS = REASSIGN_BLOCKS;
  5880. PREASSIGNBLOCKS = ^REASSIGN_BLOCKS;
  5881. REMOTE_NAME_INFOA = record
  5882. lpUniversalName : LPTSTR;
  5883. lpConnectionName : LPTSTR;
  5884. lpRemainingPath : LPTSTR;
  5885. end;
  5886. _REMOTE_NAME_INFOA = REMOTE_NAME_INFOA;
  5887. TREMOTENAMEINFOA = REMOTE_NAME_INFOA;
  5888. PREMOTENAMEINFOA = ^REMOTE_NAME_INFOA;
  5889. REMOTE_NAME_INFOW = record
  5890. lpUniversalName : LPWSTR;
  5891. lpConnectionName : LPWSTR;
  5892. lpRemainingPath : LPWSTR;
  5893. end;
  5894. _REMOTE_NAME_INFOW = REMOTE_NAME_INFOW;
  5895. TREMOTENAMEINFOW = REMOTE_NAME_INFOW;
  5896. PREMOTENAMEINFOW = ^REMOTE_NAME_INFOW;
  5897. {$IFNDEF UNICODE}
  5898. REMOTE_NAME_INFO = REMOTE_NAME_INFOA;
  5899. _REMOTE_NAME_INFO = REMOTE_NAME_INFOA;
  5900. TREMOTENAMEINFO = REMOTE_NAME_INFOA;
  5901. PREMOTENAMEINFO = ^REMOTE_NAME_INFOA;
  5902. {$ELSE UNICODE}
  5903. REMOTE_NAME_INFO = REMOTE_NAME_INFOW;
  5904. _REMOTE_NAME_INFO = REMOTE_NAME_INFOW;
  5905. TREMOTENAMEINFO = REMOTE_NAME_INFOW;
  5906. PREMOTENAMEINFO = ^REMOTE_NAME_INFOW;
  5907. {$ENDIF UNICODE}
  5908. (*
  5909. TODO: OLE
  5910. typedef struct _reobject {
  5911. DWORD cbStruct;
  5912. LONG cp;
  5913. CLSID clsid;
  5914. LPOLEOBJECT poleobj;
  5915. LPSTORAGE pstg;
  5916. LPOLECLIENTSITE polesite;
  5917. SIZEL sizel;
  5918. DWORD dvaspect;
  5919. DWORD dwFlags;
  5920. DWORD dwUser;
  5921. } REOBJECT;
  5922. *)
  5923. REPASTESPECIAL = record
  5924. dwAspect : DWORD;
  5925. dwParam : DWORD;
  5926. end;
  5927. _repastespecial = REPASTESPECIAL;
  5928. Trepastespecial = REPASTESPECIAL;
  5929. Prepastespecial = ^REPASTESPECIAL;
  5930. REQRESIZE = record
  5931. nmhdr : NMHDR;
  5932. rc : RECT;
  5933. end;
  5934. _reqresize = REQRESIZE;
  5935. Treqresize = REQRESIZE;
  5936. Preqresize = ^REQRESIZE;
  5937. RGNDATAHEADER = record
  5938. dwSize : DWORD;
  5939. iType : DWORD;
  5940. nCount : DWORD;
  5941. nRgnSize : DWORD;
  5942. rcBound : RECT;
  5943. end;
  5944. _RGNDATAHEADER = RGNDATAHEADER;
  5945. TRGNDATAHEADER = RGNDATAHEADER;
  5946. PRGNDATAHEADER = ^RGNDATAHEADER;
  5947. RGNDATA = record
  5948. rdh : RGNDATAHEADER;
  5949. Buffer : array[0..0] of Ansichar;
  5950. end;
  5951. LPRGNDATA = ^RGNDATA;
  5952. _RGNDATA = RGNDATA;
  5953. TRGNDATA = RGNDATA;
  5954. PRGNDATA = ^RGNDATA;
  5955. SCROLLINFO = record
  5956. cbSize : UINT;
  5957. fMask : UINT;
  5958. nMin : longint;
  5959. nMax : longint;
  5960. nPage : UINT;
  5961. nPos : longint;
  5962. nTrackPos : longint;
  5963. end;
  5964. LPSCROLLINFO = ^SCROLLINFO;
  5965. LPCSCROLLINFO = ^SCROLLINFO;
  5966. tagSCROLLINFO = SCROLLINFO;
  5967. TSCROLLINFO = SCROLLINFO;
  5968. PSCROLLINFO = ^SCROLLINFO;
  5969. SECURITY_ATTRIBUTES = record
  5970. nLength : DWORD;
  5971. lpSecurityDescriptor : LPVOID;
  5972. bInheritHandle : WINBOOL;
  5973. end;
  5974. LPSECURITY_ATTRIBUTES = ^SECURITY_ATTRIBUTES;
  5975. _SECURITY_ATTRIBUTES = SECURITY_ATTRIBUTES;
  5976. TSECURITYATTRIBUTES = SECURITY_ATTRIBUTES;
  5977. PSECURITYATTRIBUTES = ^SECURITY_ATTRIBUTES;
  5978. SECURITY_INFORMATION = DWORD;
  5979. PSECURITY_INFORMATION = ^SECURITY_INFORMATION;
  5980. TSECURITYINFORMATION = SECURITY_INFORMATION;
  5981. PSECURITYINFORMATION = ^SECURITY_INFORMATION;
  5982. SELCHANGE = record
  5983. nmhdr : NMHDR;
  5984. chrg : CHARRANGE;
  5985. seltyp : WORD;
  5986. end;
  5987. _selchange = SELCHANGE;
  5988. Tselchange = SELCHANGE;
  5989. Pselchange = ^SELCHANGE;
  5990. SERIALKEYS = record
  5991. cbSize : UINT;
  5992. dwFlags : DWORD;
  5993. lpszActivePort : LPSTR;
  5994. lpszPort : LPSTR;
  5995. iBaudRate : DWORD;
  5996. iPortState : DWORD;
  5997. end;
  5998. LPSERIALKEYS = ^SERIALKEYS;
  5999. tagSERIALKEYS = SERIALKEYS;
  6000. TSERIALKEYS = SERIALKEYS;
  6001. PSERIALKEYS = ^SERIALKEYS;
  6002. SERVICE_TABLE_ENTRY = record
  6003. lpServiceName : LPTSTR;
  6004. lpServiceProc : LPSERVICE_MAIN_FUNCTION;
  6005. end;
  6006. LPSERVICE_TABLE_ENTRY = ^SERVICE_TABLE_ENTRY;
  6007. _SERVICE_TABLE_ENTRY = SERVICE_TABLE_ENTRY;
  6008. TSERVICETABLEENTRY = SERVICE_TABLE_ENTRY;
  6009. PSERVICETABLEENTRY = ^SERVICE_TABLE_ENTRY;
  6010. SERVICE_TYPE_VALUE_ABS = record
  6011. dwNameSpace : DWORD;
  6012. dwValueType : DWORD;
  6013. dwValueSize : DWORD;
  6014. lpValueName : LPTSTR;
  6015. lpValue : PVOID;
  6016. end;
  6017. _SERVICE_TYPE_VALUE_ABS = SERVICE_TYPE_VALUE_ABS;
  6018. TSERVICETYPEVALUEABS = SERVICE_TYPE_VALUE_ABS;
  6019. PSERVICETYPEVALUEABS = ^SERVICE_TYPE_VALUE_ABS;
  6020. SERVICE_TYPE_INFO_ABS = record
  6021. lpTypeName : LPTSTR;
  6022. dwValueCount : DWORD;
  6023. Values : array[0..0] of SERVICE_TYPE_VALUE_ABS;
  6024. end;
  6025. _SERVICE_TYPE_INFO_ABS = SERVICE_TYPE_INFO_ABS;
  6026. TSERVICETYPEINFOABS = SERVICE_TYPE_INFO_ABS;
  6027. PSERVICETYPEINFOABS = ^SERVICE_TYPE_INFO_ABS;
  6028. SESSION_BUFFER = record
  6029. lsn : UCHAR;
  6030. state : UCHAR;
  6031. local_name : array[0..(NCBNAMSZ)-1] of UCHAR;
  6032. remote_name : array[0..(NCBNAMSZ)-1] of UCHAR;
  6033. rcvs_outstanding : UCHAR;
  6034. sends_outstanding : UCHAR;
  6035. end;
  6036. _SESSION_BUFFER = SESSION_BUFFER;
  6037. TSESSIONBUFFER = SESSION_BUFFER;
  6038. PSESSIONBUFFER = ^SESSION_BUFFER;
  6039. SESSION_HEADER = record
  6040. sess_name : UCHAR;
  6041. num_sess : UCHAR;
  6042. rcv_dg_outstanding : UCHAR;
  6043. rcv_any_outstanding : UCHAR;
  6044. end;
  6045. _SESSION_HEADER = SESSION_HEADER;
  6046. TSESSIONHEADER = SESSION_HEADER;
  6047. PSESSIONHEADER = ^SESSION_HEADER;
  6048. SHCONTF = (SHCONTF_FOLDERS := 32,SHCONTF_NONFOLDERS := 64,
  6049. SHCONTF_INCLUDEHIDDEN := 128);
  6050. tagSHCONTF = SHCONTF;
  6051. TSHCONTF = SHCONTF;
  6052. SHFILEINFO = record
  6053. hIcon : HICON;
  6054. iIcon : longint;
  6055. dwAttributes : DWORD;
  6056. szDisplayName : array[0..(MAX_PATH)-1] of TCHAR;
  6057. szTypeName : array[0..79] of TCHAR;
  6058. end;
  6059. _SHFILEINFO = SHFILEINFO;
  6060. TSHFILEINFO = SHFILEINFO;
  6061. PSHFILEINFO = ^SHFILEINFO;
  6062. FILEOP_FLAGS = WORD;
  6063. TFILEOPFLAGS = FILEOP_FLAGS;
  6064. PFILEOPFLAGS = ^FILEOP_FLAGS;
  6065. SHFILEOPSTRUCT = record
  6066. hwnd : HWND;
  6067. wFunc : UINT;
  6068. pFrom : LPCSTR; // PCZZTSTR
  6069. pTo : LPCSTR; // PCZZTSTR
  6070. fFlags : FILEOP_FLAGS;
  6071. fAnyOperationsAborted : WINBOOL;
  6072. hNameMappings : LPVOID;
  6073. lpszProgressTitle : LPCSTR; // PCTSTR
  6074. end;
  6075. LPSHFILEOPSTRUCT = ^SHFILEOPSTRUCT;
  6076. _SHFILEOPSTRUCT = SHFILEOPSTRUCT;
  6077. TSHFILEOPSTRUCT = SHFILEOPSTRUCT;
  6078. PSHFILEOPSTRUCT = ^SHFILEOPSTRUCT;
  6079. SHGNO = (SHGDN_NORMAL := 0,SHGDN_INFOLDER := 1,
  6080. SHGDN_FORPARSING := $8000);
  6081. tagSHGDN = SHGNO;
  6082. TSHGDN = SHGNO;
  6083. SHNAMEMAPPING = record
  6084. pszOldPath : LPSTR;
  6085. pszNewPath : LPSTR;
  6086. cchOldPath : longint;
  6087. cchNewPath : longint;
  6088. end;
  6089. LPSHNAMEMAPPING = ^SHNAMEMAPPING;
  6090. _SHNAMEMAPPING = SHNAMEMAPPING;
  6091. TSHNAMEMAPPING = SHNAMEMAPPING;
  6092. PSHNAMEMAPPING = ^SHNAMEMAPPING;
  6093. SID_AND_ATTRIBUTES = record
  6094. Sid : PSID;
  6095. Attributes : DWORD;
  6096. end;
  6097. _SID_AND_ATTRIBUTES = SID_AND_ATTRIBUTES;
  6098. TSIDANDATTRIBUTES = SID_AND_ATTRIBUTES;
  6099. PSIDANDATTRIBUTES = ^SID_AND_ATTRIBUTES;
  6100. SID_AND_ATTRIBUTES_ARRAY = array[0..(ANYSIZE_ARRAY)-1] of SID_AND_ATTRIBUTES;
  6101. PSID_AND_ATTRIBUTES_ARRAY = ^SID_AND_ATTRIBUTES_ARRAY;
  6102. TSIDANDATTRIBUTESARRAY = SID_AND_ATTRIBUTES_ARRAY;
  6103. PSIDANDATTRIBUTESARRAY = ^SID_AND_ATTRIBUTES_ARRAY;
  6104. SINGLE_LIST_ENTRY = record
  6105. Next : ^_SINGLE_LIST_ENTRY;
  6106. end;
  6107. _SINGLE_LIST_ENTRY = SINGLE_LIST_ENTRY;
  6108. TSINGLELISTENTRY = SINGLE_LIST_ENTRY;
  6109. PSINGLELISTENTRY = ^SINGLE_LIST_ENTRY;
  6110. SOUNDSENTRY = record
  6111. cbSize : UINT;
  6112. dwFlags : DWORD;
  6113. iFSTextEffect : DWORD;
  6114. iFSTextEffectMSec : DWORD;
  6115. iFSTextEffectColorBits : DWORD;
  6116. iFSGrafEffect : DWORD;
  6117. iFSGrafEffectMSec : DWORD;
  6118. iFSGrafEffectColor : DWORD;
  6119. iWindowsEffect : DWORD;
  6120. iWindowsEffectMSec : DWORD;
  6121. lpszWindowsEffectDLL : LPTSTR;
  6122. iWindowsEffectOrdinal : DWORD;
  6123. end;
  6124. LPSOUNDSENTRY = ^SOUNDSENTRY;
  6125. tagSOUNDSENTRY = SOUNDSENTRY;
  6126. TSOUNDSENTRY = SOUNDSENTRY;
  6127. PSOUNDSENTRY = ^SOUNDSENTRY;
  6128. STARTUPINFOA = record
  6129. cb : DWORD;
  6130. lpReserved : LPSTR;
  6131. lpDesktop : LPSTR;
  6132. lpTitle : LPSTR;
  6133. dwX : DWORD;
  6134. dwY : DWORD;
  6135. dwXSize : DWORD;
  6136. dwYSize : DWORD;
  6137. dwXCountChars : DWORD;
  6138. dwYCountChars : DWORD;
  6139. dwFillAttribute : DWORD;
  6140. dwFlags : DWORD;
  6141. wShowWindow : WORD;
  6142. cbReserved2 : WORD;
  6143. lpReserved2 : LPBYTE;
  6144. hStdInput : HANDLE;
  6145. hStdOutput : HANDLE;
  6146. hStdError : HANDLE;
  6147. end;
  6148. LPSTARTUPINFOA = ^STARTUPINFOA;
  6149. _STARTUPINFOA = STARTUPINFOA;
  6150. TSTARTUPINFOA = STARTUPINFOA;
  6151. PSTARTUPINFOA = ^STARTUPINFOA;
  6152. STARTUPINFOW = record
  6153. cb : DWORD;
  6154. lpReserved : LPWSTR;
  6155. lpDesktop : LPWSTR;
  6156. lpTitle : LPWSTR;
  6157. dwX : DWORD;
  6158. dwY : DWORD;
  6159. dwXSize : DWORD;
  6160. dwYSize : DWORD;
  6161. dwXCountChars : DWORD;
  6162. dwYCountChars : DWORD;
  6163. dwFillAttribute : DWORD;
  6164. dwFlags : DWORD;
  6165. wShowWindow : WORD;
  6166. cbReserved2 : WORD;
  6167. lpReserved2 : LPBYTE;
  6168. hStdInput : HANDLE;
  6169. hStdOutput : HANDLE;
  6170. hStdError : HANDLE;
  6171. end;
  6172. LPSTARTUPINFOW = ^STARTUPINFOW;
  6173. _STARTUPINFOW = STARTUPINFOW;
  6174. TSTARTUPINFOW = STARTUPINFOW;
  6175. PSTARTUPINFOW = ^STARTUPINFOW;
  6176. STARTUPINFO = record
  6177. cb : DWORD;
  6178. lpReserved : LPTSTR;
  6179. lpDesktop : LPTSTR;
  6180. lpTitle : LPTSTR;
  6181. dwX : DWORD;
  6182. dwY : DWORD;
  6183. dwXSize : DWORD;
  6184. dwYSize : DWORD;
  6185. dwXCountChars : DWORD;
  6186. dwYCountChars : DWORD;
  6187. dwFillAttribute : DWORD;
  6188. dwFlags : DWORD;
  6189. wShowWindow : WORD;
  6190. cbReserved2 : WORD;
  6191. lpReserved2 : LPBYTE;
  6192. hStdInput : HANDLE;
  6193. hStdOutput : HANDLE;
  6194. hStdError : HANDLE;
  6195. end;
  6196. {$ifdef Unicode}
  6197. LPSTARTUPINFO = LPSTARTUPINFOW;
  6198. _STARTUPINFO = _STARTUPINFOW;
  6199. TSTARTUPINFO = TSTARTUPINFOW;
  6200. PSTARTUPINFO = PSTARTUPINFOW;
  6201. {$else}
  6202. LPSTARTUPINFO = LPSTARTUPINFOA;
  6203. _STARTUPINFO = _STARTUPINFOA;
  6204. TSTARTUPINFO = TSTARTUPINFOA;
  6205. PSTARTUPINFO = PSTARTUPINFOA;
  6206. {$endif}
  6207. STICKYKEYS = record
  6208. cbSize : DWORD;
  6209. dwFlags : DWORD;
  6210. end;
  6211. LPSTICKYKEYS = ^STICKYKEYS;
  6212. tagSTICKYKEYS = STICKYKEYS;
  6213. TSTICKYKEYS = STICKYKEYS;
  6214. PSTICKYKEYS = ^STICKYKEYS;
  6215. STRRET = record
  6216. utype : UINT;
  6217. case longint of
  6218. 0: ( polestr:LPWSTR);
  6219. 1: ( uOffset : UINT);
  6220. 2: ( cStr : array[0..(MAX_PATH)-1] of char );
  6221. end;
  6222. LPSTRRET = ^STRRET;
  6223. _STRRET = STRRET;
  6224. TSTRRET = STRRET;
  6225. PSTRRET = ^STRRET;
  6226. STYLEBUF = record
  6227. dwStyle : DWORD;
  6228. szDescription : array[0..31] of TCHAR;
  6229. end;
  6230. LPSTYLEBUF = ^STYLEBUF;
  6231. _tagSTYLEBUF = STYLEBUF;
  6232. TSTYLEBUF = STYLEBUF;
  6233. PSTYLEBUF = ^STYLEBUF;
  6234. STYLESTRUCT = record
  6235. styleOld : DWORD;
  6236. styleNew : DWORD;
  6237. end;
  6238. LPSTYLESTRUCT = ^STYLESTRUCT;
  6239. tagSTYLESTRUCT = STYLESTRUCT;
  6240. TSTYLESTRUCT = STYLESTRUCT;
  6241. PSTYLESTRUCT = ^STYLESTRUCT;
  6242. SYSTEM_AUDIT_ACE = record
  6243. Header : ACE_HEADER;
  6244. Mask : ACCESS_MASK;
  6245. SidStart : DWORD;
  6246. end;
  6247. _SYSTEM_AUDIT_ACE = SYSTEM_AUDIT_ACE;
  6248. TSYSTEMAUDITACE = SYSTEM_AUDIT_ACE;
  6249. PSYSTEMAUDITACE = ^SYSTEM_AUDIT_ACE;
  6250. SYSTEM_INFO = record
  6251. case longint of
  6252. 0 : ( dwOemId : DWORD;
  6253. dwPageSize : DWORD;
  6254. lpMinimumApplicationAddress : LPVOID;
  6255. lpMaximumApplicationAddress : LPVOID;
  6256. dwActiveProcessorMask : DWORD_PTR;
  6257. dwNumberOfProcessors : DWORD;
  6258. dwProcessorType : DWORD;
  6259. dwAllocationGranularity : DWORD;
  6260. wProcessorLevel : WORD;
  6261. wProcessorRevision : WORD;
  6262. );
  6263. 1 : (
  6264. wProcessorArchitecture : WORD;
  6265. wReserved : WORD;
  6266. );
  6267. end;
  6268. LPSYSTEM_INFO = ^SYSTEM_INFO;
  6269. _SYSTEM_INFO = SYSTEM_INFO;
  6270. TSYSTEMINFO = SYSTEM_INFO;
  6271. PSYSTEMINFO = ^SYSTEM_INFO;
  6272. SYSTEM_POWER_STATUS = record
  6273. ACLineStatus : BYTE;
  6274. BatteryFlag : BYTE;
  6275. BatteryLifePercent : BYTE;
  6276. Reserved1 : BYTE;
  6277. BatteryLifeTime : DWORD;
  6278. BatteryFullLifeTime : DWORD;
  6279. end;
  6280. _SYSTEM_POWER_STATUS = SYSTEM_POWER_STATUS;
  6281. TSYSTEMPOWERSTATUS = SYSTEM_POWER_STATUS;
  6282. PSYSTEMPOWERSTATUS = ^SYSTEM_POWER_STATUS;
  6283. LPSYSTEM_POWER_STATUS = ^emptyrecord;
  6284. TAPE_ERASE = record
  6285. _Type : ULONG;
  6286. Immediate : BOOLEAN;
  6287. end;
  6288. _TAPE_ERASE = TAPE_ERASE;
  6289. TTAPEERASE = TAPE_ERASE;
  6290. PTAPEERASE = ^TAPE_ERASE;
  6291. TAPE_GET_DRIVE_PARAMETERS = record
  6292. ECC : BOOLEAN;
  6293. Compression : BOOLEAN;
  6294. DataPadding : BOOLEAN;
  6295. ReportSetmarks : BOOLEAN;
  6296. DefaultBlockSize : ULONG;
  6297. MaximumBlockSize : ULONG;
  6298. MinimumBlockSize : ULONG;
  6299. MaximumPartitionCount : ULONG;
  6300. FeaturesLow : ULONG;
  6301. FeaturesHigh : ULONG;
  6302. EOTWarningZoneSize : ULONG;
  6303. end;
  6304. _TAPE_GET_DRIVE_PARAMETERS = TAPE_GET_DRIVE_PARAMETERS;
  6305. TTAPEGETDRIVEPARAMETERS = TAPE_GET_DRIVE_PARAMETERS;
  6306. PTAPEGETDRIVEPARAMETERS = ^TAPE_GET_DRIVE_PARAMETERS;
  6307. TAPE_GET_MEDIA_PARAMETERS = record
  6308. Capacity : LARGE_INTEGER;
  6309. Remaining : LARGE_INTEGER;
  6310. BlockSize : ULONG;
  6311. PartitionCount : ULONG;
  6312. WriteProtected : BOOLEAN;
  6313. end;
  6314. _TAPE_GET_MEDIA_PARAMETERS = TAPE_GET_MEDIA_PARAMETERS;
  6315. TTAPEGETMEDIAPARAMETERS = TAPE_GET_MEDIA_PARAMETERS;
  6316. PTAPEGETMEDIAPARAMETERS = ^TAPE_GET_MEDIA_PARAMETERS;
  6317. TAPE_GET_POSITION = record
  6318. _Type : ULONG;
  6319. Partition : ULONG;
  6320. OffsetLow : ULONG;
  6321. OffsetHigh : ULONG;
  6322. end;
  6323. _TAPE_GET_POSITION = TAPE_GET_POSITION;
  6324. TTAPEGETPOSITION = TAPE_GET_POSITION;
  6325. PTAPEGETPOSITION = ^TAPE_GET_POSITION;
  6326. TAPE_PREPARE = record
  6327. Operation : ULONG;
  6328. Immediate : BOOLEAN;
  6329. end;
  6330. _TAPE_PREPARE = TAPE_PREPARE;
  6331. TTAPEPREPARE = TAPE_PREPARE;
  6332. PTAPEPREPARE = ^TAPE_PREPARE;
  6333. TAPE_SET_DRIVE_PARAMETERS = record
  6334. ECC : BOOLEAN;
  6335. Compression : BOOLEAN;
  6336. DataPadding : BOOLEAN;
  6337. ReportSetmarks : BOOLEAN;
  6338. EOTWarningZoneSize : ULONG;
  6339. end;
  6340. _TAPE_SET_DRIVE_PARAMETERS = TAPE_SET_DRIVE_PARAMETERS;
  6341. TTAPESETDRIVEPARAMETERS = TAPE_SET_DRIVE_PARAMETERS;
  6342. PTAPESETDRIVEPARAMETERS = ^TAPE_SET_DRIVE_PARAMETERS;
  6343. TAPE_SET_MEDIA_PARAMETERS = record
  6344. BlockSize : ULONG;
  6345. end;
  6346. _TAPE_SET_MEDIA_PARAMETERS = TAPE_SET_MEDIA_PARAMETERS;
  6347. TTAPESETMEDIAPARAMETERS = TAPE_SET_MEDIA_PARAMETERS;
  6348. PTAPESETMEDIAPARAMETERS = ^TAPE_SET_MEDIA_PARAMETERS;
  6349. TAPE_SET_POSITION = record
  6350. Method : ULONG;
  6351. Partition : ULONG;
  6352. OffsetLow : ULONG;
  6353. OffsetHigh : ULONG;
  6354. Immediate : BOOLEAN;
  6355. end;
  6356. _TAPE_SET_POSITION = TAPE_SET_POSITION;
  6357. TTAPESETPOSITION = TAPE_SET_POSITION;
  6358. PTAPESETPOSITION = ^TAPE_SET_POSITION;
  6359. TAPE_WRITE_MARKS = record
  6360. _Type : ULONG;
  6361. Count : ULONG;
  6362. Immediate : BOOLEAN;
  6363. end;
  6364. _TAPE_WRITE_MARKS = TAPE_WRITE_MARKS;
  6365. TTAPEWRITEMARKS = TAPE_WRITE_MARKS;
  6366. PTAPEWRITEMARKS = ^TAPE_WRITE_MARKS;
  6367. TBADDBITMAP = record
  6368. hInst : HINST;
  6369. nID : UINT_PTR;
  6370. end;
  6371. LPTBADDBITMAP = ^TBADDBITMAP;
  6372. TTBADDBITMAP = TBADDBITMAP;
  6373. PTBADDBITMAP = ^TBADDBITMAP;
  6374. TBBUTTON = record
  6375. iBitmap : longint;
  6376. idCommand : longint;
  6377. fsState : BYTE;
  6378. fsStyle : BYTE;
  6379. {$ifdef _WIN64}
  6380. bReserved : array[0..5] of BYTE;
  6381. {$else}
  6382. bReserved : array[0..1] of BYTE;
  6383. {$endif}
  6384. dwData : DWORD_PTR;
  6385. iString : INT_PTR;
  6386. end;
  6387. LPTBBUTTON = ^TBBUTTON;
  6388. LPCTBBUTTON = ^TBBUTTON;
  6389. _TBBUTTON = TBBUTTON;
  6390. TTBBUTTON = TBBUTTON;
  6391. PTBBUTTON = ^TBBUTTON;
  6392. TBNOTIFY = record
  6393. hdr : NMHDR;
  6394. iItem : longint;
  6395. tbButton : TBBUTTON;
  6396. cchText : longint;
  6397. pszText : LPTSTR;
  6398. end;
  6399. LPTBNOTIFY = ^TBNOTIFY;
  6400. TTBNOTIFY = TBNOTIFY;
  6401. PTBNOTIFY = ^TBNOTIFY;
  6402. TBSAVEPARAMS = record
  6403. hkr : HKEY;
  6404. pszSubKey : LPCTSTR;
  6405. pszValueName : LPCTSTR;
  6406. end;
  6407. TTBSAVEPARAMS = TBSAVEPARAMS;
  6408. PTBSAVEPARAMS = ^TBSAVEPARAMS;
  6409. TC_HITTESTINFO = record
  6410. pt : POINT;
  6411. flags : UINT;
  6412. end;
  6413. _TC_HITTESTINFO = TC_HITTESTINFO;
  6414. TTCHITTESTINFO = TC_HITTESTINFO;
  6415. PTCHITTESTINFO = ^TC_HITTESTINFO;
  6416. TC_ITEM = record
  6417. mask : UINT;
  6418. lpReserved1 : UINT;
  6419. lpReserved2 : UINT;
  6420. pszText : LPTSTR;
  6421. cchTextMax : longint;
  6422. iImage : longint;
  6423. lParam : LPARAM;
  6424. end;
  6425. _TC_ITEM = TC_ITEM;
  6426. TTCITEM = TC_ITEM;
  6427. PTCITEM = ^TC_ITEM;
  6428. TC_ITEMHEADER = record
  6429. mask : UINT;
  6430. lpReserved1 : UINT;
  6431. lpReserved2 : UINT;
  6432. pszText : LPTSTR;
  6433. cchTextMax : longint;
  6434. iImage : longint;
  6435. end;
  6436. _TC_ITEMHEADER = TC_ITEMHEADER;
  6437. TTCITEMHEADER = TC_ITEMHEADER;
  6438. PTCITEMHEADER = ^TC_ITEMHEADER;
  6439. TC_KEYDOWN = record
  6440. hdr : NMHDR;
  6441. wVKey : WORD;
  6442. flags : UINT;
  6443. end;
  6444. _TC_KEYDOWN = TC_KEYDOWN;
  6445. TTCKEYDOWN = TC_KEYDOWN;
  6446. PTCKEYDOWN = ^TC_KEYDOWN;
  6447. TEXTRANGE = record
  6448. chrg : CHARRANGE;
  6449. lpstrText : LPSTR;
  6450. end;
  6451. _textrange = TEXTRANGE;
  6452. Ttextrange = TEXTRANGE;
  6453. Ptextrange = ^TEXTRANGE;
  6454. TIME_ZONE_INFORMATION = record
  6455. Bias : LONG;
  6456. StandardName : array[0..31] of WCHAR;
  6457. StandardDate : SYSTEMTIME;
  6458. StandardBias : LONG;
  6459. DaylightName : array[0..31] of WCHAR;
  6460. DaylightDate : SYSTEMTIME;
  6461. DaylightBias : LONG;
  6462. end;
  6463. LPTIME_ZONE_INFORMATION = ^TIME_ZONE_INFORMATION;
  6464. _TIME_ZONE_INFORMATION = TIME_ZONE_INFORMATION;
  6465. TTIMEZONEINFORMATION = TIME_ZONE_INFORMATION;
  6466. PTIMEZONEINFORMATION = ^TIME_ZONE_INFORMATION;
  6467. TOGGLEKEYS = record
  6468. cbSize : DWORD;
  6469. dwFlags : DWORD;
  6470. end;
  6471. tagTOGGLEKEYS = TOGGLEKEYS;
  6472. TTOGGLEKEYS = TOGGLEKEYS;
  6473. PTOGGLEKEYS = ^TOGGLEKEYS;
  6474. TOKEN_SOURCE = record
  6475. SourceName : array[0..7] of CHAR; // 0..(TOKEN_SOURCE_LENGTH-1)
  6476. SourceIdentifier : LUID;
  6477. end;
  6478. _TOKEN_SOURCE = TOKEN_SOURCE;
  6479. TTOKENSOURCE = TOKEN_SOURCE;
  6480. PTOKENSOURCE = ^TOKEN_SOURCE;
  6481. TOKEN_CONTROL = record
  6482. TokenId : LUID;
  6483. AuthenticationId : LUID;
  6484. ModifiedId : LUID;
  6485. TokenSource : TOKEN_SOURCE;
  6486. end;
  6487. _TOKEN_CONTROL = TOKEN_CONTROL;
  6488. TTOKENCONTROL = TOKEN_CONTROL;
  6489. PTOKENCONTROL = ^TOKEN_CONTROL;
  6490. TOKEN_DEFAULT_DACL = record
  6491. DefaultDacl : PACL;
  6492. end;
  6493. _TOKEN_DEFAULT_DACL = TOKEN_DEFAULT_DACL;
  6494. TTOKENDEFAULTDACL = TOKEN_DEFAULT_DACL;
  6495. PTOKENDEFAULTDACL = ^TOKEN_DEFAULT_DACL;
  6496. TOKEN_GROUPS = record
  6497. GroupCount : DWORD;
  6498. Groups : array[0..(ANYSIZE_ARRAY)-1] of SID_AND_ATTRIBUTES;
  6499. end;
  6500. PTOKEN_GROUPS = ^TOKEN_GROUPS;
  6501. LPTOKEN_GROUPS = ^TOKEN_GROUPS;
  6502. _TOKEN_GROUPS = TOKEN_GROUPS;
  6503. TTOKENGROUPS = TOKEN_GROUPS;
  6504. PTOKENGROUPS = ^TOKEN_GROUPS;
  6505. TOKEN_OWNER = record
  6506. Owner : PSID;
  6507. end;
  6508. _TOKEN_OWNER = TOKEN_OWNER;
  6509. TTOKENOWNER = TOKEN_OWNER;
  6510. PTOKENOWNER = ^TOKEN_OWNER;
  6511. TOKEN_PRIMARY_GROUP = record
  6512. PrimaryGroup : PSID;
  6513. end;
  6514. _TOKEN_PRIMARY_GROUP = TOKEN_PRIMARY_GROUP;
  6515. TTOKENPRIMARYGROUP = TOKEN_PRIMARY_GROUP;
  6516. PTOKENPRIMARYGROUP = ^TOKEN_PRIMARY_GROUP;
  6517. TOKEN_PRIVILEGES = packed record
  6518. PrivilegeCount : DWORD;
  6519. Privileges : array[0..(ANYSIZE_ARRAY)-1] of LUID_AND_ATTRIBUTES;
  6520. end;
  6521. PTOKEN_PRIVILEGES = ^TOKEN_PRIVILEGES;
  6522. LPTOKEN_PRIVILEGES = ^TOKEN_PRIVILEGES;
  6523. _TOKEN_PRIVILEGES = TOKEN_PRIVILEGES;
  6524. TTOKENPRIVILEGES = TOKEN_PRIVILEGES;
  6525. PTOKENPRIVILEGES = ^TOKEN_PRIVILEGES;
  6526. TOKEN_STATISTICS = record
  6527. TokenId : LUID;
  6528. AuthenticationId : LUID;
  6529. ExpirationTime : LARGE_INTEGER;
  6530. TokenType : TOKEN_TYPE;
  6531. ImpersonationLevel : SECURITY_IMPERSONATION_LEVEL;
  6532. DynamicCharged : DWORD;
  6533. DynamicAvailable : DWORD;
  6534. GroupCount : DWORD;
  6535. PrivilegeCount : DWORD;
  6536. ModifiedId : LUID;
  6537. end;
  6538. _TOKEN_STATISTICS = TOKEN_STATISTICS;
  6539. TTOKENSTATISTICS = TOKEN_STATISTICS;
  6540. PTOKENSTATISTICS = ^TOKEN_STATISTICS;
  6541. TOKEN_USER = record
  6542. User : SID_AND_ATTRIBUTES;
  6543. end;
  6544. _TOKEN_USER = TOKEN_USER;
  6545. TTOKENUSER = TOKEN_USER;
  6546. PTOKENUSER = ^TOKEN_USER;
  6547. TOOLINFO = record
  6548. cbSize : UINT;
  6549. uFlags : UINT;
  6550. hwnd : HWND;
  6551. uId : UINT;
  6552. rect : RECT;
  6553. hinst : HINST;
  6554. lpszText : LPTSTR;
  6555. lParam : LPARAM;
  6556. lpReserved : LPVOID;
  6557. end;
  6558. LPTOOLINFO = ^TOOLINFO;
  6559. TTOOLINFO = TOOLINFO;
  6560. PTOOLINFO = ^TOOLINFO;
  6561. TOOLTIPTEXT = record
  6562. hdr : NMHDR;
  6563. lpszText : LPTSTR;
  6564. szText : array[0..79] of TCHAR;
  6565. hinst : HINST;
  6566. uFlags : UINT;
  6567. lParam : LPARAM;
  6568. end;
  6569. LPTOOLTIPTEXT = ^TOOLTIPTEXT;
  6570. TTOOLTIPTEXT = TOOLTIPTEXT;
  6571. PTOOLTIPTEXT = ^TOOLTIPTEXT;
  6572. TPMPARAMS = record
  6573. cbSize : UINT;
  6574. rcExclude : RECT;
  6575. end;
  6576. LPTPMPARAMS = ^TPMPARAMS;
  6577. tagTPMPARAMS = TPMPARAMS;
  6578. TTPMPARAMS = TPMPARAMS;
  6579. PTPMPARAMS = ^TPMPARAMS;
  6580. TRANSMIT_FILE_BUFFERS = record
  6581. Head : PVOID;
  6582. HeadLength : DWORD;
  6583. Tail : PVOID;
  6584. TailLength : DWORD;
  6585. end;
  6586. _TRANSMIT_FILE_BUFFERS = TRANSMIT_FILE_BUFFERS;
  6587. TTRANSMITFILEBUFFERS = TRANSMIT_FILE_BUFFERS;
  6588. PTRANSMITFILEBUFFERS = ^TRANSMIT_FILE_BUFFERS;
  6589. TTHITTESTINFO = record
  6590. hwnd : HWND;
  6591. pt : POINT;
  6592. ti : TOOLINFO;
  6593. end;
  6594. LPHITTESTINFO = ^TTHITTESTINFO;
  6595. _TT_HITTESTINFO = TTHITTESTINFO;
  6596. TTTHITTESTINFO = TTHITTESTINFO;
  6597. PTTHITTESTINFO = ^TTHITTESTINFO;
  6598. TTPOLYCURVE = record
  6599. wType : WORD;
  6600. cpfx : WORD;
  6601. apfx : array[0..0] of POINTFX;
  6602. end;
  6603. LPTTPOLYCURVE = ^TTPOLYCURVE;
  6604. tagTTPOLYCURVE = TTPOLYCURVE;
  6605. TTTPOLYCURVE = TTPOLYCURVE;
  6606. PTTPOLYCURVE = ^TTPOLYCURVE;
  6607. TTPOLYGONHEADER = record
  6608. cb : DWORD;
  6609. dwType : DWORD;
  6610. pfxStart : POINTFX;
  6611. end;
  6612. LPTTPOLYGONHEADER = ^TTPOLYGONHEADER;
  6613. _TTPOLYGONHEADER = TTPOLYGONHEADER;
  6614. TTTPOLYGONHEADER = TTPOLYGONHEADER;
  6615. PTTPOLYGONHEADER = ^TTPOLYGONHEADER;
  6616. TV_DISPINFO = record
  6617. hdr : NMHDR;
  6618. item : TV_ITEM;
  6619. end;
  6620. _TV_DISPINFO = TV_DISPINFO;
  6621. TTVDISPINFO = TV_DISPINFO;
  6622. PTVDISPINFO = ^TV_DISPINFO;
  6623. TV_HITTESTINFO = record
  6624. pt : POINT;
  6625. flags : UINT;
  6626. hItem : HTREEITEM;
  6627. end;
  6628. LPTV_HITTESTINFO = ^TV_HITTESTINFO;
  6629. _TVHITTESTINFO = TV_HITTESTINFO;
  6630. TTVHITTESTINFO = TV_HITTESTINFO;
  6631. PTVHITTESTINFO = ^TV_HITTESTINFO;
  6632. TVITEMEX = record
  6633. mask : UINT;
  6634. hItem : HTREEITEM;
  6635. state : UINT;
  6636. stateMask : UINT;
  6637. pszText : LPTSTR;
  6638. cchTextMax : longint;
  6639. iImage : longint;
  6640. iSelectedImage : longint;
  6641. cChildren : longint;
  6642. lParam : LPARAM;
  6643. iIntegral : longint;
  6644. end;
  6645. TV_INSERTSTRUCT = record
  6646. hParent : HTREEITEM;
  6647. hInsertAfter : HTREEITEM;
  6648. case longint of
  6649. 0 : (item : TV_ITEM;);
  6650. 1 : (itemex : TVITEMEX;);
  6651. end;
  6652. LPTV_INSERTSTRUCT = ^TV_INSERTSTRUCT;
  6653. _TV_INSERTSTRUCT = TV_INSERTSTRUCT;
  6654. TTVINSERTSTRUCT = TV_INSERTSTRUCT;
  6655. PTVINSERTSTRUCT = ^TV_INSERTSTRUCT;
  6656. TV_KEYDOWN = record
  6657. hdr : NMHDR;
  6658. wVKey : WORD;
  6659. flags : UINT;
  6660. end;
  6661. _TV_KEYDOWN = TV_KEYDOWN;
  6662. TTVKEYDOWN = TV_KEYDOWN;
  6663. PTVKEYDOWN = ^TV_KEYDOWN;
  6664. TV_SORTCB = record
  6665. hParent : HTREEITEM;
  6666. lpfnCompare : PFNTVCOMPARE;
  6667. lParam : LPARAM;
  6668. end;
  6669. LPTV_SORTCB = ^TV_SORTCB;
  6670. _TV_SORTCB = TV_SORTCB;
  6671. TTVSORTCB = TV_SORTCB;
  6672. PTVSORTCB = ^TV_SORTCB;
  6673. UDACCEL = record
  6674. nSec : UINT;
  6675. nInc : UINT;
  6676. end;
  6677. TUDACCEL = UDACCEL;
  6678. PUDACCEL = ^UDACCEL;
  6679. UNIVERSAL_NAME_INFO = record
  6680. lpUniversalName : LPTSTR;
  6681. end;
  6682. _UNIVERSAL_NAME_INFO = UNIVERSAL_NAME_INFO;
  6683. TUNIVERSALNAMEINFO = UNIVERSAL_NAME_INFO;
  6684. PUNIVERSALNAMEINFO = ^UNIVERSAL_NAME_INFO;
  6685. USEROBJECTFLAGS = record
  6686. fInherit : WINBOOL;
  6687. fReserved : WINBOOL;
  6688. dwFlags : DWORD;
  6689. end;
  6690. tagUSEROBJECTFLAGS = USEROBJECTFLAGS;
  6691. TUSEROBJECTFLAGS = USEROBJECTFLAGS;
  6692. PUSEROBJECTFLAGS = ^USEROBJECTFLAGS;
  6693. VALENT = record
  6694. ve_valuename : LPTSTR;
  6695. ve_valuelen : DWORD;
  6696. ve_valueptr : DWORD_PTR;
  6697. ve_type : DWORD;
  6698. end;
  6699. TVALENT = VALENT;
  6700. PVALENT = ^VALENT;
  6701. value_ent = VALENT;
  6702. Tvalue_ent = VALENT;
  6703. Pvalue_ent = ^VALENT;
  6704. VERIFY_INFORMATION = record
  6705. StartingOffset : LARGE_INTEGER;
  6706. Length : DWORD;
  6707. end;
  6708. _VERIFY_INFORMATION = VERIFY_INFORMATION;
  6709. TVERIFYINFORMATION = VERIFY_INFORMATION;
  6710. PVERIFYINFORMATION = ^VERIFY_INFORMATION;
  6711. VS_FIXEDFILEINFO = record
  6712. dwSignature : DWORD;
  6713. dwStrucVersion : DWORD;
  6714. dwFileVersionMS : DWORD;
  6715. dwFileVersionLS : DWORD;
  6716. dwProductVersionMS : DWORD;
  6717. dwProductVersionLS : DWORD;
  6718. dwFileFlagsMask : DWORD;
  6719. dwFileFlags : DWORD;
  6720. dwFileOS : DWORD;
  6721. dwFileType : DWORD;
  6722. dwFileSubtype : DWORD;
  6723. dwFileDateMS : DWORD;
  6724. dwFileDateLS : DWORD;
  6725. end;
  6726. _VS_FIXEDFILEINFO = VS_FIXEDFILEINFO;
  6727. TVSFIXEDFILEINFO = VS_FIXEDFILEINFO;
  6728. PVSFIXEDFILEINFO = ^VS_FIXEDFILEINFO;
  6729. WIN32_FIND_DATAA = record
  6730. dwFileAttributes : DWORD;
  6731. ftCreationTime : FILETIME;
  6732. ftLastAccessTime : FILETIME;
  6733. ftLastWriteTime : FILETIME;
  6734. nFileSizeHigh : DWORD;
  6735. nFileSizeLow : DWORD;
  6736. dwReserved0 : DWORD;
  6737. dwReserved1 : DWORD;
  6738. cFileName : array[0..(MAX_PATH)-1] of AnsiCHAR;
  6739. cAlternateFileName : array[0..13] of AnsiCHAR;
  6740. end;
  6741. LPWIN32_FIND_DATAA = ^WIN32_FIND_DATAA;
  6742. PWIN32_FIND_DATAA = ^WIN32_FIND_DATAA;
  6743. _WIN32_FIND_DATAA = WIN32_FIND_DATAA;
  6744. TWIN32FINDDATAA = WIN32_FIND_DATAA;
  6745. WIN32FINDDATAA = WIN32_FIND_DATAA;
  6746. PWIN32FINDDATAA = ^WIN32_FIND_DATAA;
  6747. WIN32_FIND_DATAW = record
  6748. dwFileAttributes : DWORD;
  6749. ftCreationTime : FILETIME;
  6750. ftLastAccessTime : FILETIME;
  6751. ftLastWriteTime : FILETIME;
  6752. nFileSizeHigh : DWORD;
  6753. nFileSizeLow : DWORD;
  6754. dwReserved0 : DWORD;
  6755. dwReserved1 : DWORD;
  6756. cFileName : array[0..(MAX_PATH)-1] of WCHAR;
  6757. cAlternateFileName : array[0..13] of WCHAR;
  6758. end;
  6759. LPWIN32_FIND_DATAW = ^WIN32_FIND_DATAW;
  6760. PWIN32_FIND_DATAW = ^WIN32_FIND_DATAW;
  6761. _WIN32_FIND_DATAW = WIN32_FIND_DATAW;
  6762. TWIN32FINDDATAW = WIN32_FIND_DATAW;
  6763. PWIN32FINDDATAW = ^WIN32_FIND_DATAW;
  6764. {$ifdef Unicode}
  6765. LPWIN32_FIND_DATA = PWIN32_FIND_DATAW;
  6766. PWIN32_FIND_DATA = PWIN32_FIND_DATAW;
  6767. _WIN32_FIND_DATA = WIN32_FIND_DATAW;
  6768. WIN32_FIND_DATA = WIN32_FIND_DATAW;
  6769. TWIN32FINDDATA = WIN32_FIND_DATAW;
  6770. WIN32FINDDATA = WIN32_FIND_DATAW;
  6771. PWIN32FINDDATA = PWIN32_FIND_DATAW;
  6772. {$else}
  6773. LPWIN32_FIND_DATA = PWIN32_FIND_DATAA;
  6774. PWIN32_FIND_DATA = PWIN32_FIND_DATAA;
  6775. _WIN32_FIND_DATA = WIN32_FIND_DATAA;
  6776. WIN32_FIND_DATA = WIN32_FIND_DATAA;
  6777. TWIN32FINDDATA = WIN32_FIND_DATAA;
  6778. WIN32FINDDATA = WIN32_FIND_DATAA;
  6779. PWIN32FINDDATA = PWIN32_FIND_DATAA;
  6780. {$endif}
  6781. WIN32_STREAM_ID = record
  6782. dwStreamId : DWORD;
  6783. dwStreamAttributes : DWORD;
  6784. Size : LARGE_INTEGER;
  6785. dwStreamNameSize : DWORD;
  6786. cStreamName : array[0..0] of WCHAR; // really array[0..(dwStreamNameSize)] of WCHAR
  6787. end;
  6788. _WIN32_STREAM_ID = WIN32_STREAM_ID;
  6789. TWIN32STREAMID = WIN32_STREAM_ID;
  6790. PWIN32STREAMID = ^WIN32_STREAM_ID;
  6791. WINDOWPLACEMENT = record
  6792. length : UINT;
  6793. flags : UINT;
  6794. showCmd : UINT;
  6795. ptMinPosition : POINT;
  6796. ptMaxPosition : POINT;
  6797. rcNormalPosition : RECT;
  6798. end;
  6799. _WINDOWPLACEMENT = WINDOWPLACEMENT;
  6800. TWINDOWPLACEMENT = WINDOWPLACEMENT;
  6801. PWINDOWPLACEMENT = ^WINDOWPLACEMENT;
  6802. WNDCLASSA = record
  6803. style : UINT;
  6804. lpfnWndProc : WNDPROC;
  6805. cbClsExtra : longint;
  6806. cbWndExtra : longint;
  6807. hInstance : HINST;
  6808. hIcon : HICON;
  6809. hCursor : HCURSOR;
  6810. hbrBackground : HBRUSH;
  6811. lpszMenuName : LPCSTR;
  6812. lpszClassName : LPCSTR;
  6813. end;
  6814. LPWNDCLASSA = ^WNDCLASSA;
  6815. _WNDCLASSA = WNDCLASSA;
  6816. TWNDCLASSA = WNDCLASSA;
  6817. PWNDCLASSA = ^WNDCLASSA;
  6818. WNDCLASSW = record
  6819. style : UINT;
  6820. lpfnWndProc : WNDPROC;
  6821. cbClsExtra : longint;
  6822. cbWndExtra : longint;
  6823. hInstance : HINST;
  6824. hIcon : HICON;
  6825. hCursor : HCURSOR;
  6826. hbrBackground : HBRUSH;
  6827. lpszMenuName : LPCWSTR;
  6828. lpszClassName : LPCWSTR;
  6829. end;
  6830. LPWNDCLASSW = ^WNDCLASSW;
  6831. _WNDCLASSW = WNDCLASSW;
  6832. TWNDCLASSW = WNDCLASSW;
  6833. PWNDCLASSW = ^WNDCLASSW;
  6834. {$ifdef UNICODE}
  6835. LPWNDCLASS = LPWNDCLASSW;
  6836. _WNDCLASS = _WNDCLASSW;
  6837. TWNDCLASS = TWNDCLASSW;
  6838. PWNDCLASS = PWNDCLASSW;
  6839. WNDCLASS = WNDCLASSW;
  6840. {$else}
  6841. LPWNDCLASS = LPWNDCLASSA;
  6842. _WNDCLASS = _WNDCLASSA;
  6843. TWNDCLASS = TWNDCLASSA;
  6844. PWNDCLASS = PWNDCLASSA;
  6845. WNDCLASS = WNDCLASSA;
  6846. {$endif}
  6847. WNDCLASSEXA = record
  6848. cbSize : UINT;
  6849. style : UINT;
  6850. lpfnWndProc : WNDPROC;
  6851. cbClsExtra : longint;
  6852. cbWndExtra : longint;
  6853. hInstance : HINST;
  6854. hIcon : HICON;
  6855. hCursor : HCURSOR;
  6856. hbrBackground : HBRUSH;
  6857. lpszMenuName : LPCSTR;
  6858. lpszClassName : LPCSTR;
  6859. hIconSm : HANDLE;
  6860. end;
  6861. LPWNDCLASSEXA = ^WNDCLASSEXA;
  6862. _WNDCLASSEXA = WNDCLASSEXA;
  6863. TWNDCLASSEXA = WNDCLASSEXA;
  6864. PWNDCLASSEXA = ^WNDCLASSEXA;
  6865. WNDCLASSEXW = record
  6866. cbSize : UINT;
  6867. style : UINT;
  6868. lpfnWndProc : WNDPROC;
  6869. cbClsExtra : longint;
  6870. cbWndExtra : longint;
  6871. hInstance : HINST;
  6872. hIcon : HICON;
  6873. hCursor : HCURSOR;
  6874. hbrBackground : HBRUSH;
  6875. lpszMenuName : LPCWSTR;
  6876. lpszClassName : LPCWSTR;
  6877. hIconSm : HANDLE;
  6878. end;
  6879. LPWNDCLASSEXW = ^WNDCLASSEXW;
  6880. _WNDCLASSEXW = WNDCLASSEXW;
  6881. TWNDCLASSEXW = WNDCLASSEXW;
  6882. PWNDCLASSEXW = ^WNDCLASSEXW;
  6883. {$ifdef UNICODE}
  6884. LPWNDClassEx = LPWNDClassExW;
  6885. _WNDClassEx = _WNDClassExW;
  6886. TWNDClassEx = TWNDClassExW;
  6887. PWNDClassEx = PWNDClassExW;
  6888. WNDClassEx = WNDClassExW;
  6889. {$ELSE}
  6890. LPWNDClassEx = LPWNDClassExA;
  6891. _WNDClassEx = _WNDClassExA;
  6892. TWNDClassEx = TWNDClassExA;
  6893. PWNDClassEx = PWNDClassExA;
  6894. WNDClassEx = WNDClassExA;
  6895. {$endif}
  6896. CONNECTDLGSTRUCT = record
  6897. cbStructure : DWORD;
  6898. hwndOwner : HWND;
  6899. lpConnRes : LPNETRESOURCE;
  6900. dwFlags : DWORD;
  6901. dwDevNum : DWORD;
  6902. end;
  6903. LPCONNECTDLGSTRUCT = ^CONNECTDLGSTRUCT;
  6904. _CONNECTDLGSTRUCT = CONNECTDLGSTRUCT;
  6905. TCONNECTDLGSTRUCT = CONNECTDLGSTRUCT;
  6906. PCONNECTDLGSTRUCT = ^CONNECTDLGSTRUCT;
  6907. DISCDLGSTRUCT = record
  6908. cbStructure : DWORD;
  6909. hwndOwner : HWND;
  6910. lpLocalName : LPTSTR;
  6911. lpRemoteName : LPTSTR;
  6912. dwFlags : DWORD;
  6913. end;
  6914. LPDISCDLGSTRUCT = ^DISCDLGSTRUCT;
  6915. _DISCDLGSTRUCT = DISCDLGSTRUCT;
  6916. TDISCDLGSTRUCT = DISCDLGSTRUCT;
  6917. TDISCDLGSTRUCTA = DISCDLGSTRUCT;
  6918. PDISCDLGSTRUCT = ^DISCDLGSTRUCT;
  6919. NETINFOSTRUCT = record
  6920. cbStructure : DWORD;
  6921. dwProviderVersion : DWORD;
  6922. dwStatus : DWORD;
  6923. dwCharacteristics : DWORD;
  6924. dwHandle : ULONG_PTR;
  6925. wNetType : WORD;
  6926. dwPrinters : DWORD;
  6927. dwDrives : DWORD;
  6928. end;
  6929. LPNETINFOSTRUCT = ^NETINFOSTRUCT;
  6930. _NETINFOSTRUCT = NETINFOSTRUCT;
  6931. TNETINFOSTRUCT = NETINFOSTRUCT;
  6932. PNETINFOSTRUCT = ^NETINFOSTRUCT;
  6933. NETCONNECTINFOSTRUCT = record
  6934. cbStructure : DWORD;
  6935. dwFlags : DWORD;
  6936. dwSpeed : DWORD;
  6937. dwDelay : DWORD;
  6938. dwOptDataSize : DWORD;
  6939. end;
  6940. LPNETCONNECTINFOSTRUCT = ^NETCONNECTINFOSTRUCT;
  6941. _NETCONNECTINFOSTRUCT = NETCONNECTINFOSTRUCT;
  6942. TNETCONNECTINFOSTRUCT = NETCONNECTINFOSTRUCT;
  6943. PNETCONNECTINFOSTRUCT = ^NETCONNECTINFOSTRUCT;
  6944. ENUMMETAFILEPROC = function (_para1:HDC; _para2:HANDLETABLE; _para3:METARECORD; _para4:longint; _para5:LPARAM):longint;stdcall;
  6945. ENHMETAFILEPROC = function (_para1:HDC; _para2:HANDLETABLE; _para3:ENHMETARECORD; _para4:longint; _para5:LPARAM):longint;stdcall;
  6946. ENUMFONTSPROC = function (_para1:LPLOGFONT; _para2:LPTEXTMETRIC; _para3:DWORD; _para4:LPARAM):longint;stdcall;
  6947. FONTENUMPROC = function (var _para1:ENUMLOGFONT; var _para2:NEWTEXTMETRIC; _para3:longint; _para4:LPARAM):longint;stdcall;
  6948. FONTENUMEXPROC = function (var _para1:ENUMLOGFONTEX;var _para2:NEWTEXTMETRICEX; _para3:longint; _para4:LPARAM):longint;stdcall;
  6949. LPOVERLAPPED_COMPLETION_ROUTINE = procedure (_para1:DWORD; _para2:DWORD; _para3:LPOVERLAPPED);stdcall;
  6950. { Structures for the extensions to OpenGL }
  6951. POINTFLOAT = record
  6952. x : Single;
  6953. y : Single;
  6954. end;
  6955. _POINTFLOAT = POINTFLOAT;
  6956. TPOINTFLOAT = POINTFLOAT;
  6957. PPOINTFLOAT = ^POINTFLOAT;
  6958. GLYPHMETRICSFLOAT = record
  6959. gmfBlackBoxX : Single;
  6960. gmfBlackBoxY : Single;
  6961. gmfptGlyphOrigin : POINTFLOAT;
  6962. gmfCellIncX : Single;
  6963. gmfCellIncY : Single;
  6964. end;
  6965. LPGLYPHMETRICSFLOAT = ^GLYPHMETRICSFLOAT;
  6966. _GLYPHMETRICSFLOAT = GLYPHMETRICSFLOAT;
  6967. TGLYPHMETRICSFLOAT = GLYPHMETRICSFLOAT;
  6968. PGLYPHMETRICSFLOAT = ^GLYPHMETRICSFLOAT;
  6969. LAYERPLANEDESCRIPTOR = record
  6970. nSize : WORD;
  6971. nVersion : WORD;
  6972. dwFlags : DWORD;
  6973. iPixelType : BYTE;
  6974. cColorBits : BYTE;
  6975. cRedBits : BYTE;
  6976. cRedShift : BYTE;
  6977. cGreenBits : BYTE;
  6978. cGreenShift : BYTE;
  6979. cBlueBits : BYTE;
  6980. cBlueShift : BYTE;
  6981. cAlphaBits : BYTE;
  6982. cAlphaShift : BYTE;
  6983. cAccumBits : BYTE;
  6984. cAccumRedBits : BYTE;
  6985. cAccumGreenBits : BYTE;
  6986. cAccumBlueBits : BYTE;
  6987. cAccumAlphaBits : BYTE;
  6988. cDepthBits : BYTE;
  6989. cStencilBits : BYTE;
  6990. cAuxBuffers : BYTE;
  6991. iLayerPlane : BYTE;
  6992. bReserved : BYTE;
  6993. crTransparent : COLORREF;
  6994. end;
  6995. LPLAYERPLANEDESCRIPTOR = ^LAYERPLANEDESCRIPTOR;
  6996. tagLAYERPLANEDESCRIPTOR = LAYERPLANEDESCRIPTOR;
  6997. TLAYERPLANEDESCRIPTOR = LAYERPLANEDESCRIPTOR;
  6998. PLAYERPLANEDESCRIPTOR = ^LAYERPLANEDESCRIPTOR;
  6999. PIXELFORMATDESCRIPTOR = record
  7000. nSize : WORD;
  7001. nVersion : WORD;
  7002. dwFlags : DWORD;
  7003. iPixelType : BYTE;
  7004. cColorBits : BYTE;
  7005. cRedBits : BYTE;
  7006. cRedShift : BYTE;
  7007. cGreenBits : BYTE;
  7008. cGreenShift : BYTE;
  7009. cBlueBits : BYTE;
  7010. cBlueShift : BYTE;
  7011. cAlphaBits : BYTE;
  7012. cAlphaShift : BYTE;
  7013. cAccumBits : BYTE;
  7014. cAccumRedBits : BYTE;
  7015. cAccumGreenBits : BYTE;
  7016. cAccumBlueBits : BYTE;
  7017. cAccumAlphaBits : BYTE;
  7018. cDepthBits : BYTE;
  7019. cStencilBits : BYTE;
  7020. cAuxBuffers : BYTE;
  7021. iLayerType : BYTE;
  7022. bReserved : BYTE;
  7023. dwLayerMask : DWORD;
  7024. dwVisibleMask : DWORD;
  7025. dwDamageMask : DWORD;
  7026. end;
  7027. LPPIXELFORMATDESCRIPTOR = ^PIXELFORMATDESCRIPTOR;
  7028. tagPIXELFORMATDESCRIPTOR = PIXELFORMATDESCRIPTOR;
  7029. TPIXELFORMATDESCRIPTOR = PIXELFORMATDESCRIPTOR;
  7030. PPIXELFORMATDESCRIPTOR = ^PIXELFORMATDESCRIPTOR;
  7031. USER_INFO_2 = record
  7032. usri2_name : LPWSTR;
  7033. usri2_password : LPWSTR;
  7034. usri2_password_age : DWORD;
  7035. usri2_priv : DWORD;
  7036. usri2_home_dir : LPWSTR;
  7037. usri2_comment : LPWSTR;
  7038. usri2_flags : DWORD;
  7039. usri2_script_path : LPWSTR;
  7040. usri2_auth_flags : DWORD;
  7041. usri2_full_name : LPWSTR;
  7042. usri2_usr_comment : LPWSTR;
  7043. usri2_parms : LPWSTR;
  7044. usri2_workstations : LPWSTR;
  7045. usri2_last_logon : DWORD;
  7046. usri2_last_logoff : DWORD;
  7047. usri2_acct_expires : DWORD;
  7048. usri2_max_storage : DWORD;
  7049. usri2_units_per_week : DWORD;
  7050. usri2_logon_hours : PBYTE;
  7051. usri2_bad_pw_count : DWORD;
  7052. usri2_num_logons : DWORD;
  7053. usri2_logon_server : LPWSTR;
  7054. usri2_country_code : DWORD;
  7055. usri2_code_page : DWORD;
  7056. end;
  7057. PUSER_INFO_2 = ^USER_INFO_2;
  7058. LPUSER_INFO_2 = ^USER_INFO_2;
  7059. TUSERINFO2 = USER_INFO_2;
  7060. PUSERINFO2 = ^USER_INFO_2;
  7061. USER_INFO_0 = record
  7062. usri0_name : LPWSTR;
  7063. end;
  7064. PUSER_INFO_0 = ^USER_INFO_0;
  7065. LPUSER_INFO_0 = ^USER_INFO_0;
  7066. TUSERINFO0 = USER_INFO_0;
  7067. PUSERINFO0 = ^USER_INFO_0;
  7068. USER_INFO_3 = record
  7069. usri3_name : LPWSTR;
  7070. usri3_password : LPWSTR;
  7071. usri3_password_age : DWORD;
  7072. usri3_priv : DWORD;
  7073. usri3_home_dir : LPWSTR;
  7074. usri3_comment : LPWSTR;
  7075. usri3_flags : DWORD;
  7076. usri3_script_path : LPWSTR;
  7077. usri3_auth_flags : DWORD;
  7078. usri3_full_name : LPWSTR;
  7079. usri3_usr_comment : LPWSTR;
  7080. usri3_parms : LPWSTR;
  7081. usri3_workstations : LPWSTR;
  7082. usri3_last_logon : DWORD;
  7083. usri3_last_logoff : DWORD;
  7084. usri3_acct_expires : DWORD;
  7085. usri3_max_storage : DWORD;
  7086. usri3_units_per_week : DWORD;
  7087. usri3_logon_hours : PBYTE;
  7088. usri3_bad_pw_count : DWORD;
  7089. usri3_num_logons : DWORD;
  7090. usri3_logon_server : LPWSTR;
  7091. usri3_country_code : DWORD;
  7092. usri3_code_page : DWORD;
  7093. usri3_user_id : DWORD;
  7094. usri3_primary_group_id : DWORD;
  7095. usri3_profile : LPWSTR;
  7096. usri3_home_dir_drive : LPWSTR;
  7097. usri3_password_expired : DWORD;
  7098. end;
  7099. PUSER_INFO_3 = ^USER_INFO_3;
  7100. LPUSER_INFO_3 = ^USER_INFO_3;
  7101. TUSERINFO3 = USER_INFO_3;
  7102. PUSERINFO3 = ^USER_INFO_3;
  7103. GROUP_INFO_2 = record
  7104. grpi2_name : LPWSTR;
  7105. grpi2_comment : LPWSTR;
  7106. grpi2_group_id : DWORD;
  7107. grpi2_attributes : DWORD;
  7108. end;
  7109. PGROUP_INFO_2 = ^GROUP_INFO_2;
  7110. TGROUPINFO2 = GROUP_INFO_2;
  7111. PGROUPINFO2 = ^GROUP_INFO_2;
  7112. LOCALGROUP_INFO_0 = record
  7113. lgrpi0_name : LPWSTR;
  7114. end;
  7115. PLOCALGROUP_INFO_0 = ^LOCALGROUP_INFO_0;
  7116. LPLOCALGROUP_INFO_0 = ^LOCALGROUP_INFO_0;
  7117. TLOCALGROUPINFO0 = LOCALGROUP_INFO_0;
  7118. PLOCALGROUPINFO0 = ^LOCALGROUP_INFO_0;
  7119. { PE executable header. }
  7120. { Magic number, 0x5a4d }
  7121. { Bytes on last page of file, 0x90 }
  7122. { Pages in file, 0x3 }
  7123. { Relocations, 0x0 }
  7124. { Size of header in paragraphs, 0x4 }
  7125. { Minimum extra paragraphs needed, 0x0 }
  7126. { Maximum extra paragraphs needed, 0xFFFF }
  7127. { Initial (relative) SS value, 0x0 }
  7128. { Initial SP value, 0xb8 }
  7129. { Checksum, 0x0 }
  7130. { Initial IP value, 0x0 }
  7131. { Initial (relative) CS value, 0x0 }
  7132. { File address of relocation table, 0x40 }
  7133. { Overlay number, 0x0 }
  7134. { Reserved words, all 0x0 }
  7135. { OEM identifier (for e_oeminfo), 0x0 }
  7136. { OEM information; e_oemid specific, 0x0 }
  7137. { Reserved words, all 0x0 }
  7138. { File address of new exe header, 0x80 }
  7139. { We leave out the next two fields, since they aren't in the header file }
  7140. { DWORD dos_message[16]; text which always follows dos header }
  7141. { DWORD nt_signature; required NT signature, 0x4550 }
  7142. IMAGE_DOS_HEADER = record
  7143. e_magic : WORD;
  7144. e_cblp : WORD;
  7145. e_cp : WORD;
  7146. e_crlc : WORD;
  7147. e_cparhdr : WORD;
  7148. e_minalloc : WORD;
  7149. e_maxalloc : WORD;
  7150. e_ss : WORD;
  7151. e_sp : WORD;
  7152. e_csum : WORD;
  7153. e_ip : WORD;
  7154. e_cs : WORD;
  7155. e_lfarlc : WORD;
  7156. e_ovno : WORD;
  7157. e_res : array[0..3] of WORD;
  7158. e_oemid : WORD;
  7159. e_oeminfo : WORD;
  7160. e_res2 : array[0..9] of WORD;
  7161. case boolean of
  7162. true : (e_lfanew : LONG);
  7163. false: (_lfanew : LONG); // delphi naming
  7164. end;
  7165. PIMAGE_DOS_HEADER = ^IMAGE_DOS_HEADER;
  7166. TIMAGE_DOS_HEADER = IMAGE_DOS_HEADER;
  7167. TIMAGEDOSHEADER = IMAGE_DOS_HEADER;
  7168. PIMAGEDOSHEADER = ^IMAGE_DOS_HEADER;
  7169. _NOTIFYICONDATAA = record
  7170. cbSize: DWORD;
  7171. Wnd: HWND;
  7172. uID: UINT;
  7173. uFlags: UINT;
  7174. uCallbackMessage: UINT;
  7175. hIcon: HICON;
  7176. szTip: array [0..127] of AnsiChar;
  7177. dwState : DWORD;
  7178. dwStateMask : DWORD;
  7179. szInfo : array[0..255] of AnsiChar;
  7180. case longint of
  7181. 0 : (uTimeout : UINT;);
  7182. 1 : (uVersion : UINT;
  7183. szInfoTitle : array[0..63] of AnsiChar;
  7184. dwInfoFlags : DWORD;
  7185. //guidItem : TGUID; // #if (_WIN32_IE >= 0x600)}
  7186. );
  7187. end;
  7188. _NOTIFYICONDATA = _NOTIFYICONDATAA;
  7189. _NOTIFYICONDATAW = record
  7190. cbSize: DWORD;
  7191. Wnd: HWND;
  7192. uID: UINT;
  7193. uFlags: UINT;
  7194. uCallbackMessage: UINT;
  7195. hIcon: HICON;
  7196. szTip: array [0..127] of WCHAR;
  7197. dwState : DWORD;
  7198. dwStateMask : DWORD;
  7199. szInfo : array[0..255] of WCHAR;
  7200. case longint of
  7201. 0 : (uTimeout : UINT;);
  7202. 1 : (uVersion : UINT;
  7203. szInfoTitle : array[0..63] of WCHAR;
  7204. dwInfoFlags : DWORD;
  7205. //guidItem : TGUID; // #if (_WIN32_IE >= 0x600)}
  7206. );
  7207. end;
  7208. TNotifyIconDataA = _NOTIFYICONDATAA;
  7209. TNotifyIconDataW = _NOTIFYICONDATAW;
  7210. TNotifyIconData = TNotifyIconDataA;
  7211. NOTIFYICONDATAA = _NOTIFYICONDATAA;
  7212. NOTIFYICONDATAW = _NOTIFYICONDATAW;
  7213. NOTIFYICONDATA = NOTIFYICONDATAA;
  7214. PNotifyIconDataA = ^TNotifyIconDataA;
  7215. PNotifyIconDataW = ^TNotifyIconDataW;
  7216. PNotifyIconData = PNotifyIconDataA;
  7217. TWOHandleArray = array[0..MAXIMUM_WAIT_OBJECTS-1] of HANDLE;
  7218. PWOHandleArray = ^TWOHandleArray;
  7219. MMRESULT = Longint;
  7220. type
  7221. PWaveFormatEx = ^TWaveFormatEx;
  7222. TWaveFormatEx = packed record
  7223. wFormatTag: Word; { format type }
  7224. nChannels: Word; { number of channels (i.e. mono, stereo, etc.) }
  7225. nSamplesPerSec: DWORD; { sample rate }
  7226. nAvgBytesPerSec: DWORD; { for buffer estimation }
  7227. nBlockAlign: Word; { block size of data }
  7228. wBitsPerSample: Word; { number of bits per sample of mono data }
  7229. cbSize: Word; { the count in bytes of the size of }
  7230. end;
  7231. _WIN32_FILE_ATTRIBUTE_DATA = packed record
  7232. dwFileAttributes: DWORD;
  7233. ftCreationTime: FILETIME;
  7234. ftLastAccessTime: FILETIME;
  7235. ftLastWriteTime: FILETIME;
  7236. nFileSizeHigh: DWORD;
  7237. nFileSizeLow: DWORD;
  7238. end;
  7239. WIN32_FILE_ATTRIBUTE_DATA = _WIN32_FILE_ATTRIBUTE_DATA ;
  7240. LPWIN32_FILE_ATTRIBUTE_DATA = ^_WIN32_FILE_ATTRIBUTE_DATA;
  7241. TWIN32FILEATTRIBUTEDATA = _WIN32_FILE_ATTRIBUTE_DATA ;
  7242. PWIN32FILEATTRIBUTEDATA = ^_WIN32_FILE_ATTRIBUTE_DATA;
  7243. // TrackMouseEvent. NT or higher only.
  7244. TTrackMouseEvent = Record
  7245. cbSize : DWORD;
  7246. dwFlags : DWORD;
  7247. hwndTrack : HWND;
  7248. dwHoverTime : DWORD;
  7249. end;
  7250. PTrackMouseEvent = ^TTrackMouseEvent;
  7251. // File header format.
  7252. //
  7253. PIMAGE_FILE_HEADER = ^IMAGE_FILE_HEADER;
  7254. _IMAGE_FILE_HEADER = record
  7255. Machine: WORD;
  7256. NumberOfSections: WORD;
  7257. TimeDateStamp: DWORD;
  7258. PointerToSymbolTable: DWORD;
  7259. NumberOfSymbols: DWORD;
  7260. SizeOfOptionalHeader: WORD;
  7261. Characteristics: WORD;
  7262. end;
  7263. IMAGE_FILE_HEADER = _IMAGE_FILE_HEADER;
  7264. TImageFileHeader = IMAGE_FILE_HEADER;
  7265. PImageFileHeader = PIMAGE_FILE_HEADER;
  7266. //
  7267. // Debug Format
  7268. //
  7269. PIMAGE_DEBUG_DIRECTORY = ^IMAGE_DEBUG_DIRECTORY;
  7270. _IMAGE_DEBUG_DIRECTORY = record
  7271. Characteristics: DWORD;
  7272. TimeDateStamp: DWORD;
  7273. MajorVersion: Word;
  7274. MinorVersion: Word;
  7275. Type_: DWORD;
  7276. SizeOfData: DWORD;
  7277. AddressOfRawData: DWORD;
  7278. PointerToRawData: DWORD;
  7279. end;
  7280. IMAGE_DEBUG_DIRECTORY = _IMAGE_DEBUG_DIRECTORY;
  7281. TImageDebugDirectory = IMAGE_DEBUG_DIRECTORY;
  7282. PImageDebugDirectory = PIMAGE_DEBUG_DIRECTORY;
  7283. //
  7284. // Optional header format.
  7285. //
  7286. PIMAGE_DATA_DIRECTORY = ^IMAGE_DATA_DIRECTORY;
  7287. _IMAGE_DATA_DIRECTORY = record
  7288. VirtualAddress: DWORD;
  7289. Size: DWORD;
  7290. end;
  7291. IMAGE_DATA_DIRECTORY = _IMAGE_DATA_DIRECTORY;
  7292. TIMAGE_DATA_DIRECTORY = _IMAGE_DATA_DIRECTORY;
  7293. TImageDataDirectory = IMAGE_DATA_DIRECTORY;
  7294. PImageDataDirectory = PIMAGE_DATA_DIRECTORY;
  7295. const
  7296. IMAGE_NUMBEROF_DIRECTORY_ENTRIES = 16;
  7297. type
  7298. PIMAGE_OPTIONAL_HEADER32 = ^IMAGE_OPTIONAL_HEADER32;
  7299. _IMAGE_OPTIONAL_HEADER = record
  7300. //
  7301. // Standard fields.
  7302. //
  7303. Magic: Word;
  7304. MajorLinkerVersion: Byte;
  7305. MinorLinkerVersion: Byte;
  7306. SizeOfCode: DWORD;
  7307. SizeOfInitializedData: DWORD;
  7308. SizeOfUninitializedData: DWORD;
  7309. AddressOfEntryPoint: DWORD;
  7310. BaseOfCode: DWORD;
  7311. BaseOfData: DWORD;
  7312. //
  7313. // NT additional fields.
  7314. //
  7315. ImageBase: DWORD;
  7316. SectionAlignment: DWORD;
  7317. FileAlignment: DWORD;
  7318. MajorOperatingSystemVersion: Word;
  7319. MinorOperatingSystemVersion: Word;
  7320. MajorImageVersion: Word;
  7321. MinorImageVersion: Word;
  7322. MajorSubsystemVersion: Word;
  7323. MinorSubsystemVersion: Word;
  7324. Win32VersionValue: DWORD;
  7325. SizeOfImage: DWORD;
  7326. SizeOfHeaders: DWORD;
  7327. CheckSum: DWORD;
  7328. Subsystem: Word;
  7329. DllCharacteristics: Word;
  7330. SizeOfStackReserve: DWORD;
  7331. SizeOfStackCommit: DWORD;
  7332. SizeOfHeapReserve: DWORD;
  7333. SizeOfHeapCommit: DWORD;
  7334. LoaderFlags: DWORD;
  7335. NumberOfRvaAndSizes: DWORD;
  7336. DataDirectory: array [0..IMAGE_NUMBEROF_DIRECTORY_ENTRIES - 1] of IMAGE_DATA_DIRECTORY;
  7337. end;
  7338. IMAGE_OPTIONAL_HEADER32 = _IMAGE_OPTIONAL_HEADER;
  7339. TImageOptionalHeader32 = IMAGE_OPTIONAL_HEADER32;
  7340. PImageOptionalHeader32 = PIMAGE_OPTIONAL_HEADER32;
  7341. PIMAGE_ROM_OPTIONAL_HEADER = ^IMAGE_ROM_OPTIONAL_HEADER;
  7342. _IMAGE_ROM_OPTIONAL_HEADER = record
  7343. Magic: Word;
  7344. MajorLinkerVersion: Byte;
  7345. MinorLinkerVersion: Byte;
  7346. SizeOfCode: DWORD;
  7347. SizeOfInitializedData: DWORD;
  7348. SizeOfUninitializedData: DWORD;
  7349. AddressOfEntryPoint: DWORD;
  7350. BaseOfCode: DWORD;
  7351. BaseOfData: DWORD;
  7352. BaseOfBss: DWORD;
  7353. GprMask: DWORD;
  7354. CprMask: array [0..3] of DWORD;
  7355. GpValue: DWORD;
  7356. end;
  7357. IMAGE_ROM_OPTIONAL_HEADER = _IMAGE_ROM_OPTIONAL_HEADER;
  7358. TIMAGE_ROM_OPTIONAL_HEADER = _IMAGE_ROM_OPTIONAL_HEADER;
  7359. TImageRomOptionalHeader = IMAGE_ROM_OPTIONAL_HEADER;
  7360. PImageRomOptionalHeader = PIMAGE_ROM_OPTIONAL_HEADER;
  7361. PIMAGE_OPTIONAL_HEADER64 = ^IMAGE_OPTIONAL_HEADER64;
  7362. _IMAGE_OPTIONAL_HEADER64 = record
  7363. Magic: Word;
  7364. MajorLinkerVersion: Byte;
  7365. MinorLinkerVersion: Byte;
  7366. SizeOfCode: DWORD;
  7367. SizeOfInitializedData: DWORD;
  7368. SizeOfUninitializedData: DWORD;
  7369. AddressOfEntryPoint: DWORD;
  7370. BaseOfCode: DWORD;
  7371. ImageBase: Int64;
  7372. SectionAlignment: DWORD;
  7373. FileAlignment: DWORD;
  7374. MajorOperatingSystemVersion: Word;
  7375. MinorOperatingSystemVersion: Word;
  7376. MajorImageVersion: Word;
  7377. MinorImageVersion: Word;
  7378. MajorSubsystemVersion: Word;
  7379. MinorSubsystemVersion: Word;
  7380. Win32VersionValue: DWORD;
  7381. SizeOfImage: DWORD;
  7382. SizeOfHeaders: DWORD;
  7383. CheckSum: DWORD;
  7384. Subsystem: Word;
  7385. DllCharacteristics: Word;
  7386. SizeOfStackReserve: Int64;
  7387. SizeOfStackCommit: Int64;
  7388. SizeOfHeapReserve: Int64;
  7389. SizeOfHeapCommit: Int64;
  7390. LoaderFlags: DWORD;
  7391. NumberOfRvaAndSizes: DWORD;
  7392. DataDirectory: array [0..IMAGE_NUMBEROF_DIRECTORY_ENTRIES - 1] of IMAGE_DATA_DIRECTORY;
  7393. end;
  7394. IMAGE_OPTIONAL_HEADER64 = _IMAGE_OPTIONAL_HEADER64;
  7395. TImageOptionalHeader64 = IMAGE_OPTIONAL_HEADER64;
  7396. PImageOptionalHeader64 = PIMAGE_OPTIONAL_HEADER64;
  7397. const
  7398. IMAGE_SIZEOF_ROM_OPTIONAL_HEADER = 56;
  7399. IMAGE_SIZEOF_STD_OPTIONAL_HEADER = 28;
  7400. IMAGE_SIZEOF_NT_OPTIONAL32_HEADER = 224;
  7401. IMAGE_SIZEOF_NT_OPTIONAL64_HEADER = 240;
  7402. IMAGE_NT_OPTIONAL_HDR32_MAGIC = $10b;
  7403. IMAGE_NT_OPTIONAL_HDR64_MAGIC = $20b;
  7404. IMAGE_ROM_OPTIONAL_HDR_MAGIC = $107;
  7405. type
  7406. {$ifdef _WIN64}
  7407. IMAGE_OPTIONAL_HEADER = IMAGE_OPTIONAL_HEADER64;
  7408. PIMAGE_OPTIONAL_HEADER = PIMAGE_OPTIONAL_HEADER64;
  7409. {$else}
  7410. IMAGE_OPTIONAL_HEADER = IMAGE_OPTIONAL_HEADER32;
  7411. PIMAGE_OPTIONAL_HEADER = PIMAGE_OPTIONAL_HEADER32;
  7412. {$endif}
  7413. TImageOptionalHeader = IMAGE_OPTIONAL_HEADER;
  7414. PImageOptionalHeader = PIMAGE_OPTIONAL_HEADER;
  7415. const
  7416. IMAGE_SIZEOF_NT_OPTIONAL_HEADER = IMAGE_SIZEOF_NT_OPTIONAL32_HEADER;
  7417. IMAGE_NT_OPTIONAL_HDR_MAGIC = IMAGE_NT_OPTIONAL_HDR32_MAGIC;
  7418. type
  7419. PIMAGE_NT_HEADERS64 = ^IMAGE_NT_HEADERS64;
  7420. _IMAGE_NT_HEADERS64 = record
  7421. Signature: DWORD;
  7422. FileHeader: IMAGE_FILE_HEADER;
  7423. OptionalHeader: IMAGE_OPTIONAL_HEADER64;
  7424. end;
  7425. IMAGE_NT_HEADERS64 = _IMAGE_NT_HEADERS64;
  7426. TImageNtHeaders64 = IMAGE_NT_HEADERS64;
  7427. PImageNtHeaders64 = PIMAGE_NT_HEADERS64;
  7428. PIMAGE_NT_HEADERS32 = ^IMAGE_NT_HEADERS32;
  7429. _IMAGE_NT_HEADERS = record
  7430. Signature: DWORD;
  7431. FileHeader: IMAGE_FILE_HEADER;
  7432. OptionalHeader: IMAGE_OPTIONAL_HEADER32;
  7433. end;
  7434. IMAGE_NT_HEADERS32 = _IMAGE_NT_HEADERS;
  7435. TImageNtHeaders32 = IMAGE_NT_HEADERS32;
  7436. PImageNtHeaders32 = PIMAGE_NT_HEADERS32;
  7437. PIMAGE_ROM_HEADERS = ^IMAGE_ROM_HEADERS;
  7438. _IMAGE_ROM_HEADERS = record
  7439. FileHeader: IMAGE_FILE_HEADER;
  7440. OptionalHeader: IMAGE_ROM_OPTIONAL_HEADER;
  7441. end;
  7442. IMAGE_ROM_HEADERS = _IMAGE_ROM_HEADERS;
  7443. TImageRomHeaders = IMAGE_ROM_HEADERS;
  7444. PImageRomHeaders = PIMAGE_ROM_HEADERS;
  7445. {$ifdef _WIN64}
  7446. IMAGE_NT_HEADERS = IMAGE_NT_HEADERS64;
  7447. PIMAGE_NT_HEADERS = PIMAGE_NT_HEADERS64;
  7448. {$else}
  7449. IMAGE_NT_HEADERS = IMAGE_NT_HEADERS32;
  7450. PIMAGE_NT_HEADERS = PIMAGE_NT_HEADERS32;
  7451. {$endif}
  7452. TImageNtHeaders = IMAGE_NT_HEADERS;
  7453. PImageNtHeaders = PIMAGE_NT_HEADERS;
  7454. _GET_FILEEX_INFO_LEVELS = (GetFileExInfoStandard, GetFileExMaxInfoLevel);
  7455. GET_FILEEX_INFO_LEVELS = _GET_FILEEX_INFO_LEVELS;
  7456. TGetFileExInfoLevels = GET_FILEEX_INFO_LEVELS;
  7457. TGet_FileEx_Info_Levels = GET_FILEEX_INFO_LEVELS;
  7458. tagBSTRBLOB = record
  7459. cbsize : ULONG;
  7460. pdata : pbyte;
  7461. end;
  7462. BSTRBLOB=TagBSTRBlob;
  7463. TBSTRBLOB=BSTRBLOB;
  7464. PBSTRBLOB=^BSTRBLOB;
  7465. tagCLIPDATA = record
  7466. cbsize : ULONG;
  7467. ulClipFmt : long;
  7468. pclipdata : pbyte;
  7469. end;
  7470. CLIPDATA=TagCLIPDATA;
  7471. TCLIPDATA=CLIPDATA;
  7472. PCLIPDATA=^CLIPDATA;
  7473. TImage_Section_SubHeader= record
  7474. case longint of
  7475. 0 : ( PhysicalAddress : DWORD );
  7476. 1 : ( VirtualSize : DWORD );
  7477. end;
  7478. _IMAGE_SECTION_HEADER = record
  7479. Name : array[0..(IMAGE_SIZEOF_SHORT_NAME)-1] of BYTE;
  7480. Misc : TImage_Section_SubHeader;
  7481. VirtualAddress : DWORD;
  7482. SizeOfRawData : DWORD;
  7483. PointerToRawData : DWORD;
  7484. PointerToRelocations : DWORD;
  7485. PointerToLinenumbers : DWORD;
  7486. NumberOfRelocations : WORD;
  7487. NumberOfLinenumbers : WORD;
  7488. Characteristics : DWORD;
  7489. end;
  7490. IMAGE_SECTION_HEADER = _IMAGE_SECTION_HEADER;
  7491. TIMAGE_SECTION_HEADER = _IMAGE_SECTION_HEADER;
  7492. PIMAGE_SECTION_HEADER = ^_IMAGE_SECTION_HEADER;
  7493. PPIMAGE_SECTION_HEADER = ^PIMAGE_SECTION_HEADER;
  7494. IMAGESECTIONHEADER = _IMAGE_SECTION_HEADER;
  7495. TIMAGESECTIONHEADER = _IMAGE_SECTION_HEADER;
  7496. PIMAGESECTIONHEADER = ^_IMAGE_SECTION_HEADER;
  7497. _IMAGE_FUNCTION_ENTRY = record
  7498. StartingAddress,
  7499. EndingAddress,
  7500. EndOfPrologue : DWord;
  7501. end;
  7502. IMAGE_FUNCTION_ENTRY = _IMAGE_FUNCTION_ENTRY;
  7503. TIMAGE_FUNCTION_ENTRY= IMAGE_FUNCTION_ENTRY;
  7504. PIMAGE_FUNCTION_ENTRY= ^IMAGE_FUNCTION_ENTRY;
  7505. LPIMAGE_FUNCTION_ENTRY= PIMAGE_FUNCTION_ENTRY;
  7506. _IMAGE_FUNCTION_ENTRY64 = record
  7507. StartingAddress,
  7508. EndingAddress : ULONGLONG ;
  7509. case boolean of
  7510. false : (EndOfPrologue : ULONGLONG);
  7511. true : (UnwindInfoAddress : ULONGLONG);
  7512. end;
  7513. IMAGE_FUNCTION_ENTRY64 = _IMAGE_FUNCTION_ENTRY64;
  7514. TIMAGE_FUNCTION_ENTRY64 = _IMAGE_FUNCTION_ENTRY64;
  7515. PIMAGE_FUNCTION_ENTRY64 = ^_IMAGE_FUNCTION_ENTRY64;
  7516. LPIMAGE_FUNCTION_ENTRY64= ^_IMAGE_FUNCTION_ENTRY64;
  7517. _IMAGE_COFF_SYMBOLS_HEADER = record
  7518. NumberOfSymbols,
  7519. LvaToFirstSymbol,
  7520. NumberOfLinenumbers,
  7521. LvaToFirstLinenumber,
  7522. RvaToFirstByteOfCode,
  7523. RvaToLastByteOfCode,
  7524. RvaToFirstByteOfData,
  7525. RvaToLastByteOfData : DWORD;
  7526. end;
  7527. TIMAGE_COFF_SYMBOLS_HEADER = _IMAGE_COFF_SYMBOLS_HEADER;
  7528. IMAGE_COFF_SYMBOLS_HEADER = _IMAGE_COFF_SYMBOLS_HEADER;
  7529. PIMAGE_COFF_SYMBOLS_HEADER = ^IMAGE_COFF_SYMBOLS_HEADER;
  7530. LPIMAGE_COFF_SYMBOLS_HEADER= PIMAGE_COFF_SYMBOLS_HEADER;
  7531. _FPO_DATA = record
  7532. ulOffStart: DWORD; // offset 1st byte of function code
  7533. cbProcSize: DWORD; // # bytes in function
  7534. cdwLocals : DWORD; // # bytes in locals/4
  7535. bitvalues : word; //
  7536. {
  7537. WORD cdwParams; // # bytes in params/4
  7538. WORD cbProlog : 8; // # bytes in prolog
  7539. WORD cbRegs : 3; // # regs saved
  7540. WORD fHasSEH : 1; // TRUE if SEH in func
  7541. WORD fUseBP : 1; // TRUE if EBP has been allocated
  7542. WORD reserved : 1; // reserved for future use
  7543. WORD cbFrame : 2; // frame type
  7544. }
  7545. end;
  7546. FPO_DATA = _FPO_DATA;
  7547. TFPO_DATA = _FPO_DATA;
  7548. PFPO_DATA = ^_FPO_DATA;
  7549. LPFPO_DATA = PFPO_DATA;
  7550. IMAGE_LOAD_CONFIG_DIRECTORY32 = record
  7551. Size : DWORD;
  7552. TimeDateStamp : DWORD;
  7553. MajorVersion : WORD;
  7554. MinorVersion : WORD;
  7555. GlobalFlagsClear : DWORD;
  7556. GlobalFlagsSet : DWORD;
  7557. CriticalSectionDefaultTimeout : DWORD;
  7558. DeCommitFreeBlockThreshold : DWORD;
  7559. DeCommitTotalFreeThreshold : DWORD;
  7560. LockPrefixTable : DWORD;
  7561. MaximumAllocationSize : DWORD;
  7562. VirtualMemoryThreshold : DWORD;
  7563. ProcessHeapFlags : DWORD;
  7564. ProcessAffinityMask : DWORD;
  7565. CSDVersion : WORD;
  7566. Reserved1 : WORD;
  7567. EditList : DWORD;
  7568. SecurityCookie : DWORD;
  7569. SEHandlerTable : DWORD;
  7570. SEHandlerCount : DWORD;
  7571. end;
  7572. PIMAGE_LOAD_CONFIG_DIRECTORY32 = ^IMAGE_LOAD_CONFIG_DIRECTORY32;
  7573. TIMAGE_LOAD_CONFIG_DIRECTORY32 = IMAGE_LOAD_CONFIG_DIRECTORY32;
  7574. IMAGE_LOAD_CONFIG_DIRECTORY64 = record
  7575. Size : DWORD;
  7576. TimeDateStamp : DWORD;
  7577. MajorVersion : WORD;
  7578. MinorVersion : WORD;
  7579. GlobalFlagsClear : DWORD;
  7580. GlobalFlagsSet : DWORD;
  7581. CriticalSectionDefaultTimeout : DWORD;
  7582. DeCommitFreeBlockThreshold : ULONGLONG;
  7583. DeCommitTotalFreeThreshold : ULONGLONG;
  7584. LockPrefixTable : ULONGLONG;
  7585. MaximumAllocationSize : ULONGLONG;
  7586. VirtualMemoryThreshold : ULONGLONG;
  7587. ProcessAffinityMask : ULONGLONG;
  7588. ProcessHeapFlags : DWORD;
  7589. CSDVersion : WORD;
  7590. Reserved1 : WORD;
  7591. EditList : ULONGLONG;
  7592. SecurityCookie : ULONGLONG;
  7593. SEHandlerTable : ULONGLONG;
  7594. SEHandlerCount : ULONGLONG;
  7595. end;
  7596. PIMAGE_LOAD_CONFIG_DIRECTORY64 = ^IMAGE_LOAD_CONFIG_DIRECTORY64;
  7597. TIMAGE_LOAD_CONFIG_DIRECTORY64 = IMAGE_LOAD_CONFIG_DIRECTORY64;
  7598. {$ifdef _WIN64}
  7599. IMAGE_LOAD_CONFIG_DIRECTORY = IMAGE_LOAD_CONFIG_DIRECTORY64;
  7600. TIMAGE_LOAD_CONFIG_DIRECTORY = TIMAGE_LOAD_CONFIG_DIRECTORY64;
  7601. PIMAGE_LOAD_CONFIG_DIRECTORY = PIMAGE_LOAD_CONFIG_DIRECTORY64;
  7602. {$else}
  7603. IMAGE_LOAD_CONFIG_DIRECTORY = IMAGE_LOAD_CONFIG_DIRECTORY32;
  7604. TIMAGE_LOAD_CONFIG_DIRECTORY = TIMAGE_LOAD_CONFIG_DIRECTORY32;
  7605. PIMAGE_LOAD_CONFIG_DIRECTORY = PIMAGE_LOAD_CONFIG_DIRECTORY32;
  7606. {$endif}
  7607. {$push}
  7608. {$packrecords 4}
  7609. PIMAGE_EXPORT_DIRECTORY = ^TIMAGE_EXPORT_DIRECTORY;
  7610. IMAGE_EXPORT_DIRECTORY = record
  7611. Characteristics : DWORD;
  7612. TimeDateStamp : DWORD;
  7613. MajorVersion : WORD;
  7614. MinorVersion : WORD;
  7615. Name : DWORD;
  7616. Base : DWORD;
  7617. NumberOfFunctions : DWORD;
  7618. NumberOfNames : DWORD;
  7619. AddressOfFunctions : DWORD; { RVA from base of image }
  7620. AddressOfNames : DWORD; { RVA from base of image }
  7621. AddressOfNameOrdinals : DWORD; { RVA from base of image }
  7622. end;
  7623. TIMAGE_EXPORT_DIRECTORY = IMAGE_EXPORT_DIRECTORY;
  7624. _IMAGE_EXPORT_DIRECTORY = IMAGE_EXPORT_DIRECTORY;
  7625. LPIMAGE_EXPORT_DIRECTORY= PIMAGE_EXPORT_DIRECTORY;
  7626. P_IMAGE_IMPORT_BY_NAME = ^_IMAGE_IMPORT_BY_NAME;
  7627. _IMAGE_IMPORT_BY_NAME = record
  7628. Hint : WORD;
  7629. Name : array[0..0] of AnsiCHAR;
  7630. end;
  7631. IMAGE_IMPORT_BY_NAME = _IMAGE_IMPORT_BY_NAME;
  7632. PIMAGE_IMPORT_BY_NAME = ^IMAGE_IMPORT_BY_NAME;
  7633. LPIMAGE_IMPORT_BY_NAME = P_IMAGE_IMPORT_BY_NAME;
  7634. PPIMAGE_IMPORT_BY_NAME = ^PIMAGE_IMPORT_BY_NAME;
  7635. {$push}{$packrecords 8} // Use align 8 for the 64-bit IAT.}
  7636. P_IMAGE_THUNK_DATA64 = ^_IMAGE_THUNK_DATA64;
  7637. _IMAGE_THUNK_DATA64 = record
  7638. u1 : record
  7639. case longint of
  7640. 0 : ( ForwarderString : ULONGLONG ); { PBYTE }
  7641. 1 : ( _Function : ULONGLONG ); { PDWORD }
  7642. 2 : ( Ordinal : ULONGLONG );
  7643. 3 : ( AddressOfData : ULONGLONG ); { PIMAGE_IMPORT_BY_NAME }
  7644. end;
  7645. end;
  7646. IMAGE_THUNK_DATA64 = _IMAGE_THUNK_DATA64;
  7647. PIMAGE_THUNK_DATA64 = ^IMAGE_THUNK_DATA64;
  7648. PPIMAGE_THUNK_DATA64 = ^PIMAGE_THUNK_DATA64;
  7649. LPIMAGE_THUNK_DATA64 = PIMAGE_THUNK_DATA64;
  7650. {$pop} // Back to 4 byte packing}
  7651. P_IMAGE_THUNK_DATA32 = ^_IMAGE_THUNK_DATA32;
  7652. _IMAGE_THUNK_DATA32 = record
  7653. u1 : record
  7654. case longint of
  7655. 0 : ( ForwarderString : DWORD ); { PBYTE }
  7656. 1 : ( _Function : DWORD ); { PDWORD }
  7657. 2 : ( Ordinal : DWORD );
  7658. 3 : ( AddressOfData : DWORD ); { PIMAGE_IMPORT_BY_NAME }
  7659. end;
  7660. end;
  7661. IMAGE_THUNK_DATA32 = _IMAGE_THUNK_DATA32;
  7662. PIMAGE_THUNK_DATA32 = ^IMAGE_THUNK_DATA32;
  7663. PPIMAGE_THUNK_DATA32 = ^PIMAGE_THUNK_DATA32;
  7664. LPIMAGE_THUNK_DATA32 = PIMAGE_THUNK_DATA32;
  7665. { }
  7666. { Thread Local Storage }
  7667. { }
  7668. PIMAGE_TLS_CALLBACK = procedure (DllHandle:PVOID; Reason:DWORD; Reserved:PVOID);stdcall; {NTAPI}
  7669. P_IMAGE_TLS_DIRECTORY64 = ^_IMAGE_TLS_DIRECTORY64;
  7670. _IMAGE_TLS_DIRECTORY64 = record
  7671. StartAddressOfRawData : ULONGLONG;
  7672. EndAddressOfRawData : ULONGLONG;
  7673. AddressOfIndex : ULONGLONG; { PDWORD }
  7674. AddressOfCallBacks : ULONGLONG; { PIMAGE_TLS_CALLBACK *; }
  7675. SizeOfZeroFill : DWORD;
  7676. case longint of
  7677. 0 : ( Characteristics : DWORD );
  7678. 1 : ( CharacteristicsFields: bitpacked record
  7679. Reserved0 : 0..$FFFFF; // 5 nibbles=20 bits
  7680. Alignment : 0..$F; // 4 bits
  7681. Reserved1 : 0..$FF; // 8 bits
  7682. end );
  7683. end;
  7684. IMAGE_TLS_DIRECTORY64 = _IMAGE_TLS_DIRECTORY64;
  7685. PIMAGE_TLS_DIRECTORY64 = ^IMAGE_TLS_DIRECTORY64;
  7686. PPIMAGE_TLS_DIRECTORY64 = ^PIMAGE_TLS_DIRECTORY64;
  7687. LPIMAGE_TLS_DIRECTORY64 = PIMAGE_TLS_DIRECTORY64;
  7688. P_IMAGE_TLS_DIRECTORY32 = ^_IMAGE_TLS_DIRECTORY32;
  7689. _IMAGE_TLS_DIRECTORY32 = record
  7690. StartAddressOfRawData : DWORD;
  7691. EndAddressOfRawData : DWORD;
  7692. AddressOfIndex : DWORD; { PDWORD }
  7693. AddressOfCallBacks : DWORD; { PIMAGE_TLS_CALLBACK * }
  7694. SizeOfZeroFill : DWORD;
  7695. case longint of
  7696. 0 : ( Characteristics : DWORD );
  7697. 1 : ( CharacteristicsFields : bitpacked record
  7698. Reserved0 : 0..$FFFFF; // 5 nibbles=20 bits
  7699. Alignment : 0..$F; // 4 bits
  7700. Reserved1 : 0..$FF; // 8 bits
  7701. end );
  7702. end;
  7703. IMAGE_TLS_DIRECTORY32 = _IMAGE_TLS_DIRECTORY32;
  7704. PIMAGE_TLS_DIRECTORY32 = ^IMAGE_TLS_DIRECTORY32;
  7705. PPIMAGE_TLS_DIRECTORY32 = ^PIMAGE_TLS_DIRECTORY32;
  7706. LPIMAGE_TLS_DIRECTORY32 = PIMAGE_TLS_DIRECTORY32;
  7707. {$ifdef WIN64}
  7708. PIMAGE_THUNK_DATA = PIMAGE_THUNK_DATA64;
  7709. IMAGE_THUNK_DATA = IMAGE_THUNK_DATA64;
  7710. PPIMAGE_THUNK_DATA = ^PIMAGE_THUNK_DATA64;
  7711. LPIMAGE_THUNK_DATA = PIMAGE_THUNK_DATA64;
  7712. PIMAGE_TLS_DIRECTORY = ^IMAGE_TLS_DIRECTORY;
  7713. IMAGE_TLS_DIRECTORY = IMAGE_TLS_DIRECTORY64;
  7714. PPIMAGE_TLS_DIRECTORY = ^PIMAGE_TLS_DIRECTORY;
  7715. LPIMAGE_TLS_DIRECTORY = PIMAGE_TLS_DIRECTORY64;
  7716. {$else}
  7717. PIMAGE_THUNK_DATA = PIMAGE_THUNK_DATA32;
  7718. IMAGE_THUNK_DATA = IMAGE_THUNK_DATA32;
  7719. PPIMAGE_THUNK_DATA = ^PIMAGE_THUNK_DATA;
  7720. LPIMAGE_THUNK_DATA = PIMAGE_THUNK_DATA32;
  7721. PIMAGE_TLS_DIRECTORY = ^IMAGE_TLS_DIRECTORY;
  7722. IMAGE_TLS_DIRECTORY = IMAGE_TLS_DIRECTORY32;
  7723. PPIMAGE_TLS_DIRECTORY = ^PIMAGE_TLS_DIRECTORY;
  7724. LPIMAGE_TLS_DIRECTORY = PIMAGE_TLS_DIRECTORY32;
  7725. {$endif}
  7726. P_IMAGE_IMPORT_DESCRIPTOR = ^_IMAGE_IMPORT_DESCRIPTOR;
  7727. _IMAGE_IMPORT_DESCRIPTOR = record
  7728. case longint of
  7729. 0 : ( Characteristics : DWORD ); { 0 for terminating null import descriptor }
  7730. 1 : ( OriginalFirstThunk : DWORD; { RVA to original unbound IAT (PIMAGE_THUNK_DATA) }
  7731. TimeDateStamp : DWORD; { 0 if not bound, }
  7732. // -1 if bound, and real date\time stamp
  7733. // in IMAGE_DIRECTORY_ENTRY_BOUND_IMPORT (new BIND)
  7734. // O.W. date/time stamp of DLL bound to (Old BIND)
  7735. ForwarderChain : DWORD; // -1 if no forwarders
  7736. Name : DWORD;
  7737. FirstThunk : DWORD; // RVA to IAT (if bound this IAT has actual addresses)
  7738. );
  7739. end;
  7740. IMAGE_IMPORT_DESCRIPTOR = _IMAGE_IMPORT_DESCRIPTOR;
  7741. PIMAGE_IMPORT_DESCRIPTOR = ^IMAGE_IMPORT_DESCRIPTOR {UNALIGNED } ;
  7742. PPIMAGE_IMPORT_DESCRIPTOR = ^PIMAGE_IMPORT_DESCRIPTOR;
  7743. LPIMAGE_IMPORT_DESCRIPTOR = PIMAGE_IMPORT_DESCRIPTOR;
  7744. { }
  7745. { New format import descriptors pointed to by DataDirectory[ IMAGE_DIRECTORY_ENTRY_BOUND_IMPORT ] }
  7746. { }
  7747. P_IMAGE_BOUND_IMPORT_DESCRIPTOR = ^_IMAGE_BOUND_IMPORT_DESCRIPTOR;
  7748. _IMAGE_BOUND_IMPORT_DESCRIPTOR = record
  7749. TimeDateStamp : DWORD;
  7750. OffsetModuleName : WORD;
  7751. NumberOfModuleForwarderRefs : WORD;
  7752. { Array of zero or more IMAGE_BOUND_FORWARDER_REF follows }
  7753. end;
  7754. IMAGE_BOUND_IMPORT_DESCRIPTOR = _IMAGE_BOUND_IMPORT_DESCRIPTOR;
  7755. PIMAGE_BOUND_IMPORT_DESCRIPTOR = ^IMAGE_BOUND_IMPORT_DESCRIPTOR;
  7756. LPIMAGE_BOUND_IMPORT_DESCRIPTOR = P_IMAGE_BOUND_IMPORT_DESCRIPTOR;
  7757. PPIMAGE_BOUND_IMPORT_DESCRIPTOR = ^PIMAGE_BOUND_IMPORT_DESCRIPTOR;
  7758. P_IMAGE_BOUND_FORWARDER_REF = ^_IMAGE_BOUND_FORWARDER_REF;
  7759. _IMAGE_BOUND_FORWARDER_REF = record
  7760. TimeDateStamp : DWORD;
  7761. OffsetModuleName : WORD;
  7762. Reserved : WORD;
  7763. end;
  7764. IMAGE_BOUND_FORWARDER_REF = _IMAGE_BOUND_FORWARDER_REF;
  7765. PIMAGE_BOUND_FORWARDER_REF = ^IMAGE_BOUND_FORWARDER_REF;
  7766. LPIMAGE_BOUND_FORWARDER_REF = P_IMAGE_BOUND_FORWARDER_REF;
  7767. PPIMAGE_BOUND_FORWARDER_REF = ^PIMAGE_BOUND_FORWARDER_REF;
  7768. { Delay load version 2 }
  7769. _IMAGE_DELAYLOAD_DESCRIPTOR = record
  7770. case longint of
  7771. 0: (AllAttributes :Dword;
  7772. DllNameRVA, // RVA to the name of the target library (NULL-terminate ASCII string)
  7773. ModuleHandleRVA, // RVA to the HMODULE caching location (PHMODULE)
  7774. ImportAddressTableRVA, // RVA to the start of the IAT (PIMAGE_THUNK_DATA)
  7775. ImportNameTableRVA, // RVA to the start of the name table (PIMAGE_THUNK_DATA::AddressOfData)
  7776. BoundImportAddressTableRVA, // RVA to an optional bound IAT
  7777. UnloadInformationTableRVA, // RVA to an optional unload info table
  7778. TimeDateStamp : DWORD; // 0 if not bound,
  7779. // Otherwise, date/time of the target DLL
  7780. );
  7781. 1: (Attributes:bitpacked record
  7782. rvabased:0..1; {1 bits} // Delay load version 2
  7783. ReservedAttributes: 0..$7FFFFFF; {31 bits}
  7784. end;)
  7785. end;
  7786. IMAGE_DELAYLOAD_DESCRIPTOR= _IMAGE_DELAYLOAD_DESCRIPTOR;
  7787. PIMAGE_DELAYLOAD_DESCRIPTOR= ^_IMAGE_DELAYLOAD_DESCRIPTOR;
  7788. PCIMAGE_DELAYLOAD_DESCRIPTOR= PIMAGE_DELAYLOAD_DESCRIPTOR;
  7789. {$pop}
  7790. tagCOMBOBOXINFO = record
  7791. cbSize: DWORD;
  7792. rcItem: TRect;
  7793. rcButton: TRect;
  7794. stateButton: DWORD;
  7795. hwndCombo: HWND;
  7796. hwndItem: HWND;
  7797. hwndList: HWND;
  7798. end;
  7799. TComboboxInfo = tagCOMBOBOXINFO;
  7800. PComboboxInfo = ^TComboboxInfo;
  7801. LPComboboxInfo = PComboboxInfo;
  7802. _TRIVERTEX = record
  7803. x : LONG;
  7804. y : LONG;
  7805. Red : COLOR16;
  7806. Green : COLOR16;
  7807. Blue : COLOR16;
  7808. Alpha : COLOR16;
  7809. end;
  7810. TRIVERTEX = _TRIVERTEX;
  7811. PTRIVERTEX = ^_TRIVERTEX;
  7812. LPTRIVERTEX = PTRIVERTEX;
  7813. _GRADIENT_TRIANGLE = record
  7814. Vertex1 : ULONG;
  7815. Vertex2 : ULONG;
  7816. Vertex3 : ULONG;
  7817. end;
  7818. GRADIENT_TRIANGLE = _GRADIENT_TRIANGLE;
  7819. TGRADIENT_TRIANGLE = _GRADIENT_TRIANGLE;
  7820. PGRADIENT_TRIANGLE = ^_GRADIENT_TRIANGLE;
  7821. LPGRADIENT_TRIANGLE = PGRADIENT_TRIANGLE;
  7822. _GRADIENT_RECT = record
  7823. UpperLeft : ULONG;
  7824. LowerRight : ULONG;
  7825. end;
  7826. GRADIENT_RECT = _GRADIENT_RECT;
  7827. TGRADIENT_RECT = _GRADIENT_RECT;
  7828. PGRADIENT_RECT = ^_GRADIENT_RECT;
  7829. LPGRADIENT_RECT = PGRADIENT_RECT;
  7830. CURSORINFO = record
  7831. cbSize : DWORD;
  7832. flags : DWORD;
  7833. hCursor : HCURSOR;
  7834. ptScreenPos : POINT;
  7835. end;
  7836. PCURSORINFO = ^CURSORINFO;
  7837. TCURSORINFO = CURSORINFO;
  7838. const
  7839. SECURITY_DESCRIPTOR_MIN_LENGTH = SIZEOF(SECURITY_DESCRIPTOR);
  7840. // #if(WINVER >= 0x0500)
  7841. type
  7842. tagMENUGETOBJECTINFO = packed record
  7843. dwFlags:DWORD;
  7844. uPos:UINT;
  7845. _hmenu:HMENU;
  7846. riid:PVOID;
  7847. pvObj:PVOID;
  7848. end;
  7849. MENUGETOBJECTINFO = tagMENUGETOBJECTINFO;
  7850. PMENUGETOBJECTINFO = ^tagMENUGETOBJECTINFO;
  7851. LPMENUGETOBJECTINFO = ^tagMENUGETOBJECTINFO;
  7852. //#endif /* WINVER >= 0x0500 */
  7853. // Menubar information
  7854. type
  7855. tagMENUBARINFO = packed record
  7856. cbSize:DWORD;
  7857. rcBar:Windows.RECT; // rect of bar, popup, item
  7858. _hmenu:HMENU; // real menu handle of bar, popup
  7859. hwndMenu:HWND; // hwnd of item submenu if one
  7860. // fBarFocused:1:BOOL; // bar, popup has the focus
  7861. // fFocused:1:BOOL; // item has the focus
  7862. FocusedBits:DWORD;
  7863. end;
  7864. MENUBARINFO = tagMENUBARINFO;
  7865. PMENUBARINFO = ^tagMENUBARINFO;
  7866. LPMENUBARINFO = ^tagMENUBARINFO;
  7867. {$endif read_interface}
  7868. {$ifdef read_implementation}
  7869. function fBinary(var a : DCB) : DWORD;
  7870. begin
  7871. fBinary:=(a.flags and bm_DCB_fBinary) shr bp_DCB_fBinary;
  7872. end;
  7873. procedure set_fBinary(var a : DCB; __fBinary : DWORD);
  7874. begin
  7875. a.flags:=a.flags or ((__fBinary shl bp_DCB_fBinary) and bm_DCB_fBinary);
  7876. end;
  7877. function fParity(var a : DCB) : DWORD;
  7878. begin
  7879. fParity:=(a.flags and bm_DCB_fParity) shr bp_DCB_fParity;
  7880. end;
  7881. procedure set_fParity(var a : DCB; __fParity : DWORD);
  7882. begin
  7883. a.flags:=a.flags or ((__fParity shl bp_DCB_fParity) and bm_DCB_fParity);
  7884. end;
  7885. function fOutxCtsFlow(var a : DCB) : DWORD;
  7886. begin
  7887. fOutxCtsFlow:=(a.flags and bm_DCB_fOutxCtsFlow) shr bp_DCB_fOutxCtsFlow;
  7888. end;
  7889. procedure set_fOutxCtsFlow(var a : DCB; __fOutxCtsFlow : DWORD);
  7890. begin
  7891. a.flags:=a.flags or ((__fOutxCtsFlow shl bp_DCB_fOutxCtsFlow) and bm_DCB_fOutxCtsFlow);
  7892. end;
  7893. function fOutxDsrFlow(var a : DCB) : DWORD;
  7894. begin
  7895. fOutxDsrFlow:=(a.flags and bm_DCB_fOutxDsrFlow) shr bp_DCB_fOutxDsrFlow;
  7896. end;
  7897. procedure set_fOutxDsrFlow(var a : DCB; __fOutxDsrFlow : DWORD);
  7898. begin
  7899. a.flags:=a.flags or ((__fOutxDsrFlow shl bp_DCB_fOutxDsrFlow) and bm_DCB_fOutxDsrFlow);
  7900. end;
  7901. function fDtrControl(var a : DCB) : DWORD;
  7902. begin
  7903. fDtrControl:=(a.flags and bm_DCB_fDtrControl) shr bp_DCB_fDtrControl;
  7904. end;
  7905. procedure set_fDtrControl(var a : DCB; __fDtrControl : DWORD);
  7906. begin
  7907. a.flags:=a.flags or ((__fDtrControl shl bp_DCB_fDtrControl) and bm_DCB_fDtrControl);
  7908. end;
  7909. function fDsrSensitivity(var a : DCB) : DWORD;
  7910. begin
  7911. fDsrSensitivity:=(a.flags and bm_DCB_fDsrSensitivity) shr bp_DCB_fDsrSensitivity;
  7912. end;
  7913. procedure set_fDsrSensitivity(var a : DCB; __fDsrSensitivity : DWORD);
  7914. begin
  7915. a.flags:=a.flags or ((__fDsrSensitivity shl bp_DCB_fDsrSensitivity) and bm_DCB_fDsrSensitivity);
  7916. end;
  7917. function fTXContinueOnXoff(var a : DCB) : DWORD;
  7918. begin
  7919. fTXContinueOnXoff:=(a.flags and bm_DCB_fTXContinueOnXoff) shr bp_DCB_fTXContinueOnXoff;
  7920. end;
  7921. procedure set_fTXContinueOnXoff(var a : DCB; __fTXContinueOnXoff : DWORD);
  7922. begin
  7923. a.flags:=a.flags or ((__fTXContinueOnXoff shl bp_DCB_fTXContinueOnXoff) and bm_DCB_fTXContinueOnXoff);
  7924. end;
  7925. function fOutX(var a : DCB) : DWORD;
  7926. begin
  7927. fOutX:=(a.flags and bm_DCB_fOutX) shr bp_DCB_fOutX;
  7928. end;
  7929. procedure set_fOutX(var a : DCB; __fOutX : DWORD);
  7930. begin
  7931. a.flags:=a.flags or ((__fOutX shl bp_DCB_fOutX) and bm_DCB_fOutX);
  7932. end;
  7933. function fInX(var a : DCB) : DWORD;
  7934. begin
  7935. fInX:=(a.flags and bm_DCB_fInX) shr bp_DCB_fInX;
  7936. end;
  7937. procedure set_fInX(var a : DCB; __fInX : DWORD);
  7938. begin
  7939. a.flags:=a.flags or ((__fInX shl bp_DCB_fInX) and bm_DCB_fInX);
  7940. end;
  7941. function fErrorChar(var a : DCB) : DWORD;
  7942. begin
  7943. fErrorChar:=(a.flags and bm_DCB_fErrorChar) shr bp_DCB_fErrorChar;
  7944. end;
  7945. procedure set_fErrorChar(var a : DCB; __fErrorChar : DWORD);
  7946. begin
  7947. a.flags:=a.flags or ((__fErrorChar shl bp_DCB_fErrorChar) and bm_DCB_fErrorChar);
  7948. end;
  7949. function fNull(var a : DCB) : DWORD;
  7950. begin
  7951. fNull:=(a.flags and bm_DCB_fNull) shr bp_DCB_fNull;
  7952. end;
  7953. procedure set_fNull(var a : DCB; __fNull : DWORD);
  7954. begin
  7955. a.flags:=a.flags or ((__fNull shl bp_DCB_fNull) and bm_DCB_fNull);
  7956. end;
  7957. function fRtsControl(var a : DCB) : DWORD;
  7958. begin
  7959. fRtsControl:=(a.flags and bm_DCB_fRtsControl) shr bp_DCB_fRtsControl;
  7960. end;
  7961. procedure set_fRtsControl(var a : DCB; __fRtsControl : DWORD);
  7962. begin
  7963. a.flags:=a.flags or ((__fRtsControl shl bp_DCB_fRtsControl) and bm_DCB_fRtsControl);
  7964. end;
  7965. function fAbortOnError(var a : DCB) : DWORD;
  7966. begin
  7967. fAbortOnError:=(a.flags and bm_DCB_fAbortOnError) shr bp_DCB_fAbortOnError;
  7968. end;
  7969. procedure set_fAbortOnError(var a : DCB; __fAbortOnError : DWORD);
  7970. begin
  7971. a.flags:=a.flags or ((__fAbortOnError shl bp_DCB_fAbortOnError) and bm_DCB_fAbortOnError);
  7972. end;
  7973. function fDummy2(var a : DCB) : DWORD;
  7974. begin
  7975. fDummy2:=(a.flags and bm_DCB_fDummy2) shr bp_DCB_fDummy2;
  7976. end;
  7977. procedure set_fDummy2(var a : DCB; __fDummy2 : DWORD);
  7978. begin
  7979. a.flags:=a.flags or ((__fDummy2 shl bp_DCB_fDummy2) and bm_DCB_fDummy2);
  7980. end;
  7981. function fCtsHold(var a : COMSTAT) : DWORD;
  7982. begin
  7983. fCtsHold:=(a.flag0 and bm_COMSTAT_fCtsHold) shr bp_COMSTAT_fCtsHold;
  7984. end;
  7985. procedure set_fCtsHold(var a : COMSTAT; __fCtsHold : DWORD);
  7986. begin
  7987. a.flag0:=a.flag0 or ((__fCtsHold shl bp_COMSTAT_fCtsHold) and bm_COMSTAT_fCtsHold);
  7988. end;
  7989. function fDsrHold(var a : COMSTAT) : DWORD;
  7990. begin
  7991. fDsrHold:=(a.flag0 and bm_COMSTAT_fDsrHold) shr bp_COMSTAT_fDsrHold;
  7992. end;
  7993. procedure set_fDsrHold(var a : COMSTAT; __fDsrHold : DWORD);
  7994. begin
  7995. a.flag0:=a.flag0 or ((__fDsrHold shl bp_COMSTAT_fDsrHold) and bm_COMSTAT_fDsrHold);
  7996. end;
  7997. function fRlsdHold(var a : COMSTAT) : DWORD;
  7998. begin
  7999. fRlsdHold:=(a.flag0 and bm_COMSTAT_fRlsdHold) shr bp_COMSTAT_fRlsdHold;
  8000. end;
  8001. procedure set_fRlsdHold(var a : COMSTAT; __fRlsdHold : DWORD);
  8002. begin
  8003. a.flag0:=a.flag0 or ((__fRlsdHold shl bp_COMSTAT_fRlsdHold) and bm_COMSTAT_fRlsdHold);
  8004. end;
  8005. function fXoffHold(var a : COMSTAT) : DWORD;
  8006. begin
  8007. fXoffHold:=(a.flag0 and bm_COMSTAT_fXoffHold) shr bp_COMSTAT_fXoffHold;
  8008. end;
  8009. procedure set_fXoffHold(var a : COMSTAT; __fXoffHold : DWORD);
  8010. begin
  8011. a.flag0:=a.flag0 or ((__fXoffHold shl bp_COMSTAT_fXoffHold) and bm_COMSTAT_fXoffHold);
  8012. end;
  8013. function fXoffSent(var a : COMSTAT) : DWORD;
  8014. begin
  8015. fXoffSent:=(a.flag0 and bm_COMSTAT_fXoffSent) shr bp_COMSTAT_fXoffSent;
  8016. end;
  8017. procedure set_fXoffSent(var a : COMSTAT; __fXoffSent : DWORD);
  8018. begin
  8019. a.flag0:=a.flag0 or ((__fXoffSent shl bp_COMSTAT_fXoffSent) and bm_COMSTAT_fXoffSent);
  8020. end;
  8021. function fEof(var a : COMSTAT) : DWORD;
  8022. begin
  8023. fEof:=(a.flag0 and bm_COMSTAT_fEof) shr bp_COMSTAT_fEof;
  8024. end;
  8025. procedure set_fEof(var a : COMSTAT; __fEof : DWORD);
  8026. begin
  8027. a.flag0:=a.flag0 or ((__fEof shl bp_COMSTAT_fEof) and bm_COMSTAT_fEof);
  8028. end;
  8029. function fTxim(var a : COMSTAT) : DWORD;
  8030. begin
  8031. fTxim:=(a.flag0 and bm_COMSTAT_fTxim) shr bp_COMSTAT_fTxim;
  8032. end;
  8033. procedure set_fTxim(var a : COMSTAT; __fTxim : DWORD);
  8034. begin
  8035. a.flag0:=a.flag0 or ((__fTxim shl bp_COMSTAT_fTxim) and bm_COMSTAT_fTxim);
  8036. end;
  8037. function fReserved(var a : COMSTAT) : DWORD;
  8038. begin
  8039. fReserved:=(a.flag0 and bm_COMSTAT_fReserved) shr bp_COMSTAT_fReserved;
  8040. end;
  8041. procedure set_fReserved(var a : COMSTAT; __fReserved : DWORD);
  8042. begin
  8043. a.flag0:=a.flag0 or ((__fReserved shl bp_COMSTAT_fReserved) and bm_COMSTAT_fReserved);
  8044. end;
  8045. function bAppReturnCode(var a : DDEACK) : word;
  8046. begin
  8047. bAppReturnCode:=(a.flag0 and bm_DDEACK_bAppReturnCode) shr bp_DDEACK_bAppReturnCode;
  8048. end;
  8049. procedure set_bAppReturnCode(var a : DDEACK; __bAppReturnCode : word);
  8050. begin
  8051. a.flag0:=a.flag0 or ((__bAppReturnCode shl bp_DDEACK_bAppReturnCode) and bm_DDEACK_bAppReturnCode);
  8052. end;
  8053. function reserved(var a : DDEACK) : word;
  8054. begin
  8055. reserved:=(a.flag0 and bm_DDEACK_reserved) shr bp_DDEACK_reserved;
  8056. end;
  8057. procedure set_reserved(var a : DDEACK; __reserved : word);
  8058. begin
  8059. a.flag0:=a.flag0 or ((__reserved shl bp_DDEACK_reserved) and bm_DDEACK_reserved);
  8060. end;
  8061. function fBusy(var a : DDEACK) : word;
  8062. begin
  8063. fBusy:=(a.flag0 and bm_DDEACK_fBusy) shr bp_DDEACK_fBusy;
  8064. end;
  8065. procedure set_fBusy(var a : DDEACK; __fBusy : word);
  8066. begin
  8067. a.flag0:=a.flag0 or ((__fBusy shl bp_DDEACK_fBusy) and bm_DDEACK_fBusy);
  8068. end;
  8069. function fAck(var a : DDEACK) : word;
  8070. begin
  8071. fAck:=(a.flag0 and bm_DDEACK_fAck) shr bp_DDEACK_fAck;
  8072. end;
  8073. procedure set_fAck(var a : DDEACK; __fAck : word);
  8074. begin
  8075. a.flag0:=a.flag0 or ((__fAck shl bp_DDEACK_fAck) and bm_DDEACK_fAck);
  8076. end;
  8077. function reserved(var a : DDEADVISE) : word;
  8078. begin
  8079. reserved:=(a.flag0 and bm_DDEADVISE_reserved) shr bp_DDEADVISE_reserved;
  8080. end;
  8081. procedure set_reserved(var a : DDEADVISE; __reserved : word);
  8082. begin
  8083. a.flag0:=a.flag0 or ((__reserved shl bp_DDEADVISE_reserved) and bm_DDEADVISE_reserved);
  8084. end;
  8085. function fDeferUpd(var a : DDEADVISE) : word;
  8086. begin
  8087. fDeferUpd:=(a.flag0 and bm_DDEADVISE_fDeferUpd) shr bp_DDEADVISE_fDeferUpd;
  8088. end;
  8089. procedure set_fDeferUpd(var a : DDEADVISE; __fDeferUpd : word);
  8090. begin
  8091. a.flag0:=a.flag0 or ((__fDeferUpd shl bp_DDEADVISE_fDeferUpd) and bm_DDEADVISE_fDeferUpd);
  8092. end;
  8093. function fAckReq(var a : DDEADVISE) : word;
  8094. begin
  8095. fAckReq:=(a.flag0 and bm_DDEADVISE_fAckReq) shr bp_DDEADVISE_fAckReq;
  8096. end;
  8097. procedure set_fAckReq(var a : DDEADVISE; __fAckReq : word);
  8098. begin
  8099. a.flag0:=a.flag0 or ((__fAckReq shl bp_DDEADVISE_fAckReq) and bm_DDEADVISE_fAckReq);
  8100. end;
  8101. function unused(var a : DDEDATA) : word;
  8102. begin
  8103. unused:=(a.flag0 and bm_DDEDATA_unused) shr bp_DDEDATA_unused;
  8104. end;
  8105. procedure set_unused(var a : DDEDATA; __unused : word);
  8106. begin
  8107. a.flag0:=a.flag0 or ((__unused shl bp_DDEDATA_unused) and bm_DDEDATA_unused);
  8108. end;
  8109. function fResponse(var a : DDEDATA) : word;
  8110. begin
  8111. fResponse:=(a.flag0 and bm_DDEDATA_fResponse) shr bp_DDEDATA_fResponse;
  8112. end;
  8113. procedure set_fResponse(var a : DDEDATA; __fResponse : word);
  8114. begin
  8115. a.flag0:=a.flag0 or ((__fResponse shl bp_DDEDATA_fResponse) and bm_DDEDATA_fResponse);
  8116. end;
  8117. function fRelease(var a : DDEDATA) : word;
  8118. begin
  8119. fRelease:=(a.flag0 and bm_DDEDATA_fRelease) shr bp_DDEDATA_fRelease;
  8120. end;
  8121. procedure set_fRelease(var a : DDEDATA; __fRelease : word);
  8122. begin
  8123. a.flag0:=a.flag0 or ((__fRelease shl bp_DDEDATA_fRelease) and bm_DDEDATA_fRelease);
  8124. end;
  8125. function reserved(var a : DDEDATA) : word;
  8126. begin
  8127. reserved:=(a.flag0 and bm_DDEDATA_reserved) shr bp_DDEDATA_reserved;
  8128. end;
  8129. procedure set_reserved(var a : DDEDATA; __reserved : word);
  8130. begin
  8131. a.flag0:=a.flag0 or ((__reserved shl bp_DDEDATA_reserved) and bm_DDEDATA_reserved);
  8132. end;
  8133. function fAckReq(var a : DDEDATA) : word;
  8134. begin
  8135. fAckReq:=(a.flag0 and bm_DDEDATA_fAckReq) shr bp_DDEDATA_fAckReq;
  8136. end;
  8137. procedure set_fAckReq(var a : DDEDATA; __fAckReq : word);
  8138. begin
  8139. a.flag0:=a.flag0 or ((__fAckReq shl bp_DDEDATA_fAckReq) and bm_DDEDATA_fAckReq);
  8140. end;
  8141. function unused(var a : DDELN) : word;
  8142. begin
  8143. unused:=(a.flag0 and bm_DDELN_unused) shr bp_DDELN_unused;
  8144. end;
  8145. procedure set_unused(var a : DDELN; __unused : word);
  8146. begin
  8147. a.flag0:=a.flag0 or ((__unused shl bp_DDELN_unused) and bm_DDELN_unused);
  8148. end;
  8149. function fRelease(var a : DDELN) : word;
  8150. begin
  8151. fRelease:=(a.flag0 and bm_DDELN_fRelease) shr bp_DDELN_fRelease;
  8152. end;
  8153. procedure set_fRelease(var a : DDELN; __fRelease : word);
  8154. begin
  8155. a.flag0:=a.flag0 or ((__fRelease shl bp_DDELN_fRelease) and bm_DDELN_fRelease);
  8156. end;
  8157. function fDeferUpd(var a : DDELN) : word;
  8158. begin
  8159. fDeferUpd:=(a.flag0 and bm_DDELN_fDeferUpd) shr bp_DDELN_fDeferUpd;
  8160. end;
  8161. procedure set_fDeferUpd(var a : DDELN; __fDeferUpd : word);
  8162. begin
  8163. a.flag0:=a.flag0 or ((__fDeferUpd shl bp_DDELN_fDeferUpd) and bm_DDELN_fDeferUpd);
  8164. end;
  8165. function fAckReq(var a : DDELN) : word;
  8166. begin
  8167. fAckReq:=(a.flag0 and bm_DDELN_fAckReq) shr bp_DDELN_fAckReq;
  8168. end;
  8169. procedure set_fAckReq(var a : DDELN; __fAckReq : word);
  8170. begin
  8171. a.flag0:=a.flag0 or ((__fAckReq shl bp_DDELN_fAckReq) and bm_DDELN_fAckReq);
  8172. end;
  8173. function unused(var a : DDEPOKE) : word;
  8174. begin
  8175. unused:=(a.flag0 and bm_DDEPOKE_unused) shr bp_DDEPOKE_unused;
  8176. end;
  8177. procedure set_unused(var a : DDEPOKE; __unused : word);
  8178. begin
  8179. a.flag0:=a.flag0 or ((__unused shl bp_DDEPOKE_unused) and bm_DDEPOKE_unused);
  8180. end;
  8181. function fRelease(var a : DDEPOKE) : word;
  8182. begin
  8183. fRelease:=(a.flag0 and bm_DDEPOKE_fRelease) shr bp_DDEPOKE_fRelease;
  8184. end;
  8185. procedure set_fRelease(var a : DDEPOKE; __fRelease : word);
  8186. begin
  8187. a.flag0:=a.flag0 or ((__fRelease shl bp_DDEPOKE_fRelease) and bm_DDEPOKE_fRelease);
  8188. end;
  8189. function fReserved(var a : DDEPOKE) : word;
  8190. begin
  8191. fReserved:=(a.flag0 and bm_DDEPOKE_fReserved) shr bp_DDEPOKE_fReserved;
  8192. end;
  8193. procedure set_fReserved(var a : DDEPOKE; __fReserved : word);
  8194. begin
  8195. a.flag0:=a.flag0 or ((__fReserved shl bp_DDEPOKE_fReserved) and bm_DDEPOKE_fReserved);
  8196. end;
  8197. function unused(var a : DDEUP) : word;
  8198. begin
  8199. unused:=(a.flag0 and bm_DDEUP_unused) shr bp_DDEUP_unused;
  8200. end;
  8201. procedure set_unused(var a : DDEUP; __unused : word);
  8202. begin
  8203. a.flag0:=a.flag0 or ((__unused shl bp_DDEUP_unused) and bm_DDEUP_unused);
  8204. end;
  8205. function fAck(var a : DDEUP) : word;
  8206. begin
  8207. fAck:=(a.flag0 and bm_DDEUP_fAck) shr bp_DDEUP_fAck;
  8208. end;
  8209. procedure set_fAck(var a : DDEUP; __fAck : word);
  8210. begin
  8211. a.flag0:=a.flag0 or ((__fAck shl bp_DDEUP_fAck) and bm_DDEUP_fAck);
  8212. end;
  8213. function fRelease(var a : DDEUP) : word;
  8214. begin
  8215. fRelease:=(a.flag0 and bm_DDEUP_fRelease) shr bp_DDEUP_fRelease;
  8216. end;
  8217. procedure set_fRelease(var a : DDEUP; __fRelease : word);
  8218. begin
  8219. a.flag0:=a.flag0 or ((__fRelease shl bp_DDEUP_fRelease) and bm_DDEUP_fRelease);
  8220. end;
  8221. function fReserved(var a : DDEUP) : word;
  8222. begin
  8223. fReserved:=(a.flag0 and bm_DDEUP_fReserved) shr bp_DDEUP_fReserved;
  8224. end;
  8225. procedure set_fReserved(var a : DDEUP; __fReserved : word);
  8226. begin
  8227. a.flag0:=a.flag0 or ((__fReserved shl bp_DDEUP_fReserved) and bm_DDEUP_fReserved);
  8228. end;
  8229. function fAckReq(var a : DDEUP) : word;
  8230. begin
  8231. fAckReq:=(a.flag0 and bm_DDEUP_fAckReq) shr bp_DDEUP_fAckReq;
  8232. end;
  8233. procedure set_fAckReq(var a : DDEUP; __fAckReq : word);
  8234. begin
  8235. a.flag0:=a.flag0 or ((__fAckReq shl bp_DDEUP_fAckReq) and bm_DDEUP_fAckReq);
  8236. end;
  8237. {$i typshrd.inc}
  8238. {$endif read_implementation}