Software guru, Inc

Real World Solutions

The Guru's Blog

Write to the Eventlog in Delphi

Dec 13

Written by:
12/13/2012 7:17 PM  RssIcon

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;

6 comment(s) so far...


Gravatar

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
Gravatar

Re: Write to the Eventlog in Delphi

Nike Outlet Online
Nike Shoes
Nike Outlet Store Online Shopping
Pandora Bracelet Charms
Nike Shoes
Air Jordan Retro
Nike Free Run
New Nike
Adidas Yeezy
Christian Louboutin Shoes
Yeezy 700
Nike Shoes
Nike Factory Store Online
Christian Louboutin Outlet
Christian Louboutin Shoes
Nike Outlet Store Online Shopping
Nike Shoes For Women
Nike Factory Outlet
Asics
Christian Louboutin Outlet
Adidas Stan Smith Sneakers
Salvatore Ferragamo
Christian Louboutin Heels
Valentino Shoes
Nike Basketball Shoes
Fjallraven Kanken Backpack
Nike Outlet
Red Bottom Shoes
Nike Sneakers For Men
Nike Clearance Outlet
Lebron Shoes
Nike Cortez Women
Yeezy 550
Nike Running Shoes
Pandora Jewelry
Nike Free rn
Louboutin Shoes
Nike Store
Nike Factory Outlet
Nike Air Force 1 Women
Pandora Sale
Nike Zoom Pegasus 35
Air Jordans
Pandora Jewelry
Golden Goose Sneakers
Nike Shoes Outlet
Adidas Yeezy
Nike Sneakers Outlet
Nike Air Max 720
Nike Factory Outlet
Nike Clearance
New Air Max 2019
Cheap Nike Shoes
Kevin Durant Shoes
Moncler Outlet
Nike Outlet
Nike Clearance
Nike Air Max 95 Essential
Cheap Yeezys
Christian Louboutin Shoes
Nike Air Max
Nike Lebron 16
Nike Shoes
Nike Kyrie
Christian Louboutin
Nike Sneakers
Red Bottoms
Michael Jordan Shoes
Lebron 16
Nike Air Zoom Pulse
Pandora Charms
Fjallraven Kanken Backpack
Nike Black Friday Sales
Kyrie Irving Shoes
Nike Air Max 270
Nike Shoes
Air Force 1
Nike Outlet Store
Nike Running Shoes
Pandora Necklace
Ferragamo
Nike Outlet Store Online
Pandora Bracelets
Jordan Shoes
Adidas Yeezy
Cheap Nike Shoes
Nike Store
Yeezy 500 Black
Adidas NMD R1
Nike Outlet
Pandora Ring
Nike Shoes
Nike Air Force
Jordan 13 Retro
Nike Shoes For Men Basketball
Louboutin Shoes
Pandora Earrings
Air Force Ones
Pandora
Nike Outlet
NMD Adidas
Pandora UK
Adidas Ultra Boost
Lebrons Shoes
Vans Shoes
Nike Cortez
Pandora Charms
Yeezys Boost 350 V2
Nike Air Max 95
Nike Huarache
Nike Air Max 98
Nike Factory Store
Nike Running Shoes For Men
Red Bottom Heels
Christian Louboutin Outlet
Pandora Canada
Nike Outlet Store Online
Nike Store Online
Nike Air Max 98
Jordan Retro
Nike Sneakers
Pandora Jewelry Official Site USA
Pandora Canada
Pandora
Christian Louboutin Heels
Nike Air More Uptempo
Nike Air Max 720
Air Jordan Sneakers
Nike Prestos
Yeezy Boost
Nike Shoes
Christian Louboutin Shoes
Ferragamo Belts
Ultra Boost
Jordan 11 Blue
Yeezy
Pandora Bracelets And Charms
Jordan Kids
Jordans Sneakers
Lebron 17 Graffiti
Adidas Sneakers For Women
Christian Louboutin

By Nicholas on   7/1/2022 8:55 PM
Gravatar

Re: Write to the Eventlog in Delphi

