Search Results Write to the Eventlog in Delphi Dec 13 Written by: 12/13/2012 7:17 PM Delphi Write to Event Log uses Windows; ... const SDefaultSource = 'ELog'; ... // TEventLogger is not used because the current RTL supports only local servers function WriteEventLog(AEntry: string; AServer: string =''; ASource: string = SDefaultSource; AEventType: word = EVENTLOG_INFORMATION_TYPE; AEventId: word = 0; AEventCategory: word = 0 ): boolean; var EventLog: integer; P: Pointer; begin Result := False; P := PWideChar(AEntry); if Length(AServer) = 0 then // Write to the local machine EventLog := RegisterEventSource(nil, PWideChar(ASource)) else // Write to a remote machine EventLog := RegisterEventSource(PWideChar(AServer), PWideChar(ASource)); if EventLog <> 0 then try ReportEvent(EventLog, // event log handle AEventType, // event type AEventCategory, // category zero AEventId, // event identifier nil, // no user security identifier 1, // one substitution string 0, // no data @P, // pointer to string array nil); // pointer to data Result := True; finally DeregisterEventSource(EventLog); end; Trackback Print Tags: Delphi , Eventlog Categories: Development Location: Blogs Jerry Langland's Blog 2 comment(s) so far... Re: Write to the Eventlog in Delphi Delphi provides us the knowledge to improve the coding language. Coding language is while we making some kind of software. Some software provides good coding language and helpful for the development of the software. It is a good site. Thank you! You can write my essay 4 me to get valuable instruction with the help of native writers. By Cynthia J. Lafountain on 1/20/2017 1:21 AM Re: Write to the Eventlog in Delphi Nike Outlet OnlineNike ShoesNike Outlet Store Online ShoppingPandora Bracelet CharmsNike ShoesAir Jordan RetroNike Free RunNew NikeAdidas YeezyChristian Louboutin ShoesYeezy 700Nike ShoesNike Factory Store OnlineChristian Louboutin OutletChristian Louboutin ShoesNike Outlet Store Online ShoppingNike Shoes For WomenNike Factory OutletAsicsChristian Louboutin OutletAdidas Stan Smith SneakersSalvatore FerragamoChristian Louboutin HeelsValentino ShoesNike Basketball ShoesFjallraven Kanken BackpackNike OutletRed Bottom ShoesNike Sneakers For MenNike Clearance OutletLebron ShoesNike Cortez WomenYeezy 550Nike Running ShoesPandora JewelryNike Free rnLouboutin ShoesNike StoreNike Factory OutletNike Air Force 1 WomenPandora SaleNike Zoom Pegasus 35Air JordansPandora JewelryGolden Goose SneakersNike Shoes OutletAdidas YeezyNike Sneakers OutletNike Air Max 720Nike Factory OutletNike ClearanceNew Air Max 2019Cheap Nike ShoesKevin Durant ShoesMoncler OutletNike OutletNike ClearanceNike Air Max 95 EssentialCheap YeezysChristian Louboutin ShoesNike Air MaxNike Lebron 16Nike ShoesNike KyrieChristian LouboutinNike SneakersRed BottomsMichael Jordan ShoesLebron 16Nike Air Zoom PulsePandora CharmsFjallraven Kanken BackpackNike Black Friday SalesKyrie Irving ShoesNike Air Max 270Nike ShoesAir Force 1Nike Outlet StoreNike Running ShoesPandora NecklaceFerragamoNike Outlet Store OnlinePandora BraceletsJordan ShoesAdidas YeezyCheap Nike ShoesNike StoreYeezy 500 BlackAdidas NMD R1Nike OutletPandora RingNike ShoesNike Air ForceJordan 13 RetroNike Shoes For Men BasketballLouboutin ShoesPandora EarringsAir Force OnesPandoraNike OutletNMD AdidasPandora UKAdidas Ultra BoostLebrons ShoesVans ShoesNike CortezPandora CharmsYeezys Boost 350 V2Nike Air Max 95Nike HuaracheNike Air Max 98Nike Factory StoreNike Running Shoes For MenRed Bottom HeelsChristian Louboutin OutletPandora CanadaNike Outlet Store OnlineNike Store OnlineNike Air Max 98Jordan RetroNike SneakersPandora Jewelry Official Site USAPandora CanadaPandoraChristian Louboutin HeelsNike Air More UptempoNike Air Max 720Air Jordan SneakersNike PrestosYeezy BoostNike ShoesChristian Louboutin ShoesFerragamo BeltsUltra BoostJordan 11 BlueYeezyPandora Bracelets And CharmsJordan KidsJordans SneakersLebron 17 GraffitiAdidas Sneakers For WomenChristian Louboutin By Nicholas on 7/1/2022 8:55 PM Your name: Your email: (Optional) Email used only to show Gravatar. Your website: Title: Comment: Security Code Enter the code shown above in the box below Add Comment Cancel
Tags Delphi (3)CLR (2)WestClinTech (2).Net (1)7-Zip (1)ARECA (1)Authentication (1)DevExpress (1)Eventlog (1)Excel (1)Hard Disk (1)IE (1)Iomega (1)legacy data (1)MS Office (1)MSMQ (1)OAuth1 (1)Open Authentication (1)RAD Studio XE 5 (1)RAID (1)RDS (1)RESTClient (1)SQL (1)STAC (1)STAC Electronics (1)Stacker (1)StacVol.dsk (1)Telerik (1)Terminal Services (1)Time Zone (1)Tumblr (1)Twitter (1)Visual Studio (1)Zip Drive (1)