Abrir arquivo com o meu sistema! como sei que arquivo abrir?

Delphi

17/03/2005

Olá pessoal!

Usei o código abaixo (associei) para arquivos *.img abrirem com o meu sistema, porém, não sei que arquivo devo abrir quando inicio o sistema. No windows 98 eu conseguia, já no XP não consigo! os arquivos até chamam o meu programa, direitinho! mas não sei onde capturar o endereço do arquivo desejado!
Se alguém puder me ajudar, sou muito grato desde já.
[]´s tiagoiriz@webrs.com.br

Registro := TRegistry.Create;
Registro.RootKey := HKEY_CLASSES_ROOT;
Registro.OpenKey(´\Megasys´, True);
Registro.WriteString(´´, Imagem compacta);
Registro.CloseKey;
Registro.OpenKey(´Megasys\DefaultIcon´, True);
Registro.WriteString(´´, ´C:\Arquivos de Programas\Megasys\Imgs.ico,0´);
Registro.CloseKey;
Registro.OpenKey(´Megasys\shell\open\command´, True);
Registro.WriteString(´´, ´C:\Arquivos de Programas\Megasys\Sistema.exe´ + ´ ´¬1´´);
Registro.CloseKey;
Registro.RootKey := HKEY_CLASSES_ROOT;
Registro.OpenKey(´\.img´, True);
Registro.WriteString(´´, ´Megasys´);
Registro.CloseKey;
Registro.CloseKey;
Registro.Free;


Tiago Rizzon

Tiago Rizzon

Curtidas 0

Respostas

Weber

Weber

17/03/2005

No formshow do seu aplicativo coloque:

if (ParamCount > 0) and FileExists(ParamStr(1)) then
  Abrir(ParamStr(1));


Onde o ´abrir´ pode ser a função que você usa para carregar a imagem.
o ´ParamStr(1)´ contem o caminho e o nome do arquivo.


GOSTEI 0
Tiago Rizzon

Tiago Rizzon

17/03/2005

Obrigado pela dica! Funciono blz!


GOSTEI 0
POSTAR