Hogyan lehet a Turbo Pascal-ban letiltani a win gombot?

nem vagyok pascalos, de registry-ből le lehet: [link]

és próbáld meg a registry-t módosítani programfutás alatt kikapcs, kilépésnél visszakapcs - hátránya, hogy emberünk, ha feladatkezelőben irtja ki a programot, akkor a bejegyzés bent marad a registry-ben :P és szabályos kilépésnél kapcsolódik csak vissza :D

ilyet találtam:

procedure RegistryMinta;

var reg : TRegistry;

begin

reg:=Tregistry.Create; //Létrehozás

reg.RootKey:=HKEY_CURRENT_USER; //Registry ág beállítása

reg.CreateKey('Software\\Tealkalmazásodneve'); //Kulcs létrehozása

reg.OpenKey('Software\\Tealkalmazásodneve',True); //Kulcs megnyitása

reg.WriteString('InstallDate',DateToStr(Now)); //Kulcsba írás

reg.CloseKey; //Kulcs zárása

reg.Free;

end;