unit uTreeData;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, MPlayer;
type
  TFTreeData = class(TForm)
    tvMain: TTreeView;
    MediaPlayer1: TMediaPlayer;
    panView: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure tvMainChange(Sender: TObject; Node: TTreeNode);
  private
    { Private declarations }
    procedure DoINI;
  public
    { Public declarations }
    FTree : TStrings;
  end;
var
  FTreeData: TFTreeData;
implementation
uses IniFiles;
type
  TtvTreeItem = class
  private
    FFileName: string;
  public
    property FileName: string read FFileName write FFileName;
  end;
{$R *.dfm}
procedure TFTreeData.DoINI;
var
  Parent: TTreeNode;
  FileIni : TIniFile;
  Files : TStrings;
  i : Integer;
  sName, sValue, sFile : String;
  T : TtvTreeItem;
begin
  Parent := nil;
  tvMain.Items.Clear;
  FileIni := TIniFile.Create(ExtractFilePath(ParamStr(0))+'setting.ini');
  Files := TStringList.Create;
  try
    FileIni.ReadSectionValues('Tree',FTree);
    FileIni.ReadSectionValues('Files',Files);
    for i:=0 to FTree.Count - 1 do
    begin
      sName := FTree.Names[i];
      sValue:= FTree.Values[sName];
      if sValue <> '' then
        if sValue[1] = ' ' then
        begin
          tvMain.Items.AddChild(Parent, Trim(sValue));
        end else
          Parent := tvMain.Items.Add(nil,sValue);
      sFile := Files.Values[sName];
      T := TtvTreeItem.Create;
      T.FileName := sFile;
      FTree.Objects[i] := T;
    end;
  finally
    Files.Free;
    FileIni.Free;
  end;
end;
procedure TFTreeData.FormCreate(Sender: TObject);
begin
  FTree := TStringList.Create;
  DoIni;
  tvMain.FullExpand;
  tvMain.Selected := tvMain.Items.Item[0];
end;
procedure TFTreeData.tvMainChange(Sender: TObject; Node: TTreeNode);
var
  FilmCaption, aFileName: string;
begin
  FilmCaption := '';
  aFileName := TtvTreeItem(FTree.Objects[node.AbsoluteIndex]).FileName;
  try
    if aFileName <> '' then begin
      FilmCaption := Node.Text + '  ';
      Caption := 'Media Player - ' + FilmCaption;
      with MediaPlayer1 do begin
        FileName := aFileName;
        Open;
      end;
    end;
  except
    on e: Exception do
      MessageDlg(e.ClassName +#10#13+
        e.Message,mtError,[mbOK],0);
  end;
end;
end.

[Localization]
Language=Indonesia
Author=CyberTech Corp.
Date=27.08.2005
[Tree]
01="Aplikasi Multi Media"
02="Film Aksi"
03="  Die Hard 3"
04="  Mission Impossible"
05="Film Kartun"
06="  Doraemon"
07="  DragonBall"
08="  Gundam"
09="Film Bokep"
10="  Vivid Video"
11="  Private Video"
12="  Asian4You"
[Files]
01=
02=
03=D:\ICDSee\Cleo1.DAT
04=D:\ICDSee\Cleo2.DAT
05=
06=c:\File1.mp3
07=c:\File2.mp3
08=c:\File3.mp3
09=
10=D:\ICDSee\PlayBoy.DAT
11=c:\anu.dat
12=c:\ihik2.dat