var MinhaPastaDeImagens : string; begin MinhaPastaDeImagens := ExtractFilePatch(Application.ExeName)+'imagens'; ShowMessage(MinhaPastaDeImagens); end;
Note que se vc executar o seu projeto por um atalho, tem que obrigatóriamente definir o "Iniciar em:" do atalho 2008/6/30 Delphi Sql <[EMAIL PROTECTED]>: > Ai galera seguinte.. > Eu uso um botao que tem como colocar imagem ... basta mostrar o caminho nas > propriedades Glyph .. até ai tudo bem.. > como q faz pra mim colocar como defaut q as imagem esta na pasta "imagens" q > fica dentro da pasta do meu projeto .. ou seja qq lugar q eu coloco a pasta > do meu projeto ele puche as imagens .... > Obrigado > > Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua > cara @ymail.com ou @rocketmail.com. > http://br.new.mail.yahoo.com/addresses > > [As partes desta mensagem que não continham texto foram removidas] > > -- Abs Daniel A. Bastos