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.
|