<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>X-pack.org &#187; System Information</title>
	<atom:link href="http://home.x-pack.org/category/free-source-code/delphi/system-information/feed/" rel="self" type="application/rss+xml" />
	<link>http://home.x-pack.org</link>
	<description>Download all you need here</description>
	<lastBuildDate>Fri, 18 May 2012 11:09:35 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.2.1</generator>
		<item>
		<title>[ Delphi ] – Get the time zone</title>
		<link>http://home.x-pack.org/delphi-get-the-time-zone/</link>
		<comments>http://home.x-pack.org/delphi-get-the-time-zone/#comments</comments>
		<pubDate>Fri, 04 Jun 2010 19:14:50 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[System Information]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=428</guid>
		<description><![CDATA[function GetTimeZone: string; var &#160;&#160;TimeZone: TTimeZoneInformation; begin &#160;&#160;GetTimeZoneInformation(TimeZone); &#160;&#160;Result := 'GMT ' + IntToStr(TimeZone.Bias div -60); end; procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;label1.Caption := GetTimeZone; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-the-time-zone/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Check if the user uses 24 hour format</title>
		<link>http://home.x-pack.org/delphi-check-if-the-user-uses-24-hour-format/</link>
		<comments>http://home.x-pack.org/delphi-check-if-the-user-uses-24-hour-format/#comments</comments>
		<pubDate>Fri, 04 Jun 2010 19:10:12 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[System Information]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=422</guid>
		<description><![CDATA[function Is24HourTimeFormat: Boolean; var &#160;&#160;DefaultLCID: LCID; begin &#160;&#160;DefaultLCID := GetThreadLocale; &#160;&#160;Result := 0 &#60;&#62; StrToIntDef(GetLocaleStr(DefaultLCID, &#160;&#160;&#160;&#160;LOCALE_ITIME,'0'), 0); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-check-if-the-user-uses-24-hour-format/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get Windows uptime</title>
		<link>http://home.x-pack.org/delphi-get-windows-uptime/</link>
		<comments>http://home.x-pack.org/delphi-get-windows-uptime/#comments</comments>
		<pubDate>Tue, 04 May 2010 19:21:11 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[System Information]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=440</guid>
		<description><![CDATA[function UpTime: string; const ticksperday: Integer = 1000 * 60 * 60 * 24; ticksperhour: Integer = 1000 * 60 * 60; ticksperminute: Integer = 1000 * 60; tickspersecond: Integer = 1000; var t: Longword; d, h, m, s: Integer; begin t := GetTickCount; d := t div ticksperday; Dec(t, d * ticksperday); h :=]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-windows-uptime/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get the CPU Speed</title>
		<link>http://home.x-pack.org/delphi-get-the-cpu-speed/</link>
		<comments>http://home.x-pack.org/delphi-get-the-cpu-speed/#comments</comments>
		<pubDate>Tue, 04 May 2010 19:12:32 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[System Information]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=424</guid>
		<description><![CDATA[function GetCPUSpeed: Double; const &#160;&#160;DelayTime = 500; var &#160;&#160;TimerHi, TimerLo: DWORD; &#160;&#160;PriorityClass, Priority: Integer; begin &#160;&#160;PriorityClass := GetPriorityClass(GetCurrentProcess); &#160;&#160;Priority&#160;&#160;&#160;&#160;&#160;&#160;:= GetThreadPriority(GetCurrentThread); &#160;&#160;SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS); &#160;&#160;SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL); &#160;&#160;Sleep(10); &#160;&#160;asm &#160;&#160;&#160;&#160;dw 310Fh &#160;&#160;&#160;&#160;mov TimerLo, eax &#160;&#160;&#160;&#160;mov TimerHi, edx &#160;&#160;end; &#160;&#160;Sleep(DelayTime); &#160;&#160;asm &#160;&#160;&#160;&#160;dw 310Fh &#160;&#160;&#160;&#160;sub eax, TimerLo &#160;&#160;&#160;&#160;sbb edx, TimerHi &#160;&#160;&#160;&#160;mov TimerLo, eax &#160;&#160;&#160;&#160;mov TimerHi, edx &#160;&#160;end; &#160;&#160;SetThreadPriority(GetCurrentThread, Priority); &#160;&#160;SetPriorityClass(GetCurrentProcess,]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-the-cpu-speed/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get the Windows Version</title>
		<link>http://home.x-pack.org/delphi-get-the-windows-version/</link>
		<comments>http://home.x-pack.org/delphi-get-the-windows-version/#comments</comments>
		<pubDate>Tue, 04 May 2010 11:39:40 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[System Information]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=414</guid>
		<description><![CDATA[procedure GetOSVersion; var VersionInfo: TOSVersionInfo; Platform: string; MajorVersion,MinorVersion,Build: DWORD; begin &#160;&#160;VersionInfo.dwOSVersionInfoSize := SizeOf(VersionInfo); &#160;&#160;GetVersionEx(VersionInfo); &#160;&#160; &#160;&#160;with VersionInfo do &#160;&#160;begin &#160;&#160;case dwPlatformId of &#160;&#160; VER_PLATFORM_WIN32s:&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;Platform := 'Windows 3x'; &#160;&#160; VER_PLATFORM_WIN32_WINDOWS: Platform := 'Windows 95'; &#160;&#160; VER_PLATFORM_WIN32_NT:&#160;&#160;&#160;&#160;&#160;&#160;Platform := 'Windows NT'; &#160;&#160;end; &#160;&#160; &#160;&#160;MajorVersion := dwMajorVersion; &#160;&#160;MinorVersion := dwMinorVersion; &#160;&#160;Build := dwBuildNumber; &#160;&#160;end; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-the-windows-version/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get process informations? (Windows NT/2000)</title>
		<link>http://home.x-pack.org/delphi-get-process-informations-windows-nt2000/</link>
		<comments>http://home.x-pack.org/delphi-get-process-informations-windows-nt2000/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 19:13:35 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[System Information]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=426</guid>
		<description><![CDATA[type &#160;&#160;PDebugModule = ^TDebugModule; &#160;&#160;TDebugModule = packed record &#160;&#160;&#160;&#160;Reserved: array [0..1] of Cardinal; &#160;&#160;&#160;&#160;Base: Cardinal; &#160;&#160;&#160;&#160;Size: Cardinal; &#160;&#160;&#160;&#160;Flags: Cardinal; &#160;&#160;&#160;&#160;Index: Word; &#160;&#160;&#160;&#160;Unknown: Word; &#160;&#160;&#160;&#160;LoadCount: Word; &#160;&#160;&#160;&#160;ModuleNameOffset: Word; &#160;&#160;&#160;&#160;ImageName: array [0..$FF] of Char; &#160;&#160;end; type &#160;&#160;PDebugModuleInformation = ^TDebugModuleInformation; &#160;&#160;TDebugModuleInformation = record &#160;&#160;&#160;&#160;Count: Cardinal; &#160;&#160;&#160;&#160;Modules: array [0..0] of TDebugModule; &#160;&#160;end; &#160;&#160;PDebugBuffer = ^TDebugBuffer; &#160;&#160;TDebugBuffer = record &#160;&#160;&#160;&#160;SectionHandle:]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-process-informations-windows-nt2000/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Retrieve CPU information</title>
		<link>http://home.x-pack.org/delphi-retrieve-cpu-information/</link>
		<comments>http://home.x-pack.org/delphi-retrieve-cpu-information/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 19:08:50 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[System Information]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=419</guid>
		<description><![CDATA[unit main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type Tfrm_main = class(TForm) img_info: TImage; procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } procedure info(s1, s2: string); end; var frm_main: Tfrm_main; gn_speed_y: Integer; gn_text_y: Integer; const gn_speed_x: Integer = 8; gn_text_x: Integer = 15; gl_start:]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-retrieve-cpu-information/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Determinate in whitch way windows is started</title>
		<link>http://home.x-pack.org/delphi-determinate-in-whitch-way-windows-is-started/</link>
		<comments>http://home.x-pack.org/delphi-determinate-in-whitch-way-windows-is-started/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 19:24:57 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[System Information]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=446</guid>
		<description><![CDATA[Label1.Caption := IntToStr(GetSysTemMetrics(SM_CLEANBOOT)); { &#160;&#160;Will return: &#160;&#160;0 Normal boot &#160;&#160;1 Fail-safe boot &#160;&#160;2 Fail-safe with network boot }]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-determinate-in-whitch-way-windows-is-started/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get the total and available memory</title>
		<link>http://home.x-pack.org/delphi-get-the-total-and-available-memory/</link>
		<comments>http://home.x-pack.org/delphi-get-the-total-and-available-memory/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 19:22:51 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[System Information]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=442</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); var memory: TMemoryStatus; begin memory.dwLength := SizeOf(memory); GlobalMemoryStatus(memory); ShowMessage('Total memory: ' + IntToStr(memory.dwTotalPhys) + ' Bytes'); ShowMessage('Available memory: ' + IntToStr(memory.dwAvailPhys) + ' Bytes'); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-the-total-and-available-memory/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get windows, system, temporary directory</title>
		<link>http://home.x-pack.org/delphi-get-windows-system-temporary-directory/</link>
		<comments>http://home.x-pack.org/delphi-get-windows-system-temporary-directory/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 19:20:20 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[System Information]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=438</guid>
		<description><![CDATA[{ Getting the Windows Directory } function GetWinDir: string; var &#160;&#160;dir: array [0..MAX_PATH] of Char; begin &#160;&#160;GetWindowsDirectory(dir, MAX_PATH); &#160;&#160;Result := StrPas(dir); end; function WindowsDirectory: string; var &#160;&#160;WinDir: PChar; begin &#160;&#160;WinDir := StrAlloc(MAX_PATH); &#160;&#160;GetWindowsDirectory(WinDir, MAX_PATH); &#160;&#160;Result := string(WinDir); &#160;&#160;if Result[Length(Result)] &#60;&#62; '\' then &#160;&#160;&#160;&#160;Result := Result + '\'; &#160;&#160;StrDispose(WinDir); end; function GetWindowsDirectory(var S: String): Boolean; var]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-windows-system-temporary-directory/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get the startmenu&#8217;s directory</title>
		<link>http://home.x-pack.org/delphi-get-the-startmenus-directory/</link>
		<comments>http://home.x-pack.org/delphi-get-the-startmenus-directory/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 19:19:09 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[System Information]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=436</guid>
		<description><![CDATA[uses &#160;&#160;ShlObj, ActiveX; procedure FreePidl(pidl: PItemIDList); var &#160;&#160;allocator: IMalloc; begin &#160;&#160;if Succeeded(SHGetMalloc(allocator)) then &#160;&#160;begin &#160;&#160;&#160;&#160;allocator.Free(pidl); &#160;&#160;&#160;&#160;{$IFDEF VER100} &#160;&#160;&#160;&#160;allocator.Release; &#160;&#160;&#160;&#160;{$ENDIF} &#160;&#160;end; end; function GetStartMenu: string; var &#160;&#160;pidl: PItemIDList; &#160;&#160;buf: array[0..MAX_PATH] of Char; begin &#160;&#160;if Succeeded(SHGetSpecialFolderLocation(Form1.Handle, CSIDL_STARTMENU, pidl)) then &#160;&#160;SHGetPathFromIDList(pidl, buf); &#160;&#160;Result := StrPas(buf); &#160;&#160;FreePIDL(pidl); end; procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;label1.Caption := GetStartMenu; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-the-startmenus-directory/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Check if a partition is NTFS or FAT formated</title>
		<link>http://home.x-pack.org/delphi-check-if-a-partition-is-ntfs-or-fat-formated/</link>
		<comments>http://home.x-pack.org/delphi-check-if-a-partition-is-ntfs-or-fat-formated/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 11:51:07 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[System Information]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=416</guid>
		<description><![CDATA[function GetHardDiskPartitionType(const DriveLetter: Char): string; var &#160;&#160;NotUsed: DWORD; &#160;&#160;VolumeFlags: DWORD; &#160;&#160;VolumeInfo: array[0..MAX_PATH] of Char; &#160;&#160;VolumeSerialNumber: DWORD; &#160;&#160;PartitionType: array[0..32] of Char; begin &#160;&#160;GetVolumeInformation(PChar(DriveLetter + ':\'), &#160;&#160;&#160;&#160;nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed, &#160;&#160;&#160;&#160;VolumeFlags, PartitionType, 32); &#160;&#160;Result := PartitionType; end; procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;ShowMessage(GetHardDiskPartitionType('c')); &#160;&#160;ShowMessage(GetHardDiskPartitionType('a')); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-check-if-a-partition-is-ntfs-or-fat-formated/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get the current drive letter</title>
		<link>http://home.x-pack.org/delphi-get-the-current-drive-letter/</link>
		<comments>http://home.x-pack.org/delphi-get-the-current-drive-letter/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 11:38:50 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[System Information]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=412</guid>
		<description><![CDATA[function CurDrv: Char; var s1: string; s2: Char; begin GetDir(0,s1); s2 := s1[1]; CurDrv := s2; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-the-current-drive-letter/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get Windows Directory</title>
		<link>http://home.x-pack.org/delphi-get-windows-directory/</link>
		<comments>http://home.x-pack.org/delphi-get-windows-directory/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 11:38:06 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[System Information]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=410</guid>
		<description><![CDATA[&#160;&#160;procedure Form1.Button1Click(Sender: TObject); &#160;&#160;var &#160;&#160;&#160;&#160;WinPath: array[0..MAX_PATH + 1] of char; &#160;&#160;begin &#160;&#160;&#160;&#160;&#160;&#160;GetWindowsDirectory(WinPath,MAX_PATH); &#160;&#160;end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-windows-directory/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get the harddisk serial number</title>
		<link>http://home.x-pack.org/delphi-get-the-harddisk-serial-number/</link>
		<comments>http://home.x-pack.org/delphi-get-the-harddisk-serial-number/#comments</comments>
		<pubDate>Thu, 04 Feb 2010 19:26:30 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[System Information]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=448</guid>
		<description><![CDATA[function GetHardDiskSerial(const DriveLetter: Char): string; var NotUsed: DWORD; VolumeFlags: DWORD; VolumeInfo: array[0..MAX_PATH] of Char; VolumeSerialNumber: DWORD; begin GetVolumeInformation(PChar(DriveLetter + ':\'), nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed, VolumeFlags, nil, 0); Result := Format('Label = %s VolSer = %8.8X', [VolumeInfo, VolumeSerialNumber]) end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(GetHardDiskSerial('c')); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-the-harddisk-serial-number/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

<!-- Performance optimized by W3 Total Cache. Learn more: http://www.w3-edge.com/wordpress-plugins/

Page Caching using disk: enhanced
Database Caching 35/85 queries in 0.260 seconds using disk: basic
Object Caching 811/919 objects using disk: basic

Served from: home.x-pack.org @ 2012-05-19 05:12:37 -->
