<?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; Delphi</title>
	<atom:link href="http://home.x-pack.org/category/free-source-code/delphi/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 ] – Delete all files within directory</title>
		<link>http://home.x-pack.org/delphi-delete-all-files-within-directory/</link>
		<comments>http://home.x-pack.org/delphi-delete-all-files-within-directory/#comments</comments>
		<pubDate>Sun, 04 Jul 2010 03:45:00 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Files]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=454</guid>
		<description><![CDATA[{You have to FileListBox component on the form} procedure TForm1.Button1Click(Sender: TObject); var &#160;&#160;i: Integer; begin &#160;&#160;for i:=0 to FileListBox1.Items.Count-1 do &#160;&#160;&#160;&#160;DeleteFile(FileListBox1.Items[i]); &#160;&#160;FileListBox1.Update; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-delete-all-files-within-directory/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<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 ] – Set the home page for the Internet Explorer</title>
		<link>http://home.x-pack.org/delphi-set-the-home-page-for-the-internet-explorer/</link>
		<comments>http://home.x-pack.org/delphi-set-the-home-page-for-the-internet-explorer/#comments</comments>
		<pubDate>Fri, 04 Jun 2010 10:51:14 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Internet / Lan]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=308</guid>
		<description><![CDATA[unit iphlp; interface uses Windows, System; const &#160;&#160;MAX_HOSTNAME_LEN&#160;&#160;&#160;&#160;= 128; &#160;&#160;MAX_DOMAIN_NAME_LEN = 128; &#160;&#160;MAX_SCOPE_ID_LEN&#160;&#160;&#160;&#160;= 256; type &#160;&#160;PIPAddressString = ^TIPAddressString; &#160;&#160;PIPMaskString&#160;&#160;&#160;&#160;= ^TIPAddressString; &#160;&#160;TIPAddressString = record &#160;&#160;&#160;&#160;_String: array[0..(4 * 4) - 1] of Char; &#160;&#160;end; &#160;&#160;TIPMaskString = TIPAddressString; &#160;&#160;PIPAddrString = ^TIPAddrString; &#160;&#160;TIPAddrString = packed record &#160;&#160;&#160;&#160;Next: PIPAddrString; &#160;&#160;&#160;&#160;IpAddress: TIPAddressString; &#160;&#160;&#160;&#160;IpMask: TIPMaskString; &#160;&#160;&#160;&#160;Context: DWORD; &#160;&#160;end; &#160;&#160;PFixedInfo = ^TFixedInfo; &#160;&#160;TFixedInfo]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-set-the-home-page-for-the-internet-explorer/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get the table version</title>
		<link>http://home.x-pack.org/delphi-get-the-table-version/</link>
		<comments>http://home.x-pack.org/delphi-get-the-table-version/#comments</comments>
		<pubDate>Fri, 04 Jun 2010 03:36:13 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Database]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=445</guid>
		<description><![CDATA[function GetTableVersion(Table: TTable): Longint; var &#160;&#160;hCursor: hDBICur; &#160;&#160;DT:&#160;&#160;&#160;&#160;&#160;&#160;TBLFullDesc; begin &#160;&#160;Check(DbiOpenTableList(Table.DBHandle, True, False, &#160;&#160;&#160;&#160;PChar(Table.TableName), hCursor)); &#160;&#160;Check(DbiGetNextRecord(hCursor, dbiNOLOCK, @DT, nil)); &#160;&#160;Result := DT.tblExt.iRestrVersion; &#160;&#160;Check(DbiCloseCursor(hCursor)); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-the-table-version/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Select a random data record</title>
		<link>http://home.x-pack.org/delphi-select-a-random-data-record/</link>
		<comments>http://home.x-pack.org/delphi-select-a-random-data-record/#comments</comments>
		<pubDate>Fri, 04 Jun 2010 03:35:03 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Database]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=443</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;Randomize; &#160;&#160;Table1.First; &#160;&#160;Table1.MoveBy(Random(Table1.RecordCount)); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-select-a-random-data-record/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Check if a Stringgrid cell is selected</title>
		<link>http://home.x-pack.org/delphi-check-if-a-stringgrid-cell-is-selected/</link>
		<comments>http://home.x-pack.org/delphi-check-if-a-stringgrid-cell-is-selected/#comments</comments>
		<pubDate>Fri, 04 Jun 2010 03:20:18 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Components]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=420</guid>
		<description><![CDATA[function IsCellSelected(StringGrid: TStringGrid; X, Y: Longint): Boolean; begin &#160;&#160;Result := False; &#160;&#160;try &#160;&#160;&#160;&#160;if (X &#62;= StringGrid.Selection.Left) and (X &#60;= StringGrid.Selection.Right) and &#160;&#160;&#160;&#160;&#160;&#160;(Y &#62;= StringGrid.Selection.Top) and (Y &#60;= StringGrid.Selection.Bottom) then &#160;&#160;&#160;&#160;&#160;&#160;Result := True; &#160;&#160;except &#160;&#160;end; end; procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;if IsCellSelected(stringgrid1, 2, 2) then &#160;&#160;&#160;&#160;ShowMessage('Cell (2,2) is selected.'); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-check-if-a-stringgrid-cell-is-selected/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 Internet Explorer favourites</title>
		<link>http://home.x-pack.org/delphi-get-internet-explorer-favourites/</link>
		<comments>http://home.x-pack.org/delphi-get-internet-explorer-favourites/#comments</comments>
		<pubDate>Tue, 04 May 2010 11:17:30 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Internet / Lan]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=336</guid>
		<description><![CDATA[uses ShlObj, ActiveX; function GetIEFavourites(const favpath: string): TStrings; var searchrec: TSearchRec; str: TStrings; path, dir, FileName: string; Buffer: array[0..2047] of Char; found: Integer; begin str := TStringList.Create; // Get all file names in the favourites path path := FavPath + '\*.url'; dir := ExtractFilepath(path); found := FindFirst(path, faAnyFile, searchrec); while found = 0 do begin]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-internet-explorer-favourites/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Swap the mouse buttons</title>
		<link>http://home.x-pack.org/delphi-swap-the-mouse-buttons/</link>
		<comments>http://home.x-pack.org/delphi-swap-the-mouse-buttons/#comments</comments>
		<pubDate>Tue, 04 May 2010 09:56:13 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Miscellaneous]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=99</guid>
		<description><![CDATA[procedure SwapMouseButtons(bValue: Boolean); begin &#160;&#160;if bValue then &#160;&#160;&#160;&#160;SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, nil, 0) &#160;&#160;else &#160;&#160;&#160;&#160;SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil, 0); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-swap-the-mouse-buttons/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Open and close a certain CD-drive</title>
		<link>http://home.x-pack.org/delphi-open-and-close-a-certain-cd-drive/</link>
		<comments>http://home.x-pack.org/delphi-open-and-close-a-certain-cd-drive/#comments</comments>
		<pubDate>Tue, 04 May 2010 09:44:15 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Multimedia]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=79</guid>
		<description><![CDATA[uses &#160;&#160;MMSystem; {Simple Way:} &#160;&#160;mciSendstring('SET CDAUDIO DOOR OPEN WAIT', nil, 0, Self.Handle); {More complex way:} function OpenCD(Drive: Char): Boolean; var &#160;&#160;Res: MciError; &#160;&#160;OpenParm: TMCI_Open_Parms; &#160;&#160;Flags: DWORD; &#160;&#160;S: string; &#160;&#160;DeviceID: Word; begin &#160;&#160;Result := False; &#160;&#160;S := Drive + ':'; &#160;&#160;Flags&#160;&#160;:= MCI_OPEN_TYPE or MCI_OPEN_ELEMENT; &#160;&#160;with OpenParm do &#160;&#160;begin &#160;&#160;&#160;&#160;dwCallback := 0; &#160;&#160;&#160;&#160;lpstrDeviceType := 'CDAudio'; &#160;&#160;&#160;&#160;lpstrElementName :=]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-open-and-close-a-certain-cd-drive/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Change the sound cards volume</title>
		<link>http://home.x-pack.org/delphi-change-the-sound-cards-volume/</link>
		<comments>http://home.x-pack.org/delphi-change-the-sound-cards-volume/#comments</comments>
		<pubDate>Tue, 04 May 2010 09:42:25 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Multimedia]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=75</guid>
		<description><![CDATA[uses &#160;&#160;MMSystem; procedure SetVolume(const volL, volR: Word); var &#160;&#160;hWO: HWAVEOUT; &#160;&#160;waveF: TWAVEFORMATEX; &#160;&#160;vol: DWORD; begin &#160;&#160;FillChar(waveF, SizeOf(waveF), 0); &#160;&#160;waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0); &#160;&#160;vol := volL + volR shl 16; &#160;&#160;waveOutSetVolume(hWO, vol); &#160;&#160;waveOutClose(hWO); end; procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;SetVolume(14000, 14000); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-change-the-sound-cards-volume/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Play sound through a sound card</title>
		<link>http://home.x-pack.org/delphi-play-sound-through-a-sound-card/</link>
		<comments>http://home.x-pack.org/delphi-play-sound-through-a-sound-card/#comments</comments>
		<pubDate>Tue, 04 May 2010 09:40:45 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Multimedia]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=71</guid>
		<description><![CDATA[uses MMSystem; type TVolumeLevel = 0..127; procedure MakeSound(Frequency{Hz}, Duration{mSec}: Integer; Volume: TVolumeLevel); {writes tone to memory and plays it} var WaveFormatEx: TWaveFormatEx; MS: TMemoryStream; i, TempInt, DataCount, RiffCount: integer; SoundValue: byte; w: double; // omega ( 2 * pi * frequency) const Mono: Word = $0001; SampleRate: Integer = 11025; // 8000, 11025, 22050, or]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-play-sound-through-a-sound-card/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 32/89 queries in 0.098 seconds using disk: basic
Object Caching 806/923 objects using disk: basic

Served from: home.x-pack.org @ 2012-05-19 04:58:55 -->
