boo25
Сообщений: 106
Оценки: 0
Присоединился: 2009-01-23 14:48:18.650000
|
Приветсвую форумчане. Переписываю свой джойнер, и делаю привязку по железу. Саму привязку сделал, работает.
Далее сделал чтобы правельный ключ он вносил в реестр, а неправельный не вносил и закрывал программу.
Вроде как сделал чтобы шло чтение из реестра и он запускался без ввода ключа, но при компиляции выдаёт ошибку что String не совместим с процедурой. Как это можно обойти?
Вот часть кода.
procedure ReadKey;
var
h: Tregistry;
begin
h :=TRegistry.Create;
with h do
begin
RootKey:=HKEY_CURRENT_USER;
if OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion',true) then
ReadString('Deserter');
CloseKey;
Free;
end;
end;
procedure TfrmSerial.FormCreate(Sender: TObject);
begin
if ReadKey = getKey(getSerial) then
begin
FrmSerial.hide;
FrmMain.Show;
end
else
FrmSerial.Show;
end;
|
Delphi чтение данных из реестра и сверка - 
