Fórum Associar http #181103

A parada é a seguinte: tenho um webbrowser quase pronto e associei arquivos html e htm, página inicial assim q abre-se o browser e associei o shell para abrir comandos http. Porém, quando abro um link da web, um endereço no explorer ou link no favoritos, dá uma mensagem de erro de q o endereço não foi encontrado. Acho q agora preciso que a combobox do browser (aonde são digitadas as urls) receba o endereço (o caminho) ao iniciar.

Taí o código q fiz, vejam se podem me ajudar (deixando claro que URLS.text é o combobox e ExtractFilePath e Application.ExeName são funções q construí para identificar diretórios e caminho do aplicativo):

procedure TMainForm.FormCreate(Sender: TObject);
Var
Parametro : Integer;
Arquivo : string;
Reg : TRegistry;
Start: String;
begin
Reg := TRegistry.Create;
try
with Reg do
begin
RootKey := HKEY_CLASSES_ROOT;
OpenKey(´\Surf´, True);
WriteString(´´, ´Página da Internet´); //Nome dado ao arquivo de sua aplicação.
CloseKey;
OpenKey(´Surf\DefaultIcon´, True);
// O primeiro parâmetro da linha de comando abaixo, é para escrever uma string vazia.
// E o último parâmetro é para colocar o ícone da sua aplicação nos arquivos que serão abertos por ela.
WriteString(´´, ´´ + ExtractFilePath( Application.ExeName )+´\Res\page.ico´);
CloseKey;
OpenKey(´Surf\shell\open\command´, True);
WriteString(´´, Application.ExeName + ´ ´¬1´´);
CloseKey;
RootKey := HKEY_CLASSES_ROOT;
OpenKey(´\.html´, True); // Substitua o ´ext´ pela extensão que você deseja utilizar.
WriteString(´´, ´Surf´);
OpenKey(´\.htm´, True); // Substitua o ´ext´ pela extensão que você deseja utilizar.
WriteString(´´, ´Surf´);
CloseKey;
RootKey := HKEY_CLASSES_ROOT;
OpenKey(´http\shell\open\command´, true);
WriteString(´´, Application.ExeName);
CloseKey;
end;
finally
Reg.CloseKey;
Reg.Free;
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;
try
Arquivo := ParamStr(1);
for Parametro := 1 to ParamCount do
begin
Arquivo := ParamStr(Parametro);
URLs.text:=Arquivo;
end;
except
on E : Exception do
begin
MessageBox(Handle, ´Erro ao abrir o arquivo!´, ´Informação´, MB_ICONINFORMATION + MB_OK);
end;
end;
begin
Reg := TRegistry.Create;
try
with Reg do
begin
RootKey := HKEY_CURRENT_USER;
OpenKey(´\Software\Microsoft\Internet Explorer\Main´, True);
Start:=ReadString(´Start Page´);
CloseKey;
end;
finally
Reg.CloseKey;
Reg.Free;
if urls.Text=´´ then
urls.Text:=start;
findaddress;
end;
end;


Pronto galera, editei o título . Quem não for fera também pode responder agora.
Tomara que o amigo tenha aprendido a lição.
8)
Zoom