Ir al contenido


Foto

[TRUCO DELPHI] Abrir el Cliente de Correo definido por defecto desde Delphi.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 10 diciembre 2016 - 05:13

[TRUCO DELPHI] Abrir el Cliente de Correo definido por defecto desde Delphi.


delphi
  1. uses Registry;
  2.  
  3. procedure OpenMailClient;
  4. const
  5. cMailClient = '\SOFTWARE\Clients\Mail\';
  6. var
  7. reg: TRegistry;
  8. RegClientDefault: string;
  9. begin
  10. reg := TRegistry.Create;
  11. try
  12. with reg do
  13. begin
  14. CloseKey;
  15. RootKey := HKEY_LOCAL_MACHINE;
  16. if OpenKeyReadOnly(cMailClient) then RegClientDefault := reg.ReadString('');
  17. if OpenKeyReadOnly(cMailClient + RegClientDefault + '\shell\open\command') then
  18. WinExec(PChar(ReadString('')), SW_SHOWNORMAL);
  19. end;
  20. finally
  21. reg.Free;
  22. end;
  23. end;
  24.  
  25. procedure TForm1.Button1Click(Sender: TObject);
  26. begin
  27. OpenMailClient;
  28. end;

Saludos!


  • 1




IP.Board spam blocked by CleanTalk.