![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#3
|
|||
|
|||
|
Hola, Mariana, no subestimes lo del anterior mensaje, pero esto te puede servir de algo tambien.
Uses Tregistry; var // vble para tener acceso al registro del sistema // LRegWin : Tregistry; GarcTxt : string; Procedure culaquiera; begin LRegWin := Tregistry.Create; RootKey := HKEY_LOCAL_MACHINE; if not KeyExists('SOFTWARE\Myhouse\ColFecha\') then begin // No existe la clave que yo defini Hkey_local_machine\software\myhouse\Colfeche // OpenKey('SOFTWARE\Myhouse\ColFecha\',True); // Escribir en el registro // WriteString('ArcTxt','N'); end else // Leer lo que hay en el registro, clave ArcTxt // GArcTxt := ReadString('ArcTxt'); end;
__________________
Siempre hay un primer momento para todo. |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|