Проверка имени компьютера при запуске программы

[ViTYAi2007]

Народ, всем доброго времени суток!

Подскажите как сделать, чтобы при запуске программы проверялось имя компьютера и, если оно не то, что заранее указано, то программа не запускалась, а если "правильное", то программа запускалась бы...

Это нужно, чтобы программу смогли запустить только на одном компьютере с определённым именем...

[Stilet]

var  comp:array[0..100] of char;  compln:Cardinal;
compln:=100;
begin
....
GetComputerName(comp,compln);
if comp<>'MyComputer' then // неа нельзя запускать
....

[ViTYAi2007]

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

GetComputerName(comp,compln);
if comp<>'MyComputer' then // неа нельзя запускать
....

Подскажите... я должен "повесить" этот код на событие моей формы OnCreate ?
Запрет запуска программы можно оформить, как

Application.Terminate;

?

[Stilet]

В принципе да.
Можно даже в dpr его перед инициализацией втюхать, и если if сработает просто exit, тогда lдо Application.Run; просто не дойдет