Ajuda !

[DromeNox 1]

Olá galera ! Estou fazendo um programa que Descompila e compilar Apks. Daí a pessoa vai la e arrasta o arquivo desejado para o form, daí o caminho do arquivo é adicionado... Tudo bem até ai... Mas daí eu fiz um sistema para ele aceitar só arquivos .apk:

 

if (ExtractFileExt(PChar(FileName)) <> '.apk') then

ShowMessage('O programa só aceita arquivos .apk')

else

lbApk.Items.Add(string(PChar(FileName)))

 

Bem, esse código server na parte de descompilar, mas na parte de compilar, eu quero que o programa só aceite pastas e nenhum outro tipo de arquivo ! Mas eu estou usando a mesma função para compilar e descompilar ! O que eu faço ?

 

Opa... Achei que eu não era capaz mas eu consegui fazer sózinho !

[Inoxybel 51]

Uma maneira que eu costumo fazer quando uso uma função com 2 utilidades como a sua, é adicionar um parâmetro extra na função do tipo inteiro para determinar o que fazer.

 

função (..., OqueFazer : Integer)...

 

E dentro da função eu exploro esse número:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Na parte do "Descompacta" você pode criar outra condição para aceitar somente pastas e nenhum arquivo individual...