ShellExecute - assoc

[cran7]

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;