Algumas coisas do shellexecute - para sites, arquvos etc...

[oinetooi 1]

Bom nesse tutorial irei ensinar algumas coisas do shellexecute (:

 

declare shellapi

 

Abrir um item selecionado em um listbox.

 

shellexecute(handle,'open',pchar(Listbox1.Items.St rings

[listbox1.ItemIndex]),nil,nil,sw_shownormal);

Abrir Arquivo escrito num EDIT.

shellexecute(handle,'open',pchar(Edit1.text),nil,n il,sw_shownormal);

Misturando os dois, sendo que o local do arquivo estaria no edit1, e o nome do arquivo no listbox.

 

shellexecute(handle,'open',pchar(Edit1.text+Listbo x1.Items.Strings

[listbox1.ItemIndex]),nil,nil,sw_shownormal);

Abrindo Site

 

shellexecute(handle,'open','http://google.com.br',nil,nil,sw_shownormal);

Abrindo Arquivo Normal

 

shellexecute(handle,'open','C:\Arquivo.exe',nil,ni l,sw_shownormal);

só isso, muito fácil, não conseguir fazer isso se mata.

 

Créditos: SrMaster.

[Surfistinha£ 25]

Um otimo conteudo porem seja facil simples e de qualidade e muito importante para programadores

[bidoow 0]

muuuito bom! :D