Como abrir vários arquivos com o programa Delphi chamado via shell open
Atualmente, estou usando:
if ParamStr(1)<>'%1' then
begin
address.Text:=ParamStr(1);
autoconfigfile;
end;
para selecionar o nome do arquivo que foi usado para abrir o arquivo via associação de arquiv
Agora, quero desenvolver a capacidade de operar em vários arquivos. I.e. se eu selecionar 5 arquivos, clique com o botão direito do mouse e selecione abrir com "EncryptionSystem". Eu tenho a entrada do registro:
reg.OpenKey('*\shell\Encrypt\command', true);
reg.WriteString('','C:\Program Files\EncryptionSystem\EncryptionSystem.exe "%1"');
reg.CloseKey;
Para adicionar um clique direito, abra a capacidade de todos os arquivos. Gostaria, então, da capacidade de detectar
quantos arquivos o nome do caminho de cada arquivo