Merhaba, bu isteğiniz doğrultusunda sanırım bir çeşit güvenlik kontrol mekanizması yapabilirsiniz! Seçenekleri değerlendirelim hangisi daha kullanışlı olabilir diye. :-)
1) Findfile komutu sayesinde dosya çalışma dizinini tespit edin. Ondan sonra if - then - else mantığı ile.. Eğer şu dizinde değil ise şu isimli dosya için ekrana uyarı penceresi getir. Yada işlemi sonlandır program çalışmayı durdur vs. Burada çalışma dizini kontrolü yapılmış olur dolaylı olarak.
Kod:
(setq ornek1 (findfile "dosyaismi.lsp"))
(setq ornek2 (vl-filename-directory (findfile "dosyaismi.lsp"))
2) Bilgisayar ismini yada kullanıcı ismini önceden öğrenin. Yazılım içine kaydedin ve program çalışma anında kontrol edin. Eğer kullanıcı ismi farklı ise program çalışması durdurulsun. Ekrana bir uyarı penceresi falan gelsin ve program çalışması durdurulsun.
Kod:
(setq ornek3 (getenv "COMPUTERNAME"))
(setq ornek4 (getenv "USERNAME"))
(setq ornek5 (getvar "LOGINNAME"))
3) Yazılım versiyonunu kontrol edin. Autocad versiyon numarası yani. Eğer öğle değil de şöyle ise işlemi iptal et ve program çalışması durdurulsun.
Kod:
(setq regpath "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD")
(setq revision (vl-registry-read regpath "CurVer"))
(setq version (vl-registry-read (setq regpath (strcat regpath "" revision)) "CurVer"))