![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 12.09.2007
Сообщений: 34
|
![]()
procedure Tform1.buttom1Click(Sender:Tobject)
begin showwindow(handle,SW_HIDE); showwindow(Application.Handle, SW_HIDE); end; Неработает если вместо buttom1Click ставить Create. как вобще спрятать или убрать форму. чтоб программа без неё работала. и имя процесса сменить. (некаких пакастей не делаю). просто прожект1 в процесах несмотрица. |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 31.05.2007
Сообщений: 486
|
![]()
Чтобы программа без форм работала, нужно создать консольное приложение. Можно использовать заготовку из меню New|Other...|Console Application - это в Delphi6/7, в других вряд ли сильно отличается.
Можно просто удалить из проекта формы: меню Project|Remove from Project... Чтобы открыть файл проекта: меню Project|View Source. В этом файле и писать весь код. Изменить заголовок проекта: меню Project|Options..., потом на вкладке Application внести нужное название в поле Title |
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 15.12.2007
Сообщений: 226
|
![]()
Вместо бутона поставь таймер и установи значение 10 или 50 все работает чтобы изменить название процессах Project|Options form Application Title
|
![]() |
![]() |
![]() |
#4 |
Участник клуба
Регистрация: 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.
Всегда рад помочь!
|
![]() |
![]() |