Спрятать старонюю программу

[Fahman]

Спрятать программу

как убрать ее с трея? точнее скрыть значок?
С нижней панели я убрал, а вот с трея не знаю как

procedure TForm2.Timer1Timer(Sender: TObject);
var
TDWH:Thandle;
begin
TDWH:=findwindow (nil, 'вообще другая прога');
if TDWH=0 then shellexecute  (0, 'open', 'taskmgr.exe', nil, nil, SW_HIDE)
else
Showwindow (TDWH, SW_HIDE);
end;
end.

так убрал....

[Iron Monk]

Сообщение от Fahman

if TDWH=0 then shellexecute  (0, 'open', 'taskmgr.exe', nil, nil, SW_HIDE)

А это зачем?

Посмотри компонент для работы с системным треем...

[Fahman]

Сообщение от Iron Monk

А это зачем?

Упс))) это лишнее )))

[Stilet]

Может лучше так?:
Безымянный.jpg

[Fahman]

Сообщение от Stilet

Может лучше так?:
Вложение 71498

Долго, не у всех серверов стоит Win7)))
Надо короче загрузить левую программу да и пусть работает и чтоб злой админ не догадался.... Сильно она сервак не нагружает (НЕ ВИРУС)

[Аватар]

злой админ

Не, злой загрузчик левых программ. Догадается, если админ, а не чайник

[Fahman]

Сообщение от Аватар

Не, злой загрузчик левых программ. Догадается, если админ, а не чайник

Ну просто надо про тестировать)

[Stilet]

загрузить левую программу

На месте админа я бы тебя под фальшпотолком в серверной за такое закопал бы.
На месте модератора тему закрываю за зловред.