<?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>YS-Soft Labs &#187; Delphi</title>
	<atom:link href="http://ys-soft.web.id/category/delphi/feed" rel="self" type="application/rss+xml" />
	<link>http://ys-soft.web.id</link>
	<description></description>
	<lastBuildDate>Thu, 14 Jan 2010 13:24:42 +0000</lastBuildDate>
	<generator>http://wordpress.org/?v=2.8.2</generator>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
			<item>
		<title>Mengatur tanggal/waktu suatu file</title>
		<link>http://ys-soft.web.id/mengatur-tanggalwaktu-suatu-file</link>
		<comments>http://ys-soft.web.id/mengatur-tanggalwaktu-suatu-file#comments</comments>
		<pubDate>Sat, 18 Jul 2009 02:20:01 +0000</pubDate>
		<dc:creator>Yuddy</dc:creator>
				<category><![CDATA[Delphi]]></category>

		<guid isPermaLink="false">http://ys-soft.web.id/?p=83</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Edit1.Text:=OpenDialog1.FileName;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  HFile: Word;
  MyDate: TDateTime;
  MyDate2: Integer;
begin
  HFile:=FileOpen(Edit1.Text, fmOpenWrite);
  MyDate:=StrToDateTime(Edit2.Text);
  MyDate2:=DateTimeToFileDate(MyDate);
  FileSetDate(HFile, MyDate2);
  FileClose(HFile);
end;
]]></description>
		<wfw:commentRss>http://ys-soft.web.id/mengatur-tanggalwaktu-suatu-file/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Mengubah atribut properties File</title>
		<link>http://ys-soft.web.id/mengubah-atribut-properties-file</link>
		<comments>http://ys-soft.web.id/mengubah-atribut-properties-file#comments</comments>
		<pubDate>Sat, 18 Jul 2009 02:18:09 +0000</pubDate>
		<dc:creator>Yuddy</dc:creator>
				<category><![CDATA[Delphi]]></category>

		<guid isPermaLink="false">http://ys-soft.web.id/?p=81</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject);
begin
  with OpenDialog1 do
    if Execute then
      if SetFileAttributes(PChar(Filename), FILE_ATTRIBUTE_HIDDEN) then
        Caption:=&#8217;attribute was changed&#8217;
      else
        Caption:=&#8217;attribute was not changed&#8217;;
end;
]]></description>
		<wfw:commentRss>http://ys-soft.web.id/mengubah-atribut-properties-file/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Membalik string/kalimat (Reverse String)</title>
		<link>http://ys-soft.web.id/fungsi-untuk-membalik-stringkalimat</link>
		<comments>http://ys-soft.web.id/fungsi-untuk-membalik-stringkalimat#comments</comments>
		<pubDate>Mon, 13 Jul 2009 03:10:43 +0000</pubDate>
		<dc:creator>Yuddy</dc:creator>
				<category><![CDATA[Delphi]]></category>

		<guid isPermaLink="false">http://ys-soft.web.id/?p=69</guid>
		<description><![CDATA[function ReverseString(const s: string): string;
var
  i, len: Integer;
begin
  len := Length(s);
  SetLength(Result, len);
  for i := len downto 1 do
  begin
    Result[len - i + 1] := s[i];
  end;
end;
]]></description>
		<wfw:commentRss>http://ys-soft.web.id/fungsi-untuk-membalik-stringkalimat/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Sembunyikan tombol minimize/maximize pada form</title>
		<link>http://ys-soft.web.id/hide-the-minimize-maximize-buttons-of-a-form</link>
		<comments>http://ys-soft.web.id/hide-the-minimize-maximize-buttons-of-a-form#comments</comments>
		<pubDate>Mon, 13 Jul 2009 03:00:35 +0000</pubDate>
		<dc:creator>Yuddy</dc:creator>
				<category><![CDATA[Delphi]]></category>

		<guid isPermaLink="false">http://ys-soft.web.id/?p=65</guid>
		<description><![CDATA[procedure TForm1.FormCreate(Sender: TObject);
var
  l: DWORD;
begin
  l := GetWindowLong(Self.Handle, GWL_STYLE);
  l := l and not (WS_MINIMIZEBOX);
  l := l and not (WS_MAXIMIZEBOX);
  l := SetWindowLong(Self.Handle, GWL_STYLE, l);
end;
]]></description>
		<wfw:commentRss>http://ys-soft.web.id/hide-the-minimize-maximize-buttons-of-a-form/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Mengetahui jika form adalah &#8220;modal&#8221;</title>
		<link>http://ys-soft.web.id/know-if-the-form-is-modal</link>
		<comments>http://ys-soft.web.id/know-if-the-form-is-modal#comments</comments>
		<pubDate>Mon, 13 Jul 2009 02:58:23 +0000</pubDate>
		<dc:creator>Yuddy</dc:creator>
				<category><![CDATA[Delphi]]></category>

		<guid isPermaLink="false">http://ys-soft.web.id/?p=62</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject);
begin
  if (fsModal in FormState) then
    ShowMessage(&#8217;Form is modal.&#8217;);
end;
]]></description>
		<wfw:commentRss>http://ys-soft.web.id/know-if-the-form-is-modal/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

