var
Menu : TMenuItem;
begin
OpenDialog1.Execute
if(OpenDialog1.FileName<>'') Then
edit1.text:=(OpenDialog1.FileName);
begin
Menu := TMenuItem.Create(Self);
Menu.Caption := edit8.text;
PopupMenu1.Items.Add(Menu);
Ten kawałek kodu dodaje do edit'a ścieżkę wybramnego pliku, a potem dodaje do
popupmenu1 nazwe z edita, a chodzi mi dokładnie o coś takiego:
var
Menu : TMenuItem;
begin
OpenDialog1.Execute
if(OpenDialog1.FileName<>'') Then
edit1.text:=(OpenDialog1.FileName);
begin
Menu := TMenuItem.Create(Self);
Menu.Caption := edit8.text;
PopupMenu1.Items.Add(Menu);
Jeżeli zostanie wybrana pozycja edit8.text z item popupmenu1 to wykonaj to:
WinExec(pchar(edit8.text), SW_SHOW);
Nie wiem czy ,mnie ktoś zrozumiał ale jeśli tak to prosze o pomoc...