New Nike
Nike Shoes
Moncler UK
Christian Louboutin Heels
Nike
Red Bottoms
Pandora
Nike Shoes
Pandora Canada
Nike Shoes For Kids
Red Bottom Heels
Yeezys
Air Max 95
Lebron 16
Nike Outlet Store
Pandora Official Website
Nike Presto
Ferragamo Shoes
Nike Running Shoes
Pandora Jewelry Rings
Valentino Sandals
Nike Sneakers Sale
Air Max 98 Gundam
Mens Nike Shoes
Kyrie Irving Shoes
Kyrie Irving Shoes
Nike Running Shoes
Louboutin Shoes
Air Jordan Retro
Nike Shoes
Yeezy
Nike KD
Nike Factory
Nike Air Max 270
Ferragamo
Nike Sneakers For Women
Golden Goose Shoes
Air Jordan Retro
Nike Outlet Store
Christian Louboutin Outlet
Vans Outlet
Nike Factory
Nike Outlet Store
Nike Basketball Shoes
Louboutin Heels
Yeezy Boost 750
Nike Clearance
Nike Clearance
New Nike Shoes
Nike Factory Store
Lebron Shoes
Red Bottoms
Yeezy Sneakers
Lebron 17 Low
Christian Louboutin Outlet
Christian Louboutin
Pandora Earrings
Jordan Retro 11
Pandora Charms
Nike Outlet Store Online Shopping
Air Jordan Shoes
Nike Air Zoom
Lebron James Shoes
Nike Air Force 1 Men
Yeezy 500
Pandora Necklaces Women
Nike Shoes Outlet Online Store
Nike Outlet Store Online Shopping
Nike Clearance Sale
Pandora Charms
Adidas Yeezy
Jordans Sneakers
Ferragamo Belt
Christian Louboutin Shoes Outlet
Womens Nike Shoes
Adidas Yeezy
Nike Outlet Store
Nike Air Max 98 Gundam
NMD
Air Jordans
Nike Air Max 720
Pandora Jewelry
Pandora Bracelets For Women
Yeezy
Nike Cortez
Nike Free rn
Yeezy
Nike Air Huarache
Christian Louboutin Outlet
Nike Shoes 2019
Christian Louboutin
Nike Air Max 270
Nike Clearance Outlet
Pandora Rings
Fjallraven Kanken
Nike 720 Air Max
Pandora Bracelets
Nike Shoes
Adidas Ultra Boost
Nike Outlet Store Online Shopping
Nike Outlet Store
Sneakers Website
Nike Store Online
Air Force 1
Adidas NMD R1
Kids Jordan Shoes
Air Max 2019
Nike Sneakers
Nike Running Shoes For Men
Lebron 16
Jordan 11 Blue
Christian Louboutin Outlet
Cheap Basketball Shoes
Air Force Ones
Asics Shoes Outlet
Nike Black Friday Sale
Cheap Nikes
Pandora UK
Nike Shoes
Adidas Sneakers
Nike Shox
Kanken Backpack
Pandora Rings
Christian Louboutin
Ultra Boost
Pandora
Nike Zoom
Nike Store
Pandora Outlet
Nike Free
Nike Outlet
Nike Outlet Store
Christian Louboutin Outlet
Nike Air Force
Pandora Bracelet
Red Bottom Shoes For Women
Nike Air Uptempo
Stan Smith Adidas
Jordan Shoes
Yeezy Boost 350
Jordan Retro 13
Air Max

By Catalina on   7/20/2022 11:11 PM
Gravatar

Re: Write to the Eventlog in Delphi

Nike
Jordan Retro 11
Jordan 11
Jordans For Kids
Pandora Jewelry Official Site
Jordan 25
Air Jordan 33
Air Force 1
Nike Roshe
Nike Air Force 1 Mid
Nike Slippers
Jordan 13
Ice Jerseys
Jordan 18
Adidas NMD
Nike Shoes
Nike Womens Shoes
Jordan 35
Huarache
Nike Running Shoes
Nike x Off White
Nike React
Red Bottom Shoes
Nike Outlet Online
Jordan 33 shoes
Nike Running Shoes For Women
Nike Air Force 1
NFL Jerseys
Jordan Shoes
Jordan 21
Nike Shoes
Air Force Ones
Cheap Nike Jordan Shoes
Wholesale Nike Shoes
Air Max
Nike Outlet
Nike Air Max Women
Nike Shoes For Women
Jordan 2
Cheap Nike Shoes
Nike Outlet Online
New Jordans 2021
Nike Factory Outlet
Jordan 1
Nike Air Foamposite
Nike Huarache Men
Fjallraven Kanken Backpack
Jordan 12
Jordan 17
Adidas Store
Nike Sneakers
Nike Free
Pandora Jewelry
Jordans 23
Jordans 12
Yeezy
Jordan 31
Adidas Yeezy Boost 350 V2
Wholesale Jordans From China Factory
Pandora
Cheap Shoes From China
Jordan Retros
Jordan 16
Jordan 29
Nike Wholesale
Wholesale Nike Shoes
Cheap Shoes Wholesale
Wholesale Nike Shoes
Wholesale Jerseys China
Jordan 26
Wholesale Jordans
Nike Shoes
Nikes
Cheap Jordans
Pandora Rings
Pandora Jewelry
Nike Wholesale
Christian Louboutin Shoes
Dior Jordans
Air Jordan
Jordan 33 Shoes
Cheap NFL Jerseys
Adidas Shoes Canada
Wholesale Jordans
Jordan 19
Nike Wholesale
Air Jordan 20
Nike Shoes
NHL Store
Nike Shoes Outlet Store Online Shopping
NFL Shop
Jordan Retro 4
Adidas Yeezy
Jordan 22
Wholesale Adidas Sneakers
Wholesale Jordans From China Factory
Adidas Shoes
Nike Hyperdunk
Huaraches
Jordan 34
Nike Shoes
Jordan 28
Lebron James Shoes
Pandora Jewelry
Jordan 11 Low
Nike Air Max 270
Nike Air Force Ones
Jordans 27
Nike Zoom
Toddler Jordan
Wholesale Adidas
What The Jordan 5s
Cheap Adidas Shoes
Nike Metcons
Pandora Jewelry
Roshe
NBA Store Canada
Air Max 2019
Nike Shoes
Michael Jordan Shoes
Jordan 30
Nike Outlet
Christian Louboutin
Nike Jordan 1
Jordan 24
Wholesale Jordans
AJ 1
Air Jordan 13
Jordan 11 Retro
Nike Outlet Store Online Shopping
Jordan 6s
Nike Zoom
Nike Shoes Cyber Monday Sales
Air Jordan 15
Nike Air Jordan
MLB Jerseys
Air Max 720
Pandora Ring
Pandora Jewelry Official Site
Adidas Outlet
Nike Sneakers For Women
Nike Cortez Women
Nike Clearance
Nike Shoes For Mens
Pandora Bracelets
Air Force 1
Nike Dunk
Jordan 14
Nike Outlet
Wholesale Cheap Jordans
Air Max 270
Nike Store
Nike Shoes Canada
Air Jordan 32
Jordan 12 Retro

