|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Закрыть окно консоли в Delphi & Автозагрузка
День добрый!
Если кто знает помогите пожалуста! Как в консольном приложении в Delphi закрыть это самое окно консоли для того чтобы программа работала в фоновом режиме и как посредством Delphi добавлять и убирать программу в атозагрузку так чтобы это работало в win98-2000-xp ? Заранее спасибо за ответ . . . |
#2
|
||||
|
||||
Могу подсказать как добавить в автозагрузку допустим по событию Button:
procedure TForm1.Button1Click(Sender: TObject); var reg: TRegistry; begin Reg := nil; try reg := TRegistry.Create; reg.RootKey := HKEY_LOCAL_MACHINE; reg.LazyWrite := false; reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Run', false); reg.WriteString('My App', Application.ExeName); reg.CloseKey; reg.free; except if Assigned(Reg) then Reg.Free; end; end; |
#3
|
||||
|
||||
Цитата:
|
#4
|
||||
|
||||
Только не забудь подключить:
uses Registry; |
#5
|
|||
|
|||
Большое спасибо
Хотелось бы ещё узнать: На сколько правильно в консольном приложении добавлять форму только для того чтобы положить на неё TIdFTP ??? Как с помощью TIdFTP.PUT закидывать несколько файлов ??? Можно ли как-то по другому без TIdFTP реализовать в консольном приложении сброс одновременно нескольких файлов на FTP ??? Заранее спасибо за ответ . . . |
#6
|
||||
|
||||
В консольном приложении совсем неправильно добавлять форму. На то приложение и консольное, чтобы работать без VCL. Если тебе так уж нужно юзать TidFTP подключай нужный модуль и пользуйся.
|