Надо мне сделать ф-ю для вывода некоторой системной информации, но почему-то вместо пути каталога временных файлов выдает какой-то бред ...
type TSystemInfo = ( siCompName, siWinDir, siTempPath ); // .... function getSysInfo(const Info: TSystemInfo): String; const size: DWORD = 255; var buf: PChar; begin GetMem(buf, size); case Info of siCompName: GetComputerName(buf, size); siWinDir: GetWindowsDirectory(buf, size); siTempPath: GetTempPath(size, buf); end; Result := buf; FreeMem(buf, size); end; // ... someString := getSysInfo(siTempPath);
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'