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

begin

Timer1.Enabled := false;

Application.CreateForm(TPhoneForm, PhoneForm);

MainFOrm.Hide;

PhoneForm.Show;

Application.OnMessage := PhoneForm.AOM;

end;

end;

function TMainForm.SearchFile(FileName: string): boolean;

var

CurrFile : TSearchRec;

begin

if FindFirst(GetCurrentDir +'\'+FileName, faAnyFile, CurrFIle)=0

then Result := true

else Result := false;

end;

procedure TMainForm.RegApplication;

var

R: TRegIniFile;

IsRegister: boolean;

Directory: string;

MyObject: IUnknown;

MySLink: IShellLink;

MyPFile: IPersistFile;

WFileNAme: WideString;

begin

IsRegister := false;

R := TRegIniFile.Create('');

with R do