Menu na CD cz.2

Nie dawno temu zadawalem pytanie dotyczące menu na CD(takie jak ma Chip czy PC World Komputer). Poradzilem sobie z tamtym problemem jednak jest nowy... ;-|
Mianowicie mam TreeView no i chce żeby gdy sie kliknie w tym drzewku na nazwe programu pod przyciskiem "instaluj" bylo winexec('katalog\nazwa_programu.exe')
Jak to zrobić????
Help!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Zaznacze jeszcze że na memo pojawia sie opis tego programu...------------------------------------------------------------------------
Uwielbiam programować

W razie problemu, ksišżka pomoże

Coś w temacie brakuje np. [Delphi]

Chodzi mi o Delphi, zapomnialem

Uwielbiam programować

W razie problemu, ksišżka pomoże

dajesz pod butonnem procedura odpalająca program+pozycja z treeview
czyli obsłuż OnClick na treeview....ja dokladnie sie nie orientuje ale Treeview powinien miec podobne wlasciwosci do Listboxa (chyba)

[email protected]
POZDRAWIAM
DELPHI RULEZ
NIECH MOCz BĘDZIE Z WAMI
:-))

Ja mam takie menu jak ty opisujesz.
Jak znajde płytke na której je nagrałem to prześle ci źródło,
ale raczej nic stego nie wyjdzie bo płyta jest porysowana i to mocno :-(
ale może ten plik ocalał :-)--Nieważne czy producent jest z Ameryki czy z Niemiec i tak wszystko jest z Tajwanu

Możecie mi powiedzieć czemu to nie dziala:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, DirOutln, Grids, Outline, DsFancyButton;

type
TForm1 = class(TForm)
Opis: TMemo;
DsFancyButton1: TDsFancyButton;
DsFancyButton2: TDsFancyButton;
DsFancyButton3: TDsFancyButton;
DsFancyButton4: TDsFancyButton;
DsFancyButton5: TDsFancyButton;
DsFancyButton6: TDsFancyButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
procedure DsFancyButton1Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
procedure Label3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
sciezka1:string;
sciezka2:string;
sciezka3:string;
aktualnasciezka:string;
opis1:string;
opis2:string;
opis3:string;
implementation

{$R *.dfm}

procedure TForm1.DsFancyButton1Click(Sender: TObject);
begin
opis1:='Fajny program antywirusowy przeznaczony dla'+
'Windows 9.x Skutecznie wykrywa wirusy';
opis2:='To co wyżej tyle że do Windows XP i NT';
opis3:='Kolejny bardzo dobry program antywirusowy. Bardzo dokladnie wykrywa wirusy'+
'i je usuwa.';
label1.caption:='AntiVir dla Windows 9.x';
label2.Caption:='AntiVir dla Windows XP i NT';
label3.caption:='AVG 6.0 free edition';
sciezka1:='antywirusy\antivir dla Win 9.x\avwin9xp.exe';
sciezka2:='antywirusy\antivir dla Win XP i NT\avwinntp.exe';
sciezka3:='antywirusy\AVG 6.0 free edition\avg6391fu_free.exe';
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
Opis.lines.clear;
Opis.lines.add(opis1);
aktualnasciezka:=sciezka1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
winexec(PChar(aktualnasciezka), sw_normal);
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
Opis.clear;
Opis.lines.add(opis2);
aktualnasciezka:=sciezka2;
end;

procedure TForm1.Label3Click(Sender: TObject);
begin
Opis.clear;
Opis.lines.add(opis3);
aktualnasciezka:=sciezka3;
end;

end.

Blagam o szubką pomoc....------------------------------------------------------------------------
Uwielbiam programować

W razie problemu, ksišżka pomoże

Proponuję kombinacje z karty WIN31 z komponentami:

DriveComboBox
DirectoryListBox
FileListBox

--Pozdrowienia dla całego FORUM !!!

Marco_99