pobieranie info z kompa ale tylko raz

mam taka procedure..

procedure TForm1.Button2Click(Sender: TObject);
Var
T:array [0..255] of char;
S:DWord;
begin
S:=SizeOf(T);
GetComputerName(T,S);
Label2.caption:=T;
end;

pobiera ona nazwe kompa... czy mozna by bylo zrobic tak ze jak odpale ten program to program pobierze ta nazwe z kompa ... i tylko raz bedzie mozna pobrac ta nazwe i ona zapisze sie do programu... i na innym kompie sie juz nie da otworzyc bo wyskoczy blad??

moglby mi ktos pomoc napisac odpowiednia procedure do pobierania info tylko raz ?? z gory dzieki

Owszem jest taka możliwość że program odczyta nazwę kompa i zapisze ją np. w resources lub dopisze do końca pliku czy w specjalnie do tego celu przeznaczonym miejscu pliku ale to może być utrudnione z tego względu iż program jest używany przez samego siebie i tylko do odczytu.

Ale jak dla mnie takie zabezpieczenie nie daje odpowiedniej ochrony.
Tego typu problem był poruszany kilkakrotnie na tym forum np.(haslo na program).

Jeżeli nadal upierasz się przy takim zabezpieczeniu to pamiętaj że problem dowolnego pisania po swiom programie można ominąć, to problemu z dostępem do partycji NTFS w WindowsXp przy braku odpowiednich parw już nie. Ktoś może umuślnie zmienić prawa by uniemożliwić takie zmiany. Pamiętaj że nazwa komputera nie jest nazwą unikalną. Przeinstalowanie systemu nie zawsze idzie za powrotem dostarej nazwy. Nazwę komputera zawsze można zmienić. Użytkownik może zostać zmuszony do zmiany nazwy gdy przyłancza się do domeny gdzie już istnieje komputer o takiej samej nazwie.