By Katina on   7/26/2022 8:06 PM
Gravatar

Re: Write to the Eventlog in Delphi

Nike Sneakers Sale
Christian Louboutin Shoes Outlet
Louboutin Shoes
Adidas Ultra Boost Women
Nike Running Shoes For Men
Kyrie Irving Shoes
Fjallraven Kanken Backpack
Pandora Canada
Nike Air Max 98
Yeezy Boost 350 V2
Nike Sneakers
Lebron Shoes
Red Bottom Heels
Lebron 17
Womens Nike Shoes
Golden Goose
Lebron 16 Shoes
Christian Louboutin Shoes
Nike Store
Christian Louboutin UK
Nike Shoes
Nike Running Shoes
Nike Air Zoom Pegasus 36
Pandora Jewelry
NMD R1
Nike Store
Nike Outlet Store Online Shopping
Nike Factory Outlet
Jordan 11 Bred
Ultra Boost
Pandora UK
Jordan 13 Retro
Christian Louboutin Outlet
New Nike Shoes 2019
Kyries Shoes
Adidas NMD
Nike Factory
Jordan Retro
Pandora Charms
Nike Air Force
Lebrons Shoes
Kevin Durant Shoes
Nike Zoom
Huarache
Nike Cortez
New Nike Shoes
Moncler Outlet
Nike Outlet Store Online Shopping
Nike Lebron 16
Nike Outlet Online
Nike Clearance
Red Bottom Shoes
Nike Outlet Store Online
Nike Air Max 270 Men
Pandora Charms
Air Force 1
Jordan Sneakers
Nike Shoes
Pandora Earrings
Louboutin Shoes
Nike Store
Adidas Yeezy Shoes
Christian Louboutin
Christian Louboutin Shoes Sale Outlet
Pandora Rings
Pandora
Nike Shoes
Jordan Retro 11
Nike Metcons
Nike Shoes
Nike Factory
Nike Air Max
Ferragamo Outlet
Nike Air Max 720
Nike Outlet Online
Air Max 98
Adidas Yeezy
Pandora Bracelets For Women
Nike Sneakers
Nike Shoes
Ferragamo Shoes
Ferragamo Belt
Yeezys Shoes
Valentino Shoes
Air Jordan Retro
Vans Shoes Outlet
Nike Shoes For Men
Adidas Yeezy Boost 350 V2
Pandora Charms
Pandora Jewelry
Nike Free
Nike Sneakers
Yeezy 500 Blush
Cheap Nikes
Pandora Ring
Fjallraven Backpack
Nike Air Presto
Louboutin shoes
Louboutin Heels
Asics Outlet
Christian Louboutin Outlet
Nike Shoes For Men Basketball
Nike Air Max 2019
Pandora Necklace
Nike Air Max 95 Essential
Jordan Kids
Adidas Stan Smith
Nike Basketball Shoes
Nike Black Friday 2020
Pandora Rings
Nike Air Max 720
Nike Outlet
Air Force 1 High
Christian Louboutin Shoes Outlet
Yeezy Shoes
Nike Outlet
Pandora Bracelets Charms
Jordan Retro
Christian Louboutin Shoes
Nike Clearance
Nike Air Force
Adidas Sneakers For Women
Yeezy Boost
Nike Epic React
Nike Factory Outlet
Nike Outlet Store
New Nike
Adidas Yeezy
Yeezy Shoes
Nike Outlet Store
Nike Store
Nike Cortez Women
Red Bottom Shoes
Pandora Jewelry Official Site USA
Nike Outlet Store Online Shopping
Nike Clearance
Nike Shoes
Womens Nike Shoes
Pandora Canada
Michael Jordan Shoes
Nike Air Max
Retro Jordans

