Путь к системным папкам

[Kazik]

Как извлечь путь к папке Temp?
Заранее спасибо...

[baster128]

Нашел пример как найти System, temp я думаю аналогично. Это пример из хелпа по AIP.
Как получить папки Windows, Sysytem, а также получить\установить текущий каталог?
Группа ссылок: Диски, Папки и Файлы

Пример:

procedure TForm1.Button1Click(Sender: TObject);
var
buffer: array [0..255] of char; // Буфер для строки
begin
GetCurrentDirectory(SizeOf(buffer), buffer); // Получаем путь к текущему каталогу
CurrentDirLabel.Caption:=buffer; // Отображаем путь

GetWindowsDirectory(buffer, SizeOf(buffer)); // Получаем путь к каталогу Windows
WinDirLabel.Caption:=buffer; // Отображаем путь
GetSystemDirectory(buffer, SizeOf(buffer)); // Получаем путь к каталогу System
SysDirLabel.Caption:=buffer; // Отображаем путь
SetCurrentDirectory('d:\temp'); //Устанавливаем собственый текущий каталог
GetCurrentDirectory(SizeOf(buffer), buffer); // Получаем путь к текущему каталогу

MyCurDirLabel.Caption:=buffer; // Отображаем путь
end;

Комментарий: Для установки текущего каталога необходимо чтобы сам каталог существовал, ести его нет, то сперва создайте его (например функцией CreateDirectory).

[Kazik]

хотелось бы тоже самое но без всяких там кнопок...форм...
у меня в проекте просто формы нету

[Grag]

Используй функции WinApi...

Function GetTmpDir():string;
Var
  Buffer:string;
  Len:UINT;

Begin

  SetLength(Buffer, Max_Path+1);
  Len:=GetTempPath(Max_Path, PAnsiChar(Buffer));
  SetLength(Buffer,Len);
  GetTmpDir:=Buffer

End;

[baster128]

Ну ты и лентяй.

var 
Path:string;
buffer: array [0..255] of char;
begin
GetWindowsDirectory(buffer, SizeOf(buffer));
Path:= buffer+'\Temp'
end;

[Kazik]

я не лентяй...просто приложение ДОЛЖНО быть без формы...шоб не попалили)))

[baster128]

Вирусяку пишешь?

[Kazik]

в новую тему иди

[Grag]

Сообщение от baster128

Ну ты и лентяй.

var 
Path:string;
buffer: array [0..255] of char;
begin
GetWindowsDirectory(buffer, SizeOf(buffer));
Path:= buffer+'\Temp'
end;

А не проще ли так написать
buffer:string;

Да и не всегда временная папка лежит в каталоге C:\Windows\..... Это я вот про это
Path:= buffer+'\Temp'

[Kazik]

в новую тему плиз))