<?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/"
	xmlns:georss="http://www.georss.org/georss" xmlns:geo="http://www.w3.org/2003/01/geo/wgs84_pos#" xmlns:media="http://search.yahoo.com/mrss/"
	>

<channel>
	<title>Arif widiyanto &#187; Delphi</title>
	<atom:link href="http://arifw.wordpress.com/tag/delphi/feed/" rel="self" type="application/rss+xml" />
	<link>http://arifw.wordpress.com</link>
	<description>mind, passions, spirit and hopes</description>
	<lastBuildDate>Tue, 10 Feb 2009 21:54:16 +0000</lastBuildDate>
	<generator>http://wordpress.com/</generator>
	<language>id</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<cloud domain='arifw.wordpress.com' port='80' path='/?rsscloud=notify' registerProcedure='' protocol='http-post' />
<image>
		<url>http://www.gravatar.com/blavatar/d382bbfd951e4023fa2574e327371f53?s=96&#038;d=http://s.wordpress.com/i/buttonw-com.png</url>
		<title>Arif widiyanto &#187; Delphi</title>
		<link>http://arifw.wordpress.com</link>
	</image>
	<atom:link rel="search" type="application/opensearchdescription+xml" href="http://arifw.wordpress.com/osd.xml" title="Arif widiyanto" />
		<item>
		<title>Delphi &#8211; Menggambar langsung pada Desktop</title>
		<link>http://arifw.wordpress.com/2008/04/24/delphi-menggambar-langsung-pada-desktop/</link>
		<comments>http://arifw.wordpress.com/2008/04/24/delphi-menggambar-langsung-pada-desktop/#comments</comments>
		<pubDate>Wed, 23 Apr 2008 19:37:48 +0000</pubDate>
		<dc:creator>arifw</dc:creator>
				<category><![CDATA[Delphi]]></category>
		<category><![CDATA[Graphic]]></category>
		<category><![CDATA[Programming]]></category>

		<guid isPermaLink="false">http://arifw.wordpress.com/2008/04/24/delphi-menggambar-langsung-pada-desktop/</guid>
		<description><![CDATA[
var
  Form1: TForm1;
  Canv: TCanvas;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
  Canv := TCanvas.Create;
  Canv.Handle := GetWindowDC(0);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Canv.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Canv.pen.Color := clred;
  Canv.pen.Width := 20;
  Canv.moveto(Screen.Width, 2);
  Canv.lineto(2, 2);
  Canv.lineto(2, Screen.Height);
  Canv.lineto(Screen.Width, Screen.Height);
  Canv.lineto(Screen.Width, 2);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Canv.Font.Name   := &#8216;Arial&#8217;;
 [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=arifw.wordpress.com&blog=2581537&post=22&subd=arifw&ref=&feed=1" />]]></description>
		<wfw:commentRss>http://arifw.wordpress.com/2008/04/24/delphi-menggambar-langsung-pada-desktop/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/8eb5a760eaccd5d4e83881026d586196?s=96&#38;d=identicon" medium="image">
			<media:title type="html">arif</media:title>
		</media:content>
	</item>
		<item>
		<title>Delphi &#8211; Get a list of installed services</title>
		<link>http://arifw.wordpress.com/2008/04/24/delphi-get-a-list-of-installed-services-2/</link>
		<comments>http://arifw.wordpress.com/2008/04/24/delphi-get-a-list-of-installed-services-2/#comments</comments>
		<pubDate>Wed, 23 Apr 2008 19:31:44 +0000</pubDate>
		<dc:creator>arifw</dc:creator>
				<category><![CDATA[Delphi]]></category>
		<category><![CDATA[Programming]]></category>
		<category><![CDATA[System Information]]></category>

		<guid isPermaLink="false">http://arifw.wordpress.com/2008/04/24/delphi-get-a-list-of-installed-services-2/</guid>
		<description><![CDATA[
const   SERVICE_KERNEL_DRIVER       = $00000001;   SERVICE_FILE_SYSTEM_DRIVER  = $00000002;   SERVICE_ADAPTER             = $00000004;   SERVICE_RECOGNIZER_DRIVER   = $00000008; 
  SERVICE_DRIVER           [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=arifw.wordpress.com&blog=2581537&post=20&subd=arifw&ref=&feed=1" />]]></description>
		<wfw:commentRss>http://arifw.wordpress.com/2008/04/24/delphi-get-a-list-of-installed-services-2/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/8eb5a760eaccd5d4e83881026d586196?s=96&#38;d=identicon" medium="image">
			<media:title type="html">arif</media:title>
		</media:content>
	</item>
		<item>
		<title>Mengganti Alamat DNS TCP/IP Secara Dinamis</title>
		<link>http://arifw.wordpress.com/2008/04/22/mengganti-alamat-dns-tcpip-secara-dinamis/</link>
		<comments>http://arifw.wordpress.com/2008/04/22/mengganti-alamat-dns-tcpip-secara-dinamis/#comments</comments>
		<pubDate>Mon, 21 Apr 2008 21:56:48 +0000</pubDate>
		<dc:creator>arifw</dc:creator>
				<category><![CDATA[Delphi]]></category>
		<category><![CDATA[Programming]]></category>
		<category><![CDATA[Delphi 2.x]]></category>
		<category><![CDATA[Delphi 3.x]]></category>
		<category><![CDATA[Functions]]></category>
		<category><![CDATA[Networking]]></category>
		<category><![CDATA[Win32]]></category>
		<category><![CDATA[Windows]]></category>
		<category><![CDATA[Windows 95]]></category>
		<category><![CDATA[Windows NT]]></category>
		<category><![CDATA[Windows NT 3.x]]></category>
		<category><![CDATA[Windows NT 4.x]]></category>

		<guid isPermaLink="false">http://arifw.wordpress.com/?p=18</guid>
		<description><![CDATA[Jika Anda sedang tersambung pada Internet, Domain Name Server (DNS) biasanya diminta untuk diganti ke alamat numerik IP addresses &#8212; perpindahan www.chami.com ke 1.2.3.4 contohnya.
Jika Anda butuh untuk mengganti secara dinamis DNS server anda melalui program, anda bisa melakukannya dengan menggunakan fungsi &#8220;SetTCPIPDNSAddresses()&#8221; dengan daftar alamat IP DNS dengan pemisah satu spasi.

Menggunakan Registry;



procedure
SaveStringToRegistry_LOCAL_MACHINE(
sKey, sItem, sVal : string );
var
reg : TRegIniFile;
begin
reg := TRegIniFile.Create( &#8221; );
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.WriteString(
sKey, sItem, sVal + #0 );
reg.Free;
end;
Listing #1 : [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=arifw.wordpress.com&blog=2581537&post=18&subd=arifw&ref=&feed=1" />]]></description>
		<wfw:commentRss>http://arifw.wordpress.com/2008/04/22/mengganti-alamat-dns-tcpip-secara-dinamis/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/8eb5a760eaccd5d4e83881026d586196?s=96&#38;d=identicon" medium="image">
			<media:title type="html">arif</media:title>
		</media:content>
	</item>
		<item>
		<title>Apakah Fitur auto hide pada Windows taskbar&#8217;s enabled?</title>
		<link>http://arifw.wordpress.com/2008/04/22/apakah-fitur-auto-hide-pada-windows-taskbars-enabled/</link>
		<comments>http://arifw.wordpress.com/2008/04/22/apakah-fitur-auto-hide-pada-windows-taskbars-enabled/#comments</comments>
		<pubDate>Mon, 21 Apr 2008 21:43:05 +0000</pubDate>
		<dc:creator>arifw</dc:creator>
				<category><![CDATA[C / C++]]></category>
		<category><![CDATA[Delphi]]></category>
		<category><![CDATA[Programming]]></category>
		<category><![CDATA[C Language]]></category>
		<category><![CDATA[C++]]></category>
		<category><![CDATA[C++Builder]]></category>
		<category><![CDATA[Delphi 2.x]]></category>
		<category><![CDATA[Delphi 3.x]]></category>
		<category><![CDATA[Delphi 4.x]]></category>
		<category><![CDATA[Win32]]></category>

		<guid isPermaLink="false">http://arifw.wordpress.com/?p=17</guid>
		<description><![CDATA[Ingin tahu apakah fitur auto hide pada Windows taskbar sedang enabled? Dibawah ini fungsi sederhana untuk memeriksanya, ditulis pada bahasa C / C++ dan Delphi.
Delphi CODE

uses ShellAPI;
(*
Hasil TRUE jika auto hide taskbar adalah on.
if(IsTaskBarautoHideOn)then
begin
// auto hide ON
end;
*)
function IsTaskbarAutoHideOn : boolean;
var
ABData : TAppBarData;
begin
ABData.cbSize := sizeof(ABData);
Result :=
(SHAppBarMessage(ABM_GETSTATE, ABData)
and ABS_AUTOHIDE) &#62; 0;
end;
Listing #1 : Delphi code. Download tbah.pas [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=arifw.wordpress.com&blog=2581537&post=17&subd=arifw&ref=&feed=1" />]]></description>
		<wfw:commentRss>http://arifw.wordpress.com/2008/04/22/apakah-fitur-auto-hide-pada-windows-taskbars-enabled/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/8eb5a760eaccd5d4e83881026d586196?s=96&#38;d=identicon" medium="image">
			<media:title type="html">arif</media:title>
		</media:content>
	</item>
		<item>
		<title>Memainkan File Flash di Delphi</title>
		<link>http://arifw.wordpress.com/2008/02/01/memainkan-file-flash-di-delphi/</link>
		<comments>http://arifw.wordpress.com/2008/02/01/memainkan-file-flash-di-delphi/#comments</comments>
		<pubDate>Fri, 01 Feb 2008 16:58:26 +0000</pubDate>
		<dc:creator>arifw</dc:creator>
				<category><![CDATA[Programming]]></category>
		<category><![CDATA[ActiveX]]></category>
		<category><![CDATA[Delphi]]></category>
		<category><![CDATA[flash]]></category>
		<category><![CDATA[form]]></category>
		<category><![CDATA[IDE]]></category>
		<category><![CDATA[ocx]]></category>
		<category><![CDATA[pallet]]></category>
		<category><![CDATA[Plug-in]]></category>
		<category><![CDATA[swf]]></category>
		<category><![CDATA[swflash]]></category>

		<guid isPermaLink="false">http://arifw.wordpress.com/?p=6</guid>
		<description><![CDATA[Dewasa ini perkembangan dunia animasi begitu hebat dengan hadirnya Macromedia  Flash… Bagaimana memadukan program Delphi dengan memainkan file flash (*.swf).  Untuk mengoptimalkan program yang kita buat, akan sangat bagus jika program kita  dilengkapi dengan animasi hidup ala flash. Bagaimana cara membuat program untuk  menjalankan file flash?…
Untuk memainkan file flash di Delphi [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=arifw.wordpress.com&blog=2581537&post=6&subd=arifw&ref=&feed=1" />]]></description>
		<wfw:commentRss>http://arifw.wordpress.com/2008/02/01/memainkan-file-flash-di-delphi/feed/</wfw:commentRss>
		<slash:comments>3</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/8eb5a760eaccd5d4e83881026d586196?s=96&#38;d=identicon" medium="image">
			<media:title type="html">arif</media:title>
		</media:content>
	</item>
	</channel>
</rss>