By Robert on   8/3/2022 8:48 AM
Gravatar

Re: Write to the Eventlog in Delphi

Adidas Outlet Store
Nike Shoes
Nike Sneakers For Women
Adidas Yeezy
Balenciaga Triple S
Balenciaga Sneakers
Air Jordan 1
Nike Running Shoes Sale
Nike Shoes Outlet Online
Moncler Jackets Women
Moncler Jacket For Men
Ferragamo
Adidas Canada
Asics Outlet Online
Salvatore Ferragamo Shoes
Cheap Moncler
Nike Factory Store
Pandora Jewelry Official Site
Pandora Bracelets
Pandora Bracelet
Pandora Charms Sale Clearance
Pandora
Pandora Jewelry
Pandora Charms
Cheap Jordan Shoes
Jordan Ones
Pandora Jewellery
Asics Sneakers
Salvatore Ferragamo
Nike Shoes For Women
Yeezy
Pandora Outlet
Pandora Rings
Jordan 1 High
Adidas Shoes Canada
Nike Air Jordan 1
Yeezy Boost 350 V2
Nike Store
Air Jordans 1
Balenciaga
Pandora Charms Bracelets
Adidas Shoes Women
Pandora Charms Jewelry
Nike Canada Online Shopping
Pandora Rings
Asics Shoes For Women
Jewelry Pandora
Jordan 1 Low
Balenciaga
Nike Shoes For Men
Balenciaga Shoes Women
Charms Pandora
Pandora Website
Pandora Outlet Online
Shoes Adidas
Pandora Official Site
Moncler Factory Outlet
Asics Running Shoes
Pandora Jewelry
Nike Mens Shoes
Pandora Charms Outlet
Shoes Nike
Pandora Charms
Jordan 1s
Pandora Charms
Moncler
Adidas Running Shoes Women
Nike Shoes
Nike Canada Online
Nike Canada Online
Yeezy
Pandora Charms
Nike Outlet
Pandora Jewelry
Jordan 1 Mid
Goyard Bags Outlet
Ferragamo Belt
Pandora Official Site
Moncler Jackets Sale
Wholesale Jordan
Pandora Jewelry
Goyard Handbags
Adidas Website
Pandora
Puma Shoes
New Nike Shoes
Pandora
Adidas Shoes
Pandora Jewelry
Pandora Jewelry
Asics Shoes Outlet
Moncler Coats
Dior Jordan 1
Best Basketball Shoes
Pandora Charms
Pandora Bracelet
Nike Canada Online
Nike Outlet Store
Air Jordan 1 Retro
Pandora Charms
Balenciaga Sneakers
Asics Gel-Kayano
Pandora Charms Outlet
Nike Air Max 720
Adidas NMD
Ferragamo
Pandora Outlet
Pandora Jewelry Store
Adidas Shoes
Nike Outlet Store
Outlet Moncler
Pandora Official Site
Nike Shoes
Pandora
Cheap Adidas Shoes
Adidas Sneakers
Asics
Jordan 1 Lows
Moncler Coat Men
Pandora Charms
Pandora Outlet
Wholesale Jordan Shoes
Pandora Official Site
Air Jordan 1 Retro High Og
Pandora Jewelry 70% Off Clearance
Nike Store
Adidas Clearance Sale
Pandora Outlet
Pandora Charms
Nike Canada
Nike Sneakers Men
Nike Shoes
Nike Shoes Women
Pandora
Jordans Wholesale Suppliers
Nike
Pandora Jewelry
Adidas Shoes
Pandora
Pandora Outlet Online
Jordan Retro 1 High OG
Pandora Charms
Nike Outlet Online
Balenciaga Sneakers
Pandora Jewelry
Adidas Shoes Men

By Anthony on   8/8/2022 7:27 PM

Your name:
Gravatar Preview
Your email:
(Optional) Email used only to show Gravatar.
Your website:
Title:
Comment:
Security Code
CAPTCHA image
Enter the code shown above in the box below
Add Comment   Cancel 
You must be logged in and have permission to create or edit a blog.