现在还没有想到,读写一个小文件也不难啊,或者给你一段读写注册表的代码
var
reg : TRegistry;
i : Integer;
begin
// Call base class
RootKey := HKEY_CURRENT_USER;
KeyName := REG_SETTINGS;
Result := inherited LoadSettings;
// Create a TRegistry object
reg := TRegistry.Create;
// Set the RootKey
reg.RootKey := HKEY_CURRENT_USER;
// Open the key where settings are stored
reg.OpenKey(REG_SETTINGS, True);
// Add a button in the QuickBar for each value stored in the registry
i := 0;
while reg.ValueExists(IntToStr(i)) do begin
AddButton(reg.ReadString(IntToStr(i)));这里读取注册表里的键值,写用writestring(..);
i := i + 1;
end;
// Close the key
reg.CloseKey;
// Free the TRegistry object
reg.Destroy;
end;
first if you can edit the resourse file.
the main file you can see the procedure of creating window
you can call the funtion tform.create to constuctruct the window
and before you create the second window you can delete the first window