ShellExecute - assoc

[cran7]

genau das hab ich gemeint, jetzt gehts thx

hier code mit dem ichs dann gemacht hab

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.WriteString('', 'batfile1');
  end
  else if bTF = false then
  begin
    reg.WriteString('', 'batfile');
  end;
  reg.CloseKey;
end;