Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Разное
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 27.11.2006, 04:52
NovaC NovaC вне форума
Прохожий
 
Регистрация: 13.11.2006
Сообщения: 24
Репутация: 10
По умолчанию Закрыть окно консоли в Delphi & Автозагрузка

День добрый!

Если кто знает помогите пожалуста!
Как в консольном приложении в Delphi
закрыть это самое окно консоли для того чтобы программа работала в фоновом режиме
и как посредством Delphi добавлять и убирать программу в атозагрузку так
чтобы это работало в win98-2000-xp ?

Заранее спасибо за ответ . . .
Ответить с цитированием
  #2  
Старый 27.11.2006, 06:42
Аватар для Dimanus
Dimanus Dimanus вне форума
Прохожий
 
Регистрация: 20.11.2006
Адрес: Россия г.Братск
Сообщения: 33
Репутация: 10
По умолчанию

Могу подсказать как добавить в автозагрузку допустим по событию 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  
Старый 27.11.2006, 08:16
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Цитата:
Сообщение от Dimanus
Могу подсказать как добавить в автозагрузку допустим по событию Button:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  reg: TRegistry;
begin
  Reg := nil;
  try
    reg := TRegistry.Create;
//    reg.RootKey := HKEY_LOCAL_MACHINE;
//Я бы сделал так:
    reg.RootKey := HKEY_CURRENT_USER;  
    reg.LazyWrite := false;
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',
      false);
    reg.WriteString('My App', Application.ExeName);
    reg.CloseKey;
    reg.free;
  except
    if Assigned(Reg) then Reg.Free;
  end;
end;
Небольшие изменения, иначе в NT системах не под админом работать не будет
Ответить с цитированием
  #4  
Старый 27.11.2006, 08:49
Аватар для Dimanus
Dimanus Dimanus вне форума
Прохожий
 
Регистрация: 20.11.2006
Адрес: Россия г.Братск
Сообщения: 33
Репутация: 10
По умолчанию

Только не забудь подключить:

uses Registry;
Ответить с цитированием
  #5  
Старый 27.11.2006, 12:08
NovaC NovaC вне форума
Прохожий
 
Регистрация: 13.11.2006
Сообщения: 24
Репутация: 10
По умолчанию

Большое спасибо

Хотелось бы ещё узнать:
На сколько правильно в консольном приложении добавлять форму только для того чтобы положить на неё TIdFTP ???
Как с помощью TIdFTP.PUT закидывать несколько файлов ???
Можно ли как-то по другому без TIdFTP реализовать в консольном приложении сброс одновременно нескольких файлов на FTP ???

Заранее спасибо за ответ . . .
Ответить с цитированием
  #6  
Старый 27.11.2006, 12:59
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

В консольном приложении совсем неправильно добавлять форму. На то приложение и консольное, чтобы работать без VCL. Если тебе так уж нужно юзать TidFTP подключай нужный модуль и пользуйся.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:07.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter