Category: WinApi
-
Determine when Windows is a Desktop or Server edition using Delphi
Read the article: Determine when Windows is a Desktop or Server edition using DelphiSometimes we need determine when a windows version is a server edition (2000, 2003 or 2008) or a Desktop edition. to do this we can use the VerifyVersionInfo function. this…
-
Delphi : Enumerating Remote Desktop Servers in a network domain
Read the article: Delphi : Enumerating Remote Desktop Servers in a network domainUsing the WinApi WTSEnumerateServers function you can get a list of all Remote Desktop Servers in a network domain. Check this code. Tested on Delphi 2007, Delphi 2010, Delphi XE…
-
Detect Aero Glass using Delphi
Read the article: Detect Aero Glass using DelphiTo detect if Aero Glass is enabled we must use the DwmIsCompositionEnabled function. See this example [sourcecode language=”delphi” wraplines=”false”] program DetectAeroDelphi; {$APPTYPE CONSOLE} //Author Rodrigo Ruz 2009-10-26 uses Windows, SysUtils;…
-
Glass effect in a Delphi Console Application
Read the article: Glass effect in a Delphi Console ApplicationUsing the DwmEnableBlurBehindWindow and GetConsoleWindow functions , we can apply a nice glass effect to our console applications. Check this sample application [sourcecode language=”delphi” wraplines=”false”] program ConsoleGlassDelphi; //Author : Rodrigo Ruz…
-
Getting the parent process filename of a PID, using Delphi.
Read the article: Getting the parent process filename of a PID, using Delphi.The next code shows how get the parent process filename of a PID, using Delphi. [sourcecode language=”delphi” wraplines=”false”] uses Psapi, Windows, tlhelp32, SysUtils; function GetParentProcessFileName(PID : DWORD): String; var HandleSnapShot…
-
Detect If my Delphi application is running under a 64-bit version of Windows.
Read the article: Detect If my Delphi application is running under a 64-bit version of Windows.The next code shows how detect If my Delphi application is running under a 64-bit version of Windows. [sourcecode language=”delphi” wraplines=”false”] uses Windows; function IsWow64Process: Boolean; type TIsWow64Process = function(…