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