Get the version of a file

function GetVersion(sFileName:string): string;
var
  VerInfoSize: DWORD;
  VerInfo: Pointer;
  VerValueSize: DWORD;
  VerValue: PVSFixedFileInfo;
  Dummy: DWORD;
begin
  VerInfoSize := GetFileVersionInfoSize(PChar(sFileName), Dummy);
  GetMem(VerInfo, VerInfoSize);
  GetFileVersionInfo(PChar(sFileName), 0, VerInfoSize, VerInfo);
  VerQueryValue(VerInfo, ‘\’, Pointer(VerValue), VerValueSize);
  with VerValue^ do
  begin
    Result := IntToStr(dwFileVersionMS shr 16);
    Result := Result + ‘.’ + IntToStr(dwFileVersionMS and $FFFF);
    Result := Result + ‘.’ + IntToStr(dwFileVersionLS shr 16);
    Result := Result + ‘.’ + IntToStr(dwFileVersionLS and $FFFF);
  end;
  FreeMem(VerInfo, VerInfoSize);
end;

procedure Form1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetVersion(‘c:\test.exe’));
end;

.NET – Mengambil RSS feeds

RSS (Really Simple Syndication) adalah protokol populer yang dapat membuat suatu situs menyebarkan isi dalam format XML. Karena RSS hanyalah XML kita dapat menggunakan rutin standard .NET XML untuk membacanya. Contoh berikut menunjukkan bagaimana mengambil isi RSS dari situs Microsoft MSDN dan menampilkan pada grid :

Dim reader As XmlTextReader = New XmlTextReader(“http://msdn.microsoft.com/rss.xml”)
Dim ds As DataSet = New DataSet
ds.ReadXml(reader)
DataGrid1.DataSource = ds.Tables(2)

Untuk informasi selengkapnya tentang RSS, lihat link dibawah:

Apa itu RSS?
http://www.xml.com/pub/a/2002/12/18/dive-into-xml.html

Membuat sebuah RSS Feed pada FrontPage Web Site
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/odc_fp2003_ta/html/OfficeFrontPageCreateRSS.asp

Majalah MSDN RSS Feeds
http://msdn.microsoft.com/msdnmag/rss/default.aspx