Rejestr, Acces Violation, zgroza

0

Dlaczego przy wywoływaniu tej procedury, zawsze wywołuje AV ... - nie wiem dlaczego jest źle napisana.

Cel: ustawienie standardowego edytora HTML na notatnika windows...

procedure HTMLUnAssociate;
var
  Reg: TRegistry;
  s: PChar;
begin
  s := '';
  GetWindowsDirectory(S, MAX_PATH);
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  Reg.OpenKey('Software\Microsoft\Internet Explorer\Default HTML Editor', False);
  Reg.WriteString('Description', 'Notatnik');
  Reg.OpenKey('Software\Microsoft\Internet Explorer\Default HTML Editor\shell\edit\command', False);
  Reg.WriteString('', String(s) + 'notepad.exe "%1"');
end;
0
var 
  s: String;
begin
   SetLength(s, MAX_PATH);
   GetWindowsDirectory(PAnsiChar(S), MAX_PATH);

znalazłem na googlach :-P

funkcja GetWindowsDirectory:
http://www.delphiqa.org.pl/windows/qa024.html

0

kurde, więc to chodziło o ustawianie długości... o tym nie pomyślałem...

1 użytkowników online, w tym zalogowanych: 0, gości: 1