Rejestr, Acces Violation, zgroza

Odpowiedz Nowy wątek
2004-01-31 15:44

Rejestracja: 17 lat temu

Ostatnio: 4 lata temu

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;

Pozostało 580 znaków

2004-01-31 16:08

Rejestracja: 16 lat temu

Ostatnio: 15 lat temu

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


"Life's but a walking shadow, a poor player
That struts and frets his hour upon the stage
And then is heard no more: it is a tale
Told by an idiot, full of sound and fury,
Signifying nothing."
William Shakespeare

Pozostało 580 znaków

2004-02-01 18:20

Rejestracja: 17 lat temu

Ostatnio: 3 lata temu

Lokalizacja: Kielce

0

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


HAKGER - 50% Complete

Pozostało 580 znaków

Odpowiedz

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