struct.inc 293 KB

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