Скопировать SetCurrentDirectory к себе в модуль

[Alex Cones]

Спасибо. Сработало.

Если интересно насчет скриптов - выкладываю один. Его работа в том, чтобы в директории C:\ создать файлс именем 'File.txt' и записать в его внутренности его имя.

[Neeter]

А все-таки, почему в SysUtils не было указано формата библиотеки? Его можно опускать?

kernel32 в модуле Windows - всего лишь константа, равная 'kernel32.dll'

[077]

Чтобы не таскать по функциям и процедурам полный путь, задал рабочий каталог:

  TEMPDIR:='TMP';
  TEMPDIR:=GetEnvironmentVariable(TEMPDIR)+'\'+TEMPDIR+'\';
  CreateDirectory(Pchar(TEMPDIR), nil);
  SetCurrentDirectory(Pchar(TEMPDIR));

Прога пишет в него нужные файлы и работает с ними, удаляет, переименовывает и т.п..
Однако, с какого-то перепуга туда самокопируется и исполняемый файл (например, Project1.exe). Причём, удалить его невозможно, пока работает прога, кроме этого, под Дельфёй(7) не работают брейкпоинты (как будто до них не доходит выполнение)..

Раскройте мне глаза, как это объяснить?

[077]

Вероятная причина:
Delphi, как и Pascal, работает с образом откомпилированной и запущенной в памяти программы. На диске создаёт .exe, до кучи (в соответствии с настройками - создавать на диске или нет).
А так как в коде программы стоит установка рабочего каталога, то оболочка Delphi это воспринимает глобально, и на свой счёт тоже. Скорее всего, это такая фича/баг работы команды SetCurrentDirectory из-под среды Delphi.

Одно не понятно: почему брейкпоинты на срабатывают..