Melhor (e mais elegante) que isso!
Inicie uma nova aplicação, coloque um TLabel e um TButton em no form vazio e
digite o código abaixo para o evento OnClick do TButton:
{ Precisa da declaração das units ShlObj e ActiveX }
procedure TForm1.Button1Click(Sender: TObject);
var
pidl: PItemIDList;
Buf: array [0..MAX_PATH] of Char;
begin
if Succeeded(ShGetSpecialFolderLocation(Handle, CSIDL_PERSONAL, pidl))
then
begin
if ShGetPathfromIDList(pidl, Buf) then
Label1.Caption := Buf;
CoTaskMemFree(pidl);
end;
end;
Sds.
>From: "Alencar - Philler Informatica" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: delphi-br@yahoogrupos.com.br
>Subject: Re: [delphi-br] Varial que identifica os Meus Documentos
>Date: Tue, 28 Feb 2006 10:32:13 -0300
>
>Em 23/02/06, galvao_em<[EMAIL PROTECTED]> escreveu:
> > Olá Pessoal, gostaria de saber qual a variável no Delphi que identifica
> > a pasta meus documentos. Quero salvar um arquivo automaticamente do meu
> > sistema para os meus documentos, sem a intervenção do usuário, mas não
> > estou conseguindo.
> >
>
>No registro do windows:
>HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell
>Folders\Personal
>
>
>Alencar
>---------------------------------------
> Philler Informatica Ltda
> Jose Alencar Philereno
> ICQ 13458351
>Messenger/Skype (voz): alencar
>
>"Feliz aquele que transfere o que sabe
>e aprende o que ensina" Cora Coralina
_________________________________________________________________
MSN Messenger: converse com os seus amigos online.
http://messenger.msn.com.br
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
