[NovaC]

День добрый!

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

Заранее спасибо за ответ . . .

[Dimanus]

Могу подсказать как добавить в автозагрузку допустим по событию 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;

[Aristarh Dark]

Сообщение от 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 системах не под админом работать не будет

[Dimanus]

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

uses Registry;

[NovaC]

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

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

Заранее спасибо за ответ . . .

[Aristarh Dark]

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