Помогите найти программный код для программы PureBasic

http://purebasic.info/phpBB2/viewtopic.p...

Добавь это в код и прога сама себя будет добавлять в автозагрузку при каждом запуске.

ProgName.s=ProgramFilename()
Name.s=GetFilePart(ProgName)

Handle = RegOpenKeyEx_(#HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", 0, #KEY_ALL_ACCESS, @hKey)
If Handle = #ERROR_SUCCESS
RegSetValueEx_(hKey, @Name, 0, #REG_SZ, @ProgName, Len(ProgName))
RegCloseKey_(hKey)
EndIf