Я пишу программку где должно быть следующее

procedure TMainForm.Button2Click(Sender: TObject);
begin

form1.show;
ServiceStop (' ','Имя сервиса'); - останавливает сервис в NT
form1.hide;

end;

На form1 - у меня стоит label1. И когда я кликаю по кнопке форма form1 у меня выресовывается не полностью т.е. Форма выводится, только без верхней полосы и без кнопок закрыть? просто серый квадрат. И label не выводится на ней. Вообщем она как бы не успевает прорисоватся, процессор занят остановкой сервиса(ServiceStop). А если, скажем добовляю showmessage все прекрасно выходит вон например:

procedure TMainForm.Button2Click(Sender: TObject);
begin

form1.show;
showmessage (' ');
ServiceStop (' ','Имя сервиса'); - останавливает сервис в NT
form1.hide;

end;

Че делать?

Т.е. на скоко я тебя понял, тебе надо вывести новую форму на экран до вызова функции ServiceStop? Может вместо showmessage попробовать sleep(); ?

sniron, Да ты правильно понял. На счет sleep - пробовал, не помогает!

Как один из вариантов - поставь на форму таймер. Установи интервал в значение 1, при отркытии формы запускай его (Enabled := true), а в обработчик таймера запиши свой код (ServiceStop (' ','Имя сервиса'); - останавливает сервис в NT). Будет работать на 100%, хотя реализация и не самая лучшая.

В ServiceStop в его while часть попробуй вставить Application.ProcessMessages;

не надо этого ничего, просто после Form1.Show; напиши Form1.Update;

x77, все работает спасибо!

дык ;)

регистрируйся, тут много вкусного.