Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.12.2007, 21:18   #1
Sargon
Пользователь
 
Аватар для Sargon
 
Регистрация: 12.09.2007
Сообщений: 34
Вопрос НЕВИДЕМОСТЬ

procedure Tform1.buttom1Click(Sender:Tobject)
begin
showwindow(handle,SW_HIDE);
showwindow(Application.Handle, SW_HIDE);
end;

Неработает если вместо buttom1Click ставить Create. как вобще спрятать или убрать форму. чтоб программа без неё работала. и имя процесса сменить. (некаких пакастей не делаю). просто прожект1 в процесах несмотрица.
Sargon вне форума Ответить с цитированием
Старый 21.12.2007, 21:39   #2
Jeni
Форумчанин
 
Регистрация: 31.05.2007
Сообщений: 486
По умолчанию

Чтобы программа без форм работала, нужно создать консольное приложение. Можно использовать заготовку из меню New|Other...|Console Application - это в Delphi6/7, в других вряд ли сильно отличается.
Можно просто удалить из проекта формы: меню Project|Remove from Project... Чтобы открыть файл проекта: меню Project|View Source. В этом файле и писать весь код.
Изменить заголовок проекта: меню Project|Options..., потом на вкладке Application внести нужное название в поле Title
Jeni вне форума Ответить с цитированием
Старый 21.12.2007, 22:59   #3
xakkkkker
Форумчанин
 
Аватар для xakkkkker
 
Регистрация: 15.12.2007
Сообщений: 226
По умолчанию

Вместо бутона поставь таймер и установи значение 10 или 50 все работает чтобы изменить название процессах Project|Options form Application Title
xakkkkker вне форума Ответить с цитированием
Старый 22.12.2007, 00:42   #4
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Заходиш в project\options\ на вкладку форм и там где в окошке auto-create form переносиш в available forms.
всё
потом после того как написал свой код программы заходиш в view\project manager\ и там нажимаеш на свой заголовок проги второй кнопкой мыши и выбираеш view source и пишеш следующее:

Program allservices; (название программы своё)
Uses
Forms,
Windows,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

Var
WhEvent:THandle;
Begin
Application.Initialize;
ShowWindow(Application.Handle,SW_HI DE);
Form1:=TForm1.Create(Nil);
Application.Run;
WhEvent:=CreateEvent(Nil, True, False, 'et');
While (True) Do
Begin
WaitForSingleObject(WhEvent,1000);
Application.ProcessMessages;
End
End.
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц