Delphi 7 - pegando o diretório Arquivos de Programas (ProgramFilesDir)

Para pegar o nome da pasta Arquivos de programas em tempo de execução (se é Program Files ou Arquivos de Programas, e em qual unidade está), basta seguir o exemplo abaixo.

var
Reg := TRegistry;
pProgramFilesDir: String
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion', False);
pProgramFilesDir := Reg.ReadString('ProgramFilesDir');
Reg.CloseKey;
Reg.Free;
end;

Vai retornar, por exemplo: C:\Arquivos de Programas ou C:\Program Files.


Napa

Delphi 7 - problema com componente PNGBUTTON/PNGEXTRA/PNGDELPHI

Isso já tinha acontecido uma vez e a desinstalação e reinstalação resolveram o problema (plano A).

Mas na última vez não funcionou. Quando eu tentava inserir uma imagem no botão PNG, após selecionar a imagem e confirmar, o Delphi apresentava o erro "Invalid Property value".
Consegui fazer funcionar depois de muito tentar (Plano B).

Seguem abaixo as duas tentativas.

Plano A

- No Delphi, menu Tools\Envoirment Options\, na aba Library, clique no botão [...] no campo Library path e remova a referência da pasta PNGDELPHI.
- Feche o Delphi.

- Entre em C:\Arquivos de programas\Delphi Components\Delphi7\PNGDelphi e execute o PNGDelphi.dpk
- Vai abrir o Delphi, clique em COMPILE e depois em INSTALL, ou seja, reinstalamos o componente.
- Entre no delphi e tente inserir a imagem no botão novamente.


Plano B
Se o erro persistir, feche novamente o Delphi.
- Acesse a pasta C:\Arquivos de programas\Borland\Delphi7\Projects\Bpl
- Localize todos os arquivos PNGDelphi (.bpl, .dcp, .~bpl) e exclua todos.
- Em seguida, abra o Delphi.
- Ele vai apresentar mensagem dando falta dos arquivos BPL que excluímos. E vai perguntar se deseja tentar abri-lo na próxima vez que executar o Delphi. Clique em NÃO.

Vamos reinstalar o componente:

- Entre em C:\Arquivos de programas\Delphi Components\Delphi7\PNGDelphi e execute o PNGDelphi.dpk;
- O Delphi será aberto, clique em COMPILE e depois em INSTALL, para reinstalar o componente.
O Delphi criará novamente os arquivos da pasta BPL.

- Tente adicionar um PNG ao botão.
- Caso ainda não funcione, siga os procedimentos abaixo.

- Com o Delphi aberto, vá em Component\Install Packages;
- Clique no botão ADD e vá até a pasta C:\Arquivos de programas\Borland\Delphi7\Projects\Bpl
- Selecione o arquivo PNGDelphi.BPL, clique em Abrir e depois clique em OK.

- Feche o Delphi e abra novamente.

Pronto, agora irá funcionar.

Napa.