ShellExecute Tutorial Simples

[™♥♦§Renan1609§♣♠™ 0]

Bom nesse tutorial irei ensinar algumas coisas do shellexecute (:

 

declare shellapi

 

Abrir um item selecionado em um listbox.

 

shellexecute(handle,'open',pchar(Listbox1.Items.Strings[listbox1.ItemIndex]),nil,nil,sw_shownormal);

 

Abrir Arquivo escrito num EDIT.

 

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.

 

shellexecute(handle,'open',pchar(Edit1.text+Listbox1.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,nil,sw_shownormal);

 

 

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

 

Créditos: SrMaster.