Удалить папку при следующем запуске Windows

[Shouldercannon]

Доброго времени суток!
Есть задача: удалить указанную папку при следующем запуске Windows и только один раз. Как это сделать при помощи реестра?

[Stilet]

В реестре есть ветка RunOnce. Туда удалявку помещай - выполнится только раз.

[Shouldercannon]

Хорошо. А что туда в строковом параметре прописать, для удаления? Папка будет удалена вместе со всем содержимым?

[min@y™]

А что туда в строковом параметре прописать, для удаления? Папка будет удалена вместе со всем содержимым?

А вот, тренируйся.

[Stilet]

А что туда в строковом параметре прописать, для удаления? Папка будет удалена вместе со всем содержимым?

А это уже что пропишешь то и сделает.
Если вот с del то прописать что-то
типа:

cmd /C del каталог /F /S /Q

[Shouldercannon]

Если правильно понял, то записываем сюда HKEY_LOCAL_MACHINE\Software\Microso ft\Windows\CurrentVersion\RunOnce

[min@y™]

HKEY_CURRENT_USER\Software\Microsof t\Windows\CurrentVersion\RunOnce
HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows\CurrentVersion\RunOnce

[Shouldercannon]

Windows 7 Ultimate SP1 x64

procedure TFormMain.RemoveFolder;
var
  Registry: TRegistry;
begin
  Registry := TRegistry.Create;
  Registry.RootKey := HKEY_LOCAL_MACHINE;
  Registry.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce', True);
  Registry.WriteString('Test', 'MyRegistry Value');
  Registry.CloseKey;
  FreeAndNil(Registry);
end;

Запись появилась в
[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432 Node\Microsoft\Windows\CurrentVersi on\RunOnce]
"Test"="MyRegistry Value"
Так и должно быть?

[min@y™]

Обязательно пихать в HKLM? HKCU недостаточно?

[Пепел Феникса]

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

Windows 7 Ultimate SP1 x64

procedure TFormMain.RemoveFolder;
var
  Registry: TRegistry;
begin
  Registry := TRegistry.Create;
  Registry.RootKey := HKEY_LOCAL_MACHINE;
  Registry.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce', True);
  Registry.WriteString('Test', 'MyRegistry Value');
  Registry.CloseKey;
  FreeAndNil(Registry);
end;

Запись появилась в
[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432 Node\Microsoft\Windows\CurrentVersi on\RunOnce]
"Test"="MyRegistry Value"
Так и должно быть?

да так и должно быть.
у вас 32 битное приложение.