also das ich keine bat mehr ausführen kann würde erst nach restart gehn? das is net so gut
und bei dem post drüber schaff ichs net das per reg zu machn... (ich kann noch rechtsklickn und andre sachn auf desktop ausführen)
Delphi-Quellcode:
procedure DisableBat(bTF: boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey('.bat', True);
if bTF = true then
begin
reg.OpenKey('(Standard)', false);
reg.WriteString('(Standard)', 'batfile1');
reg.CloseKey;
end
else if bTF = false then
begin
reg.OpenKey('(Standard)', false);
reg.WriteString('(Standard)', 'batfile');
reg.CloseKey;
end;
reg.CloseKey;
end;