FileListBox Abrir

[Zassas 0]

Opa!

 

To precisando da ajuda dos mestres aqui!

eu to fazendo um programa onde tem um FILELISTBOX que mostra os arquivos que tem dentro de uma pasta!

queria saber se tem como clicar em um desses arquivos no filelistbox e abrir ele!!

 

exemplo::

 

la no filelistbox vai abrir uma pasta e mostrar os arquivos que tem nele. na pasta tem um arquivo com nome "Teste.txt".

gostaria de abrir esse "test.txt" clicando nele no FileListBox!

como faço isso??

 

grato...

[Raficcha 1]

Declare "ShellAPI" na sessão "Uses" da sua "Unit" e utilize este código no evento "onClick" do seu TFileListBox;

ShellExecute(0, 'open', PChar(FileListBox1.Items[FileListBox1.ItemIndex]), nil, nil, 0);

[Zassas 0]

Declare "ShellAPI" na sessão "Uses" da sua "Unit" e utilize este código no evento "onClick" do seu TFileListBox;

ShellExecute(0, 'open', PChar(FileListBox1.Items[FileListBox1.ItemIndex]), nil, nil, 0);

 

Bom testei e funciono sim so que esta abrindo somente arquivos .exe

gostaria de abrir todos os arquivo que estão la no filelistbox independente de ser .exe ou .txt!

tem como??

[Raficcha 1]

Bom, se for para abrir arquivos .txt você pode fazer assim então:

 

ShellExecute(Self.Handle, 'open', 'notepad++.exe', PChar(FileListBox1.Items[FileListBox1.ItemIndex]), nil, 0);

[Zassas 0]

Bom, se for para abrir arquivos .txt você pode fazer assim então:

 

ShellExecute(Self.Handle, 'open', 'notepad++.exe', PChar(FileListBox1.Items[FileListBox1.ItemIndex]), nil, 0);

 

ixe agora não funciono nem abriu o exe pelo filelistbox T,T

[Raficcha 1]

Tipo, isso ai você tem que tratar.

 

Ex.:

 

Se a extenção do arquivo selecionado é EXE então executa

Se for TXT então abre com o bloco de notas

[Zassas 0]

ah tá!

 

:D

 

vou tentar dar uma arumada aqui e ver oque faço com esse codigo ae!!

 

vlw pela ajuda!

 

Obrigado!

[Raficcha 1]

Ok, qualquer coisa a mais posta ai