Coisas do shellexecute - para sites, arquvos etc...

Bom nesse tutorial irei ensinar algumas coisas do shellexecute (:

declare shellapi nas uses

Código:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, shellapi;

Abrir um item selecionado em um listbox.

Código:

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

Abrir Arquivo escrito num EDIT.

Código:

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.

Código:

shellexecute(handle,'open',pchar(Edit1.text+Listbo x1.Items.Strings[listbox1.ItemIndex]),nil,nil,sw_shownormal);

Abrindo Site

Código:

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

Abrindo Arquivo Normal

Código:

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

só isso, muito fácil que tiver Duvida e so Posta

Créditos: Master & .Panico.