Курсовая работа: Базы данных. Создание программы Телефонный справочник

RootKey := HKey_Current_User;

if Openkey('Software\RonyaSoft\'+ sShortappname, true)

then IsRegister := ReadBool('','Register',false);

if not(IsRegister)

then

begin

DeleteKey('','(Поумолчанию)');

WriteBool('','Register',true);

CloseKey;

MyObject := CreateComObject(CLSID_ShellLink);

MySLink := MyObject as IShellLink;

MyPFile := MyObject as IPersistFile;

with MySLink do

begin

SetPath(PChar(Application.exename));

SetWorkingDirectory(PChar(ExtractFilePath(Application.exename)));

end;

OpenKey('Software\MicroSoft\Windows\CurrentVersion\Explorer', false);

Directory := ReadString('Shell Folders','Desktop','');

WFileNAme := Directory + '\' + sShortAppName +'.lnk';

MyPFile.Save(PWChar(WFIleName), false);

end;

end;

r.Free;

end;

procedure TMainForm.DataError(var Message: TMessage);

begin

Close;

end;