Fórum Ajuda e ´Dica Criar um diretório em C:\Arquivos de Programas #346078

´´´Dica´´´
[color=BLUE:1a92a8edad]para criar um diretori e arquivos de programas proceda assim.

function CriaDiretorio(const NomeDiretorio: string): boolean;
var
PROGRAMFILES: string;
begin
PROGRAMFILES := GetEnvironmentVariable(´PROGRAMFILES´) + NomeDiretorio;
if DirectoryExists(PROGRAMFILES) then
Result := true
else
Result := CreateDir(PROGRAMFILES);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if not CriaDiretorio(´\MeuDiretorio´) then //cria um diretório em C:\Arquivos de Programas
else
ShowMessage(´Diretório foi Criado em ´+GetEnvironmentVariable(´PROGRAMFILES´));
end;[/color:1a92a8edad]

´´´Preciso de Ajuda´´´
[color=BLUE:1a92a8edad]a onde esta escrito (´PROGRAMFILES´) se vc trocar ´PROGRAMFILES´ por ´APPDATA´ vai criar o diretório e C:\Documents and Settings\USUARIO\Dados de aplicativos, ´WINDIR´ vai criar em C:\WINDOWS e assim por diante. O que quero e o seguinte,
criar um form, listbox, edit um button ai no listbox aparecer aparecer um nome qualquer ai eu selecione com o mause e depois click no button e aparecer no edit o valor do GetEnvironmentVariable. Exemplo: nome qualquer 1 o valor de GetEnvironmentVariable(´programfiles´), nome qualquer 2 o valor de GetEnvironmentVariable(´appdata´) e assim por diante.
se alguem poder mi ajudar agradeço des de já.[/color:1a92a8edad]


CICERO ANTONIO