Bom nesse tutorial irei ensinar algumas coisas do shellexecute (:
Well in this tutorial I will teach some of the things shellexecute (:
Declare na Uses: Shellapi
Abrir um item selecionado em um listbox.
Declare the Uses: ShellAPI
Open a selected item in a listbox.
Codigo
shellexecute(handle,'open',pchar(Listbox1.Items.Strings[listbox1.ItemIndex]),nil,nil,sw_shownormal);
Abrir Arquivo escrito num EDIT.
Open File written in EDIT.
Spoiler
shellexecute(handle,'open',pchar(Edit1.text),nil,nil,sw_shownormal);
Misturando os dois, sendo que o local do arquivo estaria no edit1, e o nome do arquivo no listbox.
Mixing the two, and the file location would be in edit1, and file name in the listbox.
Spoiler
shellexecute(handle,'open',pchar(Edit1.text+Listbox1.Items.Strings[listbox1.ItemIndex]),nil,nil,sw_shownormal);
Abrindo Site
opening Site
Spoiler
shellexecute(handle,'open','http://google.com.br',nil,nil,sw_shownormal);
Abrindo Arquivo Normal
Normal Opening File
Spoiler
shellexecute(handle,'open','C:\Arquivo.exe',nil,nil,sw_shownormal);
Isso ai, muito fácil, só não faz quem não quer!
That's it, very easy, just who does not want!
