Windows Bilgilerini Alıyoruz (path,temp klasörü,pc ismi) Unit
Windows.Pas

Syntax
GetEnvironmentStrings: PChar

Örnek:
procedure TForm1.Button1Click(Sender: Tobject);
var
MyPointer: PChar;
Memo1.Lines.Clear;
begin
MyPointer := GetEnvironmentStrings;
if MyPointer <> nil then
while MyPointer <> nil do
begin
Memo1.Lines.Add(StrPas(MyPointer));
Inc(MyPointer,StrLen(MyPointer)+1);
if (Byte(MyPointer[0]) = 0) then MyPointer := nil;
end;
FreeEnvironmentStrings(MyPointer);
end;

alıntıdır.