윈도우 환경변수 TEMP 찾아내기

실제로 잘 동작한다.

procedure TForm1.Button1Click(Sender: TObject);
var
  temp : array [0..255] of char;
  str : String;
begin
  GetEnvironmentVariable(PANSICHAR('TEMP'), temp, 256);
  showMessage(temp);
  str := concat(temp, '\test.mpg');
  copyfile(PAnsiChar('c:\test.mpg'), PAnsiChar(str), FALSE);
end;