<?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; Windows</title>
	<atom:link href="http://home.x-pack.org/category/free-source-code/delphi/windows/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 ] &#8211; Control the windows task bar and the windows start button</title>
		<link>http://home.x-pack.org/delphi-control-the-windows-task-bar-and-the-windows-start-button/</link>
		<comments>http://home.x-pack.org/delphi-control-the-windows-task-bar-and-the-windows-start-button/#comments</comments>
		<pubDate>Tue, 05 Jan 2010 03:49:56 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=597</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); var &#160;&#160;hTaskBar : THandle; begin &#160;&#160;hTaskbar := FindWindow('Shell_TrayWnd', Nil); &#160;&#160;ShowWindow(hTaskBar, SW_HIDE); end; // Show the windows task bar. procedure TForm1.Button2Click(Sender: TObject); var &#160;&#160;hTaskBar : THandle; begin &#160;&#160;hTaskbar := FindWindow('Shell_TrayWnd', Nil); &#160;&#160;ShowWindow(hTaskBar, SW_SHOWNORMAL); end; // Hide the windows start button. procedure TForm1.Button1Click(Sender: TObject); var &#160;&#160;Rgn : hRgn; begin {Hide the start button} &#160;&#160;Rgn]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-control-the-windows-task-bar-and-the-windows-start-button/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] &#8211; Show the find folder dialog</title>
		<link>http://home.x-pack.org/delphi-show-the-find-folder-dialog/</link>
		<comments>http://home.x-pack.org/delphi-show-the-find-folder-dialog/#comments</comments>
		<pubDate>Tue, 05 Jan 2010 03:48:34 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=595</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); var &#160;&#160;TitleName : string; &#160;&#160;lpItemID : PItemIDList; &#160;&#160;BrowseInfo : TBrowseInfo; &#160;&#160;DisplayName : array[0..MAX_PATH] of char; &#160;&#160;TempPath : array[0..MAX_PATH] of char; begin &#160;&#160;FillChar(BrowseInfo, sizeof(TBrowseInfo), #0); &#160;&#160;BrowseInfo.hwndOwner := Form1.Handle; &#160;&#160;BrowseInfo.pszDisplayName := @DisplayName; &#160;&#160;TitleName := 'Please specify a directory'; &#160;&#160;BrowseInfo.lpszTitle := PChar(TitleName); &#160;&#160;BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS; &#160;&#160;lpItemID := SHBrowseForFolder(BrowseInfo); &#160;&#160;if lpItemId &#60;&#62; nil then begin &#160;&#160;&#160;&#160;SHGetPathFromIDList(lpItemID,]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-show-the-find-folder-dialog/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] &#8211; Enable and disable CD autorun</title>
		<link>http://home.x-pack.org/delphi-enable-and-disable-cd-autorun/</link>
		<comments>http://home.x-pack.org/delphi-enable-and-disable-cd-autorun/#comments</comments>
		<pubDate>Tue, 05 Jan 2010 03:47:48 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=593</guid>
		<description><![CDATA[procedure TForm1.SetCDAutoRun(AAutoRun: Boolean); const &#160;&#160;DoAutoRun: array[Boolean] of Integer = (0, 1); var &#160;&#160;Reg: TRegistry; begin &#160;&#160;try &#160;&#160;&#160;&#160;Reg := TRegistry.Create; &#160;&#160;&#160;&#160;Reg.RootKey := HKEY_LOCAL_MACHINE; &#160;&#160;&#160;&#160;if Reg.KeyExists('System\CurrentControlSet\Services\Class\CDROM') then &#160;&#160;&#160;&#160;begin &#160;&#160;&#160;&#160;&#160;&#160;if Reg.OpenKey('System\CurrentControlSet\Services\Class\CDROM', False) then &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;Reg.WriteBinaryData('AutoRun', DoAutoRun[AAutoRun], 1); &#160;&#160;&#160;&#160;end &#160;&#160;finally &#160;&#160;&#160;&#160;Reg.Free; &#160;&#160;end; &#160;&#160;ShowMessage('Your settings will take effect on the next reboot of Windows.'); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-enable-and-disable-cd-autorun/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] &#8211; Use the registry</title>
		<link>http://home.x-pack.org/delphi-use-the-registry/</link>
		<comments>http://home.x-pack.org/delphi-use-the-registry/#comments</comments>
		<pubDate>Tue, 05 Jan 2010 03:46:44 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=591</guid>
		<description><![CDATA[uses &#160;&#160;Registry; procedure TForm1.Button1Click(Sender: TObject); var &#160;&#160;reg: TRegistry; begin &#160;&#160;reg := TRegistry.Create; &#160;&#160;try &#160;&#160;&#160;&#160;reg.RootKey := HKEY_LOCAL_MACHINE; &#160;&#160;&#160;&#160;reg.OpenKey('Software\Microsoft', True); &#160;&#160;&#160;&#160;reg.WriteString('Test string', 'Test'); &#160;&#160;&#160;&#160;reg.CloseKey; &#160;&#160;finally &#160;&#160;&#160;&#160;reg.Free; &#160;&#160;end; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-use-the-registry/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] &#8211; Show the format dialog</title>
		<link>http://home.x-pack.org/delphi-show-the-format-dialog/</link>
		<comments>http://home.x-pack.org/delphi-show-the-format-dialog/#comments</comments>
		<pubDate>Tue, 05 Jan 2010 03:45:54 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=589</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;ShellExecute(Application.Handle, &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; PChar('Open'), &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; PChar('C:\Windows\Rundll32.exe'), &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; PChar('Shell32.dll,SHFormatDrive'), &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; PChar('C:\Windows'), &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; SW_SHOWNORMAL); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-show-the-format-dialog/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] &#8211; Delete an item from the SystemMenu</title>
		<link>http://home.x-pack.org/delphi-delete-an-item-from-the-systemmenu/</link>
		<comments>http://home.x-pack.org/delphi-delete-an-item-from-the-systemmenu/#comments</comments>
		<pubDate>Tue, 05 Jan 2010 03:45:02 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=587</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); var &#160;&#160;Handle: THandle; begin &#160;&#160;Handle := GetSystemMenu(Self.Handle, False); &#160;&#160;RemoveMenu(Handle, 1, MF_BYPOSITION); &#160;&#160;RemoveMenu(Handle, 2, MF_BYPOSITION); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-delete-an-item-from-the-systemmenu/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] &#8211; Hide a program from the taskbar</title>
		<link>http://home.x-pack.org/delphi-hide-a-program-from-the-taskbar/</link>
		<comments>http://home.x-pack.org/delphi-hide-a-program-from-the-taskbar/#comments</comments>
		<pubDate>Tue, 05 Jan 2010 03:44:21 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=585</guid>
		<description><![CDATA[procedure TMainForm.FormShow(Sender: TObject); var hwndOwner: HWnd; begin hwndOwner := GetWindow(Handle, GW_OWNER); ShowWindow(hwndOwner, SW_HIDE); // For Windows 2000, additionally call the ShowWindowAsync function: ShowWindowAsync(hwndOwner, SW_HIDE); ShowWindowAsync(Self.Handle, SW_HIDE); end; { Prevent the form from reappearing on the Taskbar after minimizing it: } private procedure WMSysCommand(var msg: TWMSysCommand); message WM_SysCommand; {....} implementation procedure TMainForm.WMSysCommand(var msg: TWMSysCommand); begin if]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-hide-a-program-from-the-taskbar/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] &#8211; Turn off the monitor</title>
		<link>http://home.x-pack.org/delphi-turn-off-the-monitor/</link>
		<comments>http://home.x-pack.org/delphi-turn-off-the-monitor/#comments</comments>
		<pubDate>Tue, 05 Jan 2010 03:43:18 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=583</guid>
		<description><![CDATA[{ turn off your monitor } SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0); { turn on your monitor } SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, - 1);]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-turn-off-the-monitor/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] &#8211; Hide the start button</title>
		<link>http://home.x-pack.org/delphi-hide-the-start-button/</link>
		<comments>http://home.x-pack.org/delphi-hide-the-start-button/#comments</comments>
		<pubDate>Tue, 05 Jan 2010 03:42:15 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=581</guid>
		<description><![CDATA[procedure ShowStartButton(bValue: Boolean); var &#160;&#160;Tray, Child: hWnd; &#160;&#160;C:&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; array[0..127] of Char; &#160;&#160;S:&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; String; begin &#160;&#160;Tray&#160;&#160;:= FindWindow('Shell_TrayWnd', nil); &#160;&#160;Child := GetWindow(Tray, GW_CHILD); &#160;&#160;while Child &#60;&#62; 0 do &#160;&#160;begin &#160;&#160;&#160;&#160;if GetClassName(Child, C, SizeOf(C)) &#62; 0 then &#160;&#160;&#160;&#160;begin &#160;&#160;&#160;&#160;&#160;&#160;S := StrPAS(C); &#160;&#160;&#160;&#160;&#160;&#160;if UpperCase(S) = 'BUTTON' then &#160;&#160;&#160;&#160;&#160;&#160;begin &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;if bValue = True then ShowWindow(Child, 1) &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;else &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;ShowWindow(Child, 0); &#160;&#160;&#160;&#160;&#160;&#160;end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-hide-the-start-button/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] &#8211; Suspend the PC</title>
		<link>http://home.x-pack.org/delphi-suspend-the-pc/</link>
		<comments>http://home.x-pack.org/delphi-suspend-the-pc/#comments</comments>
		<pubDate>Tue, 05 Jan 2010 03:41:25 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=579</guid>
		<description><![CDATA[SetSystemPowerState(False, True); //Forces the system down SetSystemPowerState(True, False); //Makes a &#8220;soft&#8221; off]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-suspend-the-pc/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] &#8211; Prevent Alt+F4</title>
		<link>http://home.x-pack.org/delphi-prevent-altf4/</link>
		<comments>http://home.x-pack.org/delphi-prevent-altf4/#comments</comments>
		<pubDate>Tue, 05 Jan 2010 03:40:20 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=577</guid>
		<description><![CDATA[public &#160;&#160;procedure AppMessage(var Msg: TMSG; var HAndled: Boolean); end; {...} implementation {...} procedure TForm1.FormCreate(Sender: TObject); begin &#160;&#160;Application.OnMessage := AppMessage; end; procedure TForm1.AppMessage(var Msg: TMSG; var Handled: Boolean); begin &#160;&#160;Handled := False; &#160;&#160;case Msg.Message of &#160;&#160;&#160;&#160;WM_SYSKEYDOWN: &#160;&#160;&#160;&#160;&#160;&#160;if Msg.wParam = VK_F4 then &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;Handled := True; // don't allow ALT-F4 &#160;&#160;end; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-prevent-altf4/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] &#8211; Stop Windows from displaying critical error messages</title>
		<link>http://home.x-pack.org/delphi-stop-windows-from-displaying-critical-error-messages/</link>
		<comments>http://home.x-pack.org/delphi-stop-windows-from-displaying-critical-error-messages/#comments</comments>
		<pubDate>Tue, 05 Jan 2010 03:38:02 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=575</guid>
		<description><![CDATA[var &#160;&#160;wOldErrorMode: Word; begin &#160;&#160;wOldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS); &#160;&#160;try &#160;&#160;finally &#160;&#160; SetErrorMode(wOldErrorMode); &#160;&#160;end; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-stop-windows-from-displaying-critical-error-messages/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] &#8211; Open the start menu</title>
		<link>http://home.x-pack.org/delphi-open-the-start-menu/</link>
		<comments>http://home.x-pack.org/delphi-open-the-start-menu/#comments</comments>
		<pubDate>Tue, 05 Jan 2010 03:37:06 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=573</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-open-the-start-menu/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] &#8211; Hide the application from tasklist (Ctrl+Alt+Del)</title>
		<link>http://home.x-pack.org/delphi-hide-the-application-from-tasklist-ctrlaltdel/</link>
		<comments>http://home.x-pack.org/delphi-hide-the-application-from-tasklist-ctrlaltdel/#comments</comments>
		<pubDate>Tue, 05 Jan 2010 03:36:22 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=571</guid>
		<description><![CDATA[{ &#160;&#160;This example runs only under Windows 95/98 } implementation function RegisterServiceProcess(dwProcessID, dwType: DWORD): DWORD; &#160;&#160;stdcall; external 'KERNEL32.DLL'; procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;RegisterServiceProcess(GetCurrentProcessID, 1); end; procedure TForm1.Button2Click(Sender: TObject); begin &#160;&#160;RegisterServiceProcess(GetCurrentProcessID, 0); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-hide-the-application-from-tasklist-ctrlaltdel/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] &#8211; Format date and time using the format given by a Format</title>
		<link>http://home.x-pack.org/delphi-format-date-and-time-using-the-format-given-by-a-format/</link>
		<comments>http://home.x-pack.org/delphi-format-date-and-time-using-the-format-given-by-a-format/#comments</comments>
		<pubDate>Tue, 05 Jan 2010 03:35:08 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=569</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption := FormatDateTime('d. mmmm yyyy hh:mm:ss', Now); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-format-date-and-time-using-the-format-given-by-a-format/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/99 queries in 0.170 seconds using disk: basic
Object Caching 802/943 objects using disk: basic

Served from: home.x-pack.org @ 2012-05-19 05:16:39 -->
