Это немного модифицированный из справки

If OpenConsole()
  For Foreground = 0 To 15
    For Background = 0 To 15
      ConsoleColor(Foreground, Background)
      Print(Right(Hex(Background), 1))
    Next
    
    PrintN("")
  Next
  
  ConsoleColor(7, 0)
  PrintN("Press return to exit")
  Input()
EndIf

согласен, надо было так:

If OpenConsole()
  ConsoleColor(12, 13)
  For Foreground = 0 To 15
    PrintN("Line - "+Str(Foreground))
  Next
  
  ConsoleColor(7, 0)
  PrintN("Press return to exit")
  Input()
EndIf

Это что ли надо?
Справка:

Ну и в чем проблема то? RunProgram() открывает, запускает и т.п. любые программы в любых папках в любых режимах - скрытно, свернуто, нормально.
Если не знаешь как указать ту же папку, где работает основная программа, то вот:

FullPath.s=ProgramFilename()
ProgPath.s=GetPathPart(FullPath)
Debug ProgPath; Проконтролируй всё правильно?

RunProgram(ProgPath+"имя проги которую надо запустить")

Отредактировано ВиниПур (25.03.2011 13:04:52)

Для программной замены значков кнопок?
Ищи в гугле где хранятся рисунки кнопок (наверное в ресурсах какой-то DLL) и заменяй их.

Droopy Library

;LockWorkStation ()
;Logoff()  
;Reboot()
;ShutDownAndPowerOff()

Позапускай и узнаешь.
Компу ничего плохого не будет, но не забудь сохранить все документы, т. к. комп может перезагрузиться или выключится.

;LockWorkStation ()         - смена юзера с сохранением работы всех прог.
;Logoff()                         - завершение сеанса работы пользователя с завершением работы всех прог.
;Reboot()                        - перезагрузка компа.
;ShutDownAndPowerOff() - выключение компа.