<?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; Miscellaneous</title>
	<atom:link href="http://home.x-pack.org/category/free-source-code/delphi/miscellaneous/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 ] – 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 ] – Hide the desktop icons</title>
		<link>http://home.x-pack.org/delphi-hide-the-desktop-icons/</link>
		<comments>http://home.x-pack.org/delphi-hide-the-desktop-icons/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 09:56:45 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Miscellaneous]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=101</guid>
		<description><![CDATA[ShowWindow(FindWindow(nil, &#8216;Program Manager&#8217;), SW_HIDE); ShowWindow(FindWindow(nil, &#8216;Program Manager&#8217;), SW_SHOW);]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-hide-the-desktop-icons/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Make the desktop icon text transparent</title>
		<link>http://home.x-pack.org/delphi-make-the-desktop-icon-text-transparent/</link>
		<comments>http://home.x-pack.org/delphi-make-the-desktop-icon-text-transparent/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 09:55:14 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Miscellaneous]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=97</guid>
		<description><![CDATA[uses &#160;&#160;Commctrl; var &#160;&#160;hLV: THandle; procedure TForm1.GetDesktopListViewHandle; var &#160;&#160;s1: String; begin &#160;&#160;hLV := FindWindow('ProgMan', nil); &#160;&#160;hLV := GetWindow(hLV, GW_CHILD); &#160;&#160;hLV := GetWindow(hLV, GW_CHILD); &#160;&#160;SetLength(s1, 40); &#160;&#160;GetClassName(hLV, PChar(s1), 39); &#160;&#160;if PChar(s1) &#60;&#62; 'SysListView32' then &#160;&#160;&#160;&#160;ShowMessage('Failed'); end; procedure TForm1.Button1Click(Sender: TObject); var &#160;&#160;xColor: TColor; begin &#160;&#160;GetDesktopListViewHandle; &#160;&#160;xColor := ListView_GetTextColor(hLV); &#160;&#160;ListView_SetTextColor(hLV, xColor); &#160;&#160;xColor := ListView_GetTextBkColor(hLV); &#160;&#160;ListView_SetTextBkColor(hLV, xColor); &#160;&#160;ListView_SetTextBkColor(hLV, $FFFFFFFF);]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-make-the-desktop-icon-text-transparent/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Change the date format</title>
		<link>http://home.x-pack.org/delphi-change-the-date-format/</link>
		<comments>http://home.x-pack.org/delphi-change-the-date-format/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 09:54:19 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Miscellaneous]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=95</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;DateSeparator&#160;&#160; := '.'; &#160;&#160;ShortDateFormat := 'dd.mm.yy'; &#160;&#160;LongDateFormat&#160;&#160;:= 'dddd, dd.mmmm.yyyy'; end; procedure TForm1.Button2Click(Sender: TObject); begin &#160;&#160;{shows the short and long month name of month number 11} &#160;&#160;ShowMessage(ShortMonthNames[11] + ' - ' + LongMonthNames[11]); &#160;&#160;{shows the short and long day name of day number 6} &#160;&#160;ShowMessage(ShortDayNames[5] + ' - ' + LongDayNames[5]); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-change-the-date-format/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Close an application with the escape key</title>
		<link>http://home.x-pack.org/delphi-close-an-application-with-the-escape-key/</link>
		<comments>http://home.x-pack.org/delphi-close-an-application-with-the-escape-key/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 09:51:50 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Miscellaneous]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=91</guid>
		<description><![CDATA[procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin &#160;&#160;if key = #27 then Close; end; procedure TForm1.FormCreate(Sender: TObject); begin &#160;&#160;Form1.KeyPreview := True; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-close-an-application-with-the-escape-key/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Implement the Pascal Delay-function</title>
		<link>http://home.x-pack.org/delphi-implement-the-pascal-delay-function/</link>
		<comments>http://home.x-pack.org/delphi-implement-the-pascal-delay-function/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 09:58:59 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Miscellaneous]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=108</guid>
		<description><![CDATA[procedure Delay(dwMilliseconds: Longint); var &#160;&#160;iStart, iStop: DWORD; begin &#160;&#160;iStart := GetTickCount; &#160;&#160;repeat &#160;&#160;&#160;&#160;iStop := GetTickCount; &#160;&#160;&#160;&#160;Application.ProcessMessages; &#160;&#160;until (iStop - iStart) &#62;= dwMilliseconds; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-implement-the-pascal-delay-function/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Check if a disk is in the drive</title>
		<link>http://home.x-pack.org/delphi-check-if-a-disk-is-in-the-drive/</link>
		<comments>http://home.x-pack.org/delphi-check-if-a-disk-is-in-the-drive/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 09:57:23 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Miscellaneous]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=103</guid>
		<description><![CDATA[function DiskInDrive(Drive: Char): Boolean; var &#160;&#160;ErrorMode: Word; begin &#160;&#160;{ make it upper case } &#160;&#160;if Drive in ['a'..'z'] then Dec(Drive, $20); &#160;&#160;{ make sure it's a letter } &#160;&#160;if not (Drive in ['A'..'Z']) then &#160;&#160;&#160;&#160;raise EConvertError.Create('Not a valid drive ID'); &#160;&#160;{ turn off critical errors } &#160;&#160;ErrorMode := SetErrorMode(SEM_FailCriticalErrors); &#160;&#160;try &#160;&#160;&#160;&#160;{ drive 1 = a,]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-check-if-a-disk-is-in-the-drive/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Set decimal separator systemwide</title>
		<link>http://home.x-pack.org/delphi-set-decimal-separator-systemwide/</link>
		<comments>http://home.x-pack.org/delphi-set-decimal-separator-systemwide/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 09:52:46 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Miscellaneous]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=93</guid>
		<description><![CDATA[procedure SetDecimalSeparator(Ch: Char); var &#160;&#160;DefLCID: LCID; &#160;&#160;Buffer: LPSTR; begin &#160;&#160;Application.UpdateFormatSettings := True; &#160;&#160;StrPCopy(Buffer, Ch); &#160;&#160;DefLCID := GetThreadLocale; &#160;&#160;if SetLocaleInfo(DefLCID, LOCALE_SDecimal, Buffer) then &#160;&#160;&#160;&#160;DecimalSeparator := StrPas(Buffer)[1]; &#160;&#160;Application.UpdateFormatSettings := False; end; procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;SetDecimalSeparator('.'); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-set-decimal-separator-systemwide/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get the list of the installed softwares on a computer</title>
		<link>http://home.x-pack.org/delphi-get-the-list-of-the-installed-softwares-on-a-computer/</link>
		<comments>http://home.x-pack.org/delphi-get-the-list-of-the-installed-softwares-on-a-computer/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 09:49:39 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Miscellaneous]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=87</guid>
		<description><![CDATA[uses Registry; procedure TForm1.Button1Click(Sender: TObject); const UNINST_PATH = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall'; var Reg: TRegistry; SubKeys: TStringList; ListItem: TlistItem; i: integer; sDisplayName, sUninstallString: string; begin { ListView1.ViewStyle := vsReport; ListView1.Columns.add; ListView1.Columns.add; ListView1.Columns[0].caption := 'DisplayName'; ListView1.Columns[1].caption := 'UninstallString'; ListView1.Columns[0].Width := 300; ListView1.Columns[1].Width := 300; } Reg := TRegistry.Create; with Reg do try with ListView1.Items do try BeginUpdate; Clear; RootKey]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-the-list-of-the-installed-softwares-on-a-computer/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Know if a key has been pressed</title>
		<link>http://home.x-pack.org/delphi-know-if-a-key-has-been-pressed/</link>
		<comments>http://home.x-pack.org/delphi-know-if-a-key-has-been-pressed/#comments</comments>
		<pubDate>Thu, 04 Feb 2010 10:00:08 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Miscellaneous]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=110</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); var &#160;&#160;hTaskBar : THandle; begin // If you want to detect a letter you must be use the ascii code. //detect the "a and the A letter". if GetasyncKeyState(65)0 then Caption:='A'; if GetasyncKeyState(97)0 then Caption:='a'; // If you want to detect the left button of the mouse use: if GetasyncKeyState(1)0 'mouse end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-know-if-a-key-has-been-pressed/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Check if Delphi is running</title>
		<link>http://home.x-pack.org/delphi-check-if-delphi-is-running/</link>
		<comments>http://home.x-pack.org/delphi-check-if-delphi-is-running/#comments</comments>
		<pubDate>Thu, 04 Feb 2010 09:58:13 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Miscellaneous]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=106</guid>
		<description><![CDATA[function WindowExists(AppWindowName, AppClassName: string): Boolean; var &#160;&#160;hwd: LongWord; begin &#160;&#160;hwd&#160;&#160;&#160;&#160;:= 0; &#160;&#160;hwd&#160;&#160;&#160;&#160;:= FindWindow(PChar(AppWindowName), PChar(AppClassName)); &#160;&#160;Result := False; &#160;&#160;if not (Hwd = 0) then {window was found if not nil} &#160;&#160;&#160;&#160;Result := True; end; function DelphiLoaded: Boolean; begin &#160;&#160;DelphiLoaded := False; &#160;&#160;if WindowExists('TPropertyInspector', 'Object Inspector') then &#160;&#160;&#160;&#160;if WindowExists('TMenuBuilder', 'Menu Designer') then &#160;&#160;&#160;&#160;&#160;&#160;if WindowExists('TAppBuilder', '(AnyName)') then &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;if]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-check-if-delphi-is-running/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Detect a keypress during a loop</title>
		<link>http://home.x-pack.org/delphi-detect-a-keypress-during-a-loop/</link>
		<comments>http://home.x-pack.org/delphi-detect-a-keypress-during-a-loop/#comments</comments>
		<pubDate>Thu, 04 Feb 2010 09:50:41 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Miscellaneous]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=89</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); var &#160;&#160;LoopAborted: Boolean; &#160;&#160;i: Integer; begin &#160;&#160;LoopAborted := False; &#160;&#160;i := 0; &#160;&#160;repeat &#160;&#160;&#160;&#160;Caption := IntToStr(i); &#160;&#160;&#160;&#160;Application.ProcessMessages; &#160;&#160;&#160;&#160;if GetKeyState(VK_Escape) and 128 = 128 then &#160;&#160;&#160;&#160;begin &#160;&#160;&#160;&#160;&#160;&#160;LoopAborted := True; &#160;&#160;&#160;&#160;&#160;&#160;Break; &#160;&#160;&#160;&#160;end; &#160;&#160;&#160;&#160;Inc(i); &#160;&#160;until i = 100000; &#160;&#160;if LoopAborted then &#160;&#160;&#160;&#160;ShowMessage('User has aborted the loop!'); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-detect-a-keypress-during-a-loop/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 29/69 queries in 0.114 seconds using disk: basic
Object Caching 692/775 objects using disk: basic

Served from: home.x-pack.org @ 2012-05-19 05:06:40 -->
