Declarar caminho de arquivo no XP

Question

Pessoal como devo declarar o caminho do Windows XP ? :

C:\Documents and Settings\[user]\Configura��es Locais\Dados de Aplicativos\...

Quando coloco este caminho o c�digo trava :(

PS.: No lugar do [user] j� tentei colocar o nome do usu�rio mesmo (ex.:oregon) mas n�o vai..

Massuda · Answer

Voc� pode usar a fun��o SHGetSpecialFolderPath declarada na unit ShlObj. Por exemplo:

uses
  ShlObj;

function PastaLocalDoUsuario: string;
const
  CSIDL_LOCAL_APPDATA = $001C;
var
  Buffer: array[0..MAX_PATH] of Char;
begin
  SHGetSpecialFolderPath(0, @Buffer[0], CSIDL_LOCAL_APPDATA, True);
  Result := PChar(@Buffer[0]);
end;

� prefer�vel usar SHGetSpecialFolderPath pois dependendo da vers�o do Windows a pasta que voc� pretende utilizar tem outro nome (por exemplo, no Win98 n�o existe C:\Documents and Settings).

Quando coloco este caminho o c�digo trava

Qual a mensagem de erro? Por quest�es de seguran�a, normalmente n�o � permitido acessar a pasta de outros usu�rios. Outra possibilidade � que voc� esteja usando alguma fun��o que n�o permita ter espa�os no nome do diret�rio (algumas fun��es precisam que o nome contendo espa�os esteja entre aspas).

Oregon · Answer

Valeu pela ajuda mas como devo inserir o c�digo ?

Estou usando o seguinte c�digo :

procedure TForm1.BitBtn2Click(Sender: TObject);
// Sistema Operacional Windows XP
var
SR: TSearchRec;
I: integer;
Origem, Destino: string;
User: String;
Dir: string;
Begin
If Form1.RadioButton1.Checked then // Verifica se o SO � WXP
begin
User := Form1.Edit1.Text;
If not(Directoryexists(�c:\Documents and Settings\� + User + �\�)) then
begin
ShowMessage (�Caminho inv�lido. Digite o caminho correto respeitando letras Mai�sculas e Min�sculas.�);
end;
I := FindFirst(�c:\Documents and Settings\� + User + �\*.*�, faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) faDirectory then begin
Origem := �c:\Documents and Settings\� + User + �\� + SR.Name;
If not (directoryExists(�C:\backup-XP�)) then
begin
Dir := �C:\backup-XP�;
ForceDirectories(Dir);
end;
Destino := �c:\backup-XP\� + SR.Name;
StatusBar1.Panels[0].Text:=�Backup executado com sucesso !�;
if not CopyFile(PChar(Origem), PChar(Destino), false) then
// ShowMessage(�Erro ao copiar � + Origem + � para � + Destino);
// end;
I := FindNext(SR);
end;
end;
end
else ...

Massuda · Answer

Depois de dar uma olhada em seu c�digo, acho que seu problema n�o � o nome do diret�rio, mas sim o fato da sua fun��o entrar em loop infinito ao tentar listar o conte�do do diret�rio. Experimente este c�digo:

procedure TForm1.BitBtn2Click(Sender: TObject);
// Sistema Operacional Windows XP
var
  SR: TSearchRec;
  I: Integer;
  Origem, Destino: string;
  User: string;
  Dir: string;
begin
  if Form1.RadioButton1.Checked then {// Verifica se o SO � WXP } begin
    User := Form1.Edit1.Text;
    if not (Directoryexists(�c:\Documents and Settings\� + User + �\�)) then begin
      ShowMessage(�Caminho inv�lido. Digite o caminho correto respeitando letras Mai�sculas e Min�sculas.�);
    end;
    I := FindFirst(�c:\Documents and Settings\� + User + �\*.*�, faAnyFile, SR);
    while I = 0 do begin
      if (SR.Attr and faDirectory) <> faDirectory then begin
        Origem := �c:\Documents and Settings\� + User + �\� + SR.Name;
        if not (directoryExists(�C:\backup-XP�)) then begin
          Dir := �C:\backup-XP�;
          ForceDirectories(Dir);
        end;
        Destino := �c:\backup-XP\� + SR.Name;
        StatusBar1.Panels[0].Text := �Backup executado com sucesso !�;
        if not CopyFile(PChar(Origem), PChar(Destino), False) then
          // ShowMessage(�Erro ao copiar � + Origem + � para � + Destino);

      end; // <<< DESCOMENTE ESTA LINHA

      I := FindNext(SR);

      //end; // <<< COMENTE ESTA LINHA
    end;
  end
  else ...

F�rum Declarar caminho de arquivo no XP #264741