to spørgsmål i delphi

1. du kan pakke din kode ind i en
  try
  ...din kode
  except
  .....

2. den kan du læse i reg.db
    HKEY_CLASSES_ROOT\mailto\shell\open\command


Stoney

Hvordan får jeg den her til at læse fra den sti??

  Reg:= TRegistry.Create;
  Try
    Reg.RootKey:=HKEY_CLASSES_ROOT\mailto\shell\open\command';
    Reg.Openkey(Key, False);
    if Reg.ValueExists(name) then Result:=Reg.ReadString(Name)
    Reg.CloseKey;
  Finally
    Reg.Free;
  end;

Den kommer med en fejl i stien..

procedure TForm1.Button1Click(Sender: TObject);
var
reg : Tregistry;
begin
reg := Tregistry.Create;
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey('mailto\shell\open\command',false);
showmessage(reg.ReadString(''));
reg.Free;
end;

Stoney

hvorfor kan det ikke lade sig gøre at tilføje det til en edit?

progedit.Text := reg.ReadString('');

Der kommer ingen fejl.. den tilføjer bare ikke noget.. Virker fint hvis jeg bruger showmessage...

Det virker fint hos mig

procedure TForm1.Button1Click(Sender: TObject);
var
reg : Tregistry;
begin
reg := Tregistry.Create;
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey('mailto\shell\open\command',false);
edit1.Text :=(reg.ReadString(''));
reg.Free;
end;

Stoney

ja nu virker det også her ;) kan man få shellexecute til at forstå den der mærkelige sti??

"%ProgramFiles%\Outlook Express\msimn.exe" /mailurl:%1

Hvis du bare vil starte dit default mail program kan du bruge
Shellexecute(Handle, 'OPEN', PChar('mailto:navn@firma.dk'), nil, nil, SW_SHOW);

Stoney

Det er fordig det ikke skal starte en ny mail.. det skal bare åbne programmet...

er